diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-31 01:48:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-31 01:48:20 +0000 |
| commit | 03c09deff90cb2eb7a85730f7e74bce2df268b47 (patch) | |
| tree | 9e4a0a2dc92091e3ffc1f21bfba4849dbc367b2e /src/interp/macros.lisp | |
| parent | a31c0a21788a17c1bce15120225bc5a15fa1da33 (diff) | |
| download | open-axiom-03c09deff90cb2eb7a85730f7e74bce2df268b47.tar.gz | |
* interp/vmlisp.lisp: Remove QREFELT, QSDEC1, QSETREFV, QSETVELT,
QSETVELT-1, QSINC1, QVELT, QVELT-1.
* algebra/si.spad.pamphlet: Use %iinc and %idec forms.
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 69bd3b2e..1c013f0c 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -555,7 +555,7 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size ; (spadcall ; (cons (|function| (lambda (#:G1420 |envArg|) #:G1420)) (vector)) ; |#1| -; (qrefelt |*1;f;1;initial;MV| 0)))))) +; (svref |*1;f;1;initial;MV| 0)))))) ; ; the (|function| (lambda form used to cause an infinite expansion loop ; |