diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-26 22:32:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-26 22:32:20 +0000 |
| commit | df02d2410007b60d0ee057da174552847c0005f0 (patch) | |
| tree | 4c3b60abff83bfae3bc9e209f081688493e2dafc /src/algebra/strap/OUTFORM.lsp | |
| parent | e8a84fdadd3c571f757a204f019e102d038ba277 (diff) | |
| download | open-axiom-df02d2410007b60d0ee057da174552847c0005f0.tar.gz | |
* interp/g-opt.boot (optCond): Recognize conjunction and
disjunction forms.
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 2 |
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 $)) |