[cells-cvs] CVS cells/utils-kt

[phildebrandt]

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)
      , at 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