[cells-cvs] CVS cells/utils-kt

[phildebrandt]

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

Modified Files:
	core.lisp 
Log Message:
moved propagation test to test-propagation.lisp


--- /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/01/30 14:33:49	1.5
+++ /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/02/01 15:52:49	1.6
@@ -23,23 +23,23 @@
 
 (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))))
+    `(eval-when ( :compile-toplevel :load-toplevel :execute)
+       (export ',symbols))))
 
-(defmacro define-constant (name value &optional docstring)
-  "Define a constant properly.  If NAME is unbound, DEFCONSTANT
+(eval-now!
+  (defmacro define-constant (name value &optional docstring)
+   "Define a constant properly.  If NAME is unbound, DEFCONSTANT
 it to VALUE.  If it is already bound, and it is EQUAL to VALUE,
 reuse the SYMBOL-VALUE of NAME.  Otherwise, DEFCONSTANT it again,
 resulting in implementation-specific behavior."
-  `(defconstant ,name
-     (if (not (boundp ',name))
-	 ,value
-	 (let ((value ,value))
-	   (if (equal value (symbol-value ',name))
-	       (symbol-value ',name)
-	       value)))
-     ,@(when docstring (list docstring))))
+   `(defconstant ,name
+      (if (not (boundp ',name))
+	  ,value
+	  (let ((value ,value))
+	    (if (equal value (symbol-value ',name))
+		(symbol-value ',name)
+		value)))
+      ,@(when docstring (list docstring)))))
 
 
 (export! exe-path exe-dll font-path)