Commit 2781f115 authored by Peter Hildebrandt's avatar Peter Hildebrandt
Browse files

finally fixed export! for sbcl

parent e5e5fc99
......@@ -21,9 +21,11 @@ See the Lisp Lesser GNU Public License for more details.
`(eval-when (:compile-toplevel :load-toplevel :execute)
,@body))
(defmacro export! (&rest symbols)
`(eval-when (#-sbcl :compile-toplevel :load-toplevel :execute)
(export ',symbols)))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro export! (&rest symbols)
`(eval-when ( :compile-toplevel :load-toplevel :execute)
#+sbssscl (export (list ,@(mapcar #'(lambda (x) (list 'quote x)) symbols)))
#-sbclss (export ',symbols))))
(defmacro define-constant (name value &optional docstring)
"Define a constant properly. If NAME is unbound, DEFCONSTANT
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment