diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-01 00:40:15 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-01 00:40:15 +0000 |
commit | f1fe7d232e54727f76f7c550af0926487ce88f88 (patch) | |
tree | e9bee6301da4d3ffdaa7a150f6dec7f50fe40d8f /src/algebra/strap/LIST.lsp | |
parent | ad7cf3f5d7ae1735c80fb98616cd870b64c80fdd (diff) | |
download | open-axiom-f1fe7d232e54727f76f7c550af0926487ce88f88.tar.gz |
Avoid direct use or RPLACA and RPLACD
Diffstat (limited to 'src/algebra/strap/LIST.lsp')
-rw-r--r-- | src/algebra/strap/LIST.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index d8f5c568..ddf8b5f5 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -19,7 +19,7 @@ (DECLAIM (FTYPE (FUNCTION (|%List| |%List| |%Shell|) |%List|) |LIST;append;3$;4|)) -(PUT '|LIST;append;3$;4| '|SPADreplace| 'APPEND) +(PUT '|LIST;append;3$;4| '|SPADreplace| '|%lconcat|) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%List| |%Shell|) |%Void|) |LIST;writeOMList|)) |