aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-10-15 02:53:18 +0000
committerdos-reis <gdr@axiomatics.org>2007-10-15 02:53:18 +0000
commited60f495f0dfe5e3d66362bba84bcbae1cd1d0b1 (patch)
tree26450ed72b051d950674694e48fc411230d9f3e8
parentc74ed936d96536336650b13fe21e79e0db7a2da4 (diff)
downloadopen-axiom-ed60f495f0dfe5e3d66362bba84bcbae1cd1d0b1.tar.gz
* macros.lisp (SETANDFILE): Use defparameter, not setq.
-rw-r--r--src/interp/ChangeLog4
-rw-r--r--src/interp/macros.lisp2
2 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 60c5597e..53530f5f 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,9 @@
2007-10-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * macros.lisp (SETANDFILE): Use defparameter, not setq.
+
+2007-10-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* Makefile.pamphlet (${DEPSYS}): Depend on g-error.$(FASLEXT),
g-boot.$(FASLEXT), c-util.$(FASLEXT), clam.$(FASLEXT),
slam.$(FASLEXT).
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp
index b46f1864..8c5c16c6 100644
--- a/src/interp/macros.lisp
+++ b/src/interp/macros.lisp
@@ -60,7 +60,7 @@
; 5.3 Top-Level Forms
-(defun SETANDFILE (x y) (LAM\,EVALANDFILEACTQ `(setq ,x ',y)))
+(defun SETANDFILE (x y) (LAM\,EVALANDFILEACTQ `(defparameter ,x ',y)))
; 5.3.2 Declaring Global Variables and Named Constants