aboutsummaryrefslogtreecommitdiff
path: root/src/interp/macros.lisp
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 /src/interp/macros.lisp
parentc74ed936d96536336650b13fe21e79e0db7a2da4 (diff)
downloadopen-axiom-ed60f495f0dfe5e3d66362bba84bcbae1cd1d0b1.tar.gz
* macros.lisp (SETANDFILE): Use defparameter, not setq.
Diffstat (limited to 'src/interp/macros.lisp')
-rw-r--r--src/interp/macros.lisp2
1 files changed, 1 insertions, 1 deletions
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