diff options
Diffstat (limited to 'src/algebra/strap/LIST.lsp')
| -rw-r--r-- | src/algebra/strap/LIST.lsp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/algebra/strap/LIST.lsp b/src/algebra/strap/LIST.lsp index d215f80d..4f3d5c16 100644 --- a/src/algebra/strap/LIST.lsp +++ b/src/algebra/strap/LIST.lsp @@ -187,6 +187,7 @@ (|getShellEntry| $ 52))) (DEFUN |List| (#0=#:G1445) + (DECLARE (SPECIAL |$ConstructorCache|)) (PROG (#1=#:G1446) (RETURN (COND @@ -234,6 +235,7 @@ (|HasCategory| |#1| (LIST '|Evalable| (|devaluate| |#1|)))))))) + (DECLARE (SPECIAL |$ConstructorCache|)) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 |pv$|) (|haddProp| |$ConstructorCache| '|List| (LIST |dv$1|) (CONS 1 $)) |