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)