Plaster
New
List
Login
common-lisp
default
phoe
2020.12.23 16:00:14
(eval-when (:compile-toplevel :execute) (defvar *foo* '#:foo)) (defun foo () *foo*) (define-compiler-macro foo () `',*foo*) (defun test () (eq *foo* (foo))) (eval-when (:load-toplevel) (defvar *foo* '#.*foo*))
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2020.12.23 16:18:32
(defvar *foo* '#:foo) (defun foo () *foo*) (define-compiler-macro foo () `(load-time-value *foo*)) (defun test () (eq *foo* (foo)))
Raw
Repaste