[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp

[Frode Vatvedt Fjeld]

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)