aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/ILIST.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/ILIST.lsp')
-rw-r--r--src/algebra/strap/ILIST.lsp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp
index 5eb94cfe..64b04a6d 100644
--- a/src/algebra/strap/ILIST.lsp
+++ b/src/algebra/strap/ILIST.lsp
@@ -263,7 +263,7 @@
(RETURN-FROM |ILIST;=;2$B;22| NIL))
(T (SEQ (SETQ |x| (CDR |x|))
(EXIT (SETQ |y| (CDR |y|)))))))))
- (EXIT (COND ((NULL |x|) (NULL |y|)) (T NIL)))))))
+ (EXIT (AND (NULL |x|) (NULL |y|)))))))
(DEFUN |ILIST;latex;$S;23| (|x| $)
(LET ((|s| "\\left["))