diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-16 04:55:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-16 04:55:47 +0000 |
| commit | 4d249024382d8a81d7575b02e8a96205777918bc (patch) | |
| tree | 0fdf8cabc6be73e7fe1e5e521c97fe34a59e754f /src/interp/macros.lisp | |
| parent | f905c6332417ccd8266e921cfbd716db6c64c9aa (diff) | |
| download | open-axiom-4d249024382d8a81d7575b02e8a96205777918bc.tar.gz | |
* interp/daase.lisp ($ConstructorCache): Declare.
* interp/bootlex.lisp: Fix use of SETELT.
* interp/macros.lisp: Likewise.
* interp/preparse.lisp: Likewise.
* interp/spad.lisp: Likewise.
* interp/vmlisp.lisp: Likewise.
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 217cf844..e9fff330 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -346,7 +346,7 @@ "Something unearthly and VM-specific with respect to streams." (let (v) (if *eof* (fail) (progn (SETQ V (ELT (LASTATOM STRM) 1)) - (SETELT V 3 (SIZE (ELT V 0))))))) + (SETF (ELT V 3) (SIZE (ELT V 0))))))) (DEFUN STRMBLANKLINE (STRM) "Something diabolical and VM-specific with respect to streams." @@ -481,7 +481,7 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (let (V) (if (STREAM-EOF STRM) (FAIL)) (SETQ V (LASTATOM STRM)) - (SETELT V 4 RECNO) + (SETF (ELT V 4) RECNO) (SETQ *EOF* (STREAM-EOF STRM)) strm)) @@ -492,7 +492,7 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (let (V) (if (STREAM-EOF STRM) (FAIL)) (SETQ V (LASTATOM STRM)) - (SETELT V 4 RECNO) + (SETF (ELT V 4) RECNO) (read-char STRM) (SETQ *EOF* (STREAM-EOF STRM)) strm)) |