Using read-eval on constants ($1690464) · Snippets · GitLab

Pascal J. Bourguignon @informatimago · Dec 24, 2017

(defconstant +foo+ 42)

(defun foo () (format t "D%" +foo+))

(eval-when (:compile-toplevel :load-toplevel :execute) (defconstant +bar-1+ 10) (defconstant +bar-2+ 20))

(defun bar (x) (ecase x (#.+bar-1+ 1) (#.+bar-2+ 2)))

#|

cl-user> (compile-file "/tmp/a.lisp") #P"/private/tmp/a.dx64fsl" nil nil cl-user>

|#

(defconstant +foo+ 42) (defun foo () (format t "~D~%" +foo+)) (eval-when (:compile-toplevel :load-toplevel :execute) (defconstant +bar-1+ 10) (defconstant +bar-2+ 20)) (defun bar (x) (ecase x (#.+bar-1+ 1) (#.+bar-2+ 2))) #| cl-user> (compile-file "/tmp/a.lisp") #P"/private/tmp/a.dx64fsl" nil nil cl-user> |#

Please register or to comment