y2q-actionman · July 10, 2018 15:21
diff --git a/defconst_eval_test.lisp b/defconst_eval_test.lisp
 (in-package :cl-user)

 (eval-when (:load-toplevel)
  (princ "defining")
  (defconstant +hoge+ 100)
  (princ "defined"))

 (defvar *hoge*
  (+ #.+hoge+				; error
     +hoge+))

 ;;; エラーの理由
 ;;; https://franz.com/support/documentation/10.1/doc/compiling.htm#defining-persistence-2
	(in-package :cl-user)

	(eval-when (:load-toplevel)
	(princ "defining")
	(defconstant +hoge+ 100)
	(princ "defined"))

	(defvar hoge
	(+ #.+hoge+ ; error
	+hoge+))

	;;; エラーの理由
	;;; https://franz.com/support/documentation/10.1/doc/compiling.htm#defining-persistence-2