aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/OUTFORM.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
-rw-r--r--src/algebra/strap/OUTFORM.lsp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 875112e0..adb05d9b 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -822,7 +822,7 @@
((IDENTP |a|) |a|)
((STRINGP |a|) (INTERN |a|))
(T (RETURN-FROM |OUTFORM;infix?;$B;74| NIL)))))
- (COND ((GET |e| 'INFIXOP) T) (T NIL))))
+ (GET |e| 'INFIXOP)))
(DEFUN |OUTFORM;elt;$L$;75| (|a| |l| $)
(DECLARE (IGNORE $))