From ed60f495f0dfe5e3d66362bba84bcbae1cd1d0b1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 15 Oct 2007 02:53:18 +0000 Subject: * macros.lisp (SETANDFILE): Use defparameter, not setq. --- src/interp/ChangeLog | 4 ++++ src/interp/macros.lisp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 60c5597e..53530f5f 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,7 @@ +2007-10-14 Gabriel Dos Reis + + * macros.lisp (SETANDFILE): Use defparameter, not setq. + 2007-10-14 Gabriel Dos Reis * Makefile.pamphlet (${DEPSYS}): Depend on g-error.$(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 -- cgit v1.2.3