do the exporting in an eval-when
Sat Jan 17 06:58:43 PST 2009 attila.lendvai@gmail.com
* do the exporting in an eval-when
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-def/def.lisp new-cl-def/def.lisp
--- old-cl-def/def.lisp 2014-07-24 13:06:03.000000000 -0700
+++ new-cl-def/def.lisp 2014-07-24 13:06:03.000000000 -0700
@@ -101,7 +101,8 @@
,@(when (getf -options- :inline)
`((declaim (inline ,,name))))
,@(when (getf -options- :export)
- `((export ',,name)))
+ `((eval-when (:compile-toplevel :load-toplevel :execute)
+ (export ',,name))))
,,@body))
(defmacro with-class-definer-options (name slots &body body)
diff -rN -u old-cl-def/definers.lisp new-cl-def/definers.lisp
--- old-cl-def/definers.lisp 2014-07-24 13:06:03.000000000 -0700
+++ new-cl-def/definers.lisp 2014-07-24 13:06:03.000000000 -0700
@@ -39,7 +39,8 @@
(locally
,@outer-declarations
,@(when (getf -options- :export)
- `((export ',name)))
+ `((eval-when (:compile-toplevel :load-toplevel :execute)
+ (export ',name))))
(,def-macro-name ,name ,args
,@(when documentation
(list documentation))