aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/RING-.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/RING-.lsp')
-rw-r--r--src/algebra/strap/RING-.lsp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/RING-.lsp b/src/algebra/strap/RING-.lsp
index 17403409..423a18ef 100644
--- a/src/algebra/strap/RING-.lsp
+++ b/src/algebra/strap/RING-.lsp
@@ -9,7 +9,7 @@
(DEFUN |Ring&| (|#1|)
(LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|Ring&| |dv$1|))
- ($ (|newShell| 12)) (|pv$| (|buildPredVector| 0 0 NIL)))
+ ($ (|newShell| 12)) (|pv$| (|buildPredVector| 0 0 (LIST))))
(|setShellEntry| $ 0 |dv$|)
(|setShellEntry| $ 3 |pv$|)
(|stuffDomainSlots| $)