Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29476

Modified Files: basic-macros.lisp Log Message: Make define-compile-time-variable behave more like defvar than defparameter.

Date: Fri Apr 16 19:33:36 2004 Author: ffjeld

Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.12 movitz/losp/muerte/basic-macros.lisp:1.13 --- movitz/losp/muerte/basic-macros.lisp:1.12 Fri Apr 16 15:25:11 2004 +++ movitz/losp/muerte/basic-macros.lisp Fri Apr 16 19:33:36 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.12 2004/04/16 19:25:11 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.13 2004/04/16 23:33:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -138,9 +138,11 @@ (let ((the-value (eval value))) `(progn (eval-when (:compile-toplevel) - (defparameter ,name ',the-value) - (pushnew ',name (movitz::image-compile-time-variables movitz::*image*))) - (defparameter ,name ',the-value)))) + (defvar ,name) + (unless (member ',name (movitz::image-compile-time-variables movitz::*image*)) + (setf ,name ',the-value) + (push ',name (movitz::image-compile-time-variables movitz::*image*)))) + (defvar ,name 'uninitialized-compile-time-variable))))

(defmacro let* (var-list &body body) (labels ((expand (rest-vars body)