diff options
Diffstat (limited to 'src/algebra/strap/REF.lsp')
-rw-r--r-- | src/algebra/strap/REF.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/REF.lsp b/src/algebra/strap/REF.lsp index 8076a969..30394145 100644 --- a/src/algebra/strap/REF.lsp +++ b/src/algebra/strap/REF.lsp @@ -28,16 +28,16 @@ (DECLAIM (FTYPE (FUNCTION (|%Pair| |%Shell|) |%Thing|) |REF;coerce;$Of;7|)) -(DEFUN |REF;=;2$B;1| (|p| |q| $) (EQ |p| |q|)) +(DEFUN |REF;=;2$B;1| (|p| |q| $) (DECLARE (IGNORE $)) (EQ |p| |q|)) -(DEFUN |REF;ref;S$;2| (|v| $) (LIST |v|)) +(DEFUN |REF;ref;S$;2| (|v| $) (DECLARE (IGNORE $)) (LIST |v|)) -(DEFUN |REF;elt;$S;3| (|p| $) (QCAR |p|)) +(DEFUN |REF;elt;$S;3| (|p| $) (DECLARE (IGNORE $)) (QCAR |p|)) (DEFUN |REF;setelt;$2S;4| (|p| |v| $) (PROGN (RPLACA |p| |v|) (QCAR |p|))) -(DEFUN |REF;deref;$S;5| (|p| $) (QCAR |p|)) +(DEFUN |REF;deref;$S;5| (|p| $) (DECLARE (IGNORE $)) (QCAR |p|)) (DEFUN |REF;setref;$2S;6| (|p| |v| $) (PROGN (RPLACA |p| |v|) (QCAR |p|))) |