Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv9106/utils-kt

Modified Files: core.lisp Log Message: finally fixed export! for sbcl

--- /project/cells/cvsroot/cells/utils-kt/core.lisp 2008/01/29 23:30:06 1.4 +++ /project/cells/cvsroot/cells/utils-kt/core.lisp 2008/01/30 14:33:49 1.5 @@ -21,9 +21,11 @@ `(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