From df02d2410007b60d0ee057da174552847c0005f0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 26 Feb 2011 22:32:20 +0000
Subject: 	* interp/g-opt.boot (optCond): Recognize conjunction and 
 disjunction forms.

---
 src/algebra/strap/OUTFORM.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/OUTFORM.lsp')

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 $))
-- 
cgit v1.2.3