diff options
Diffstat (limited to 'src/algebra/strap/UFD.lsp')
| -rw-r--r-- | src/algebra/strap/UFD.lsp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/UFD.lsp b/src/algebra/strap/UFD.lsp index 4dee186a..a52735be 100644 --- a/src/algebra/strap/UFD.lsp +++ b/src/algebra/strap/UFD.lsp @@ -12,7 +12,7 @@ ((|squareFreePart| ($ $)) T) ((|factor| ((|Factored| $) $)) T)) NIL '((|Factored| $) (|Boolean|)) NIL)))) - (|setShellEntry| #0# 0 '(|UniqueFactorizationDomain|)) + (SETF (|shellEntry| #0# 0) '(|UniqueFactorizationDomain|)) #0#)) (DEFUN |UniqueFactorizationDomain| () |