diff options
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
-rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 298cb495..c9e9bd05 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -201,10 +201,8 @@ (LIST-LENGTH (SVREF |sc| 0))))) (SEQ (LOOP (COND - ((NOT (COND - ((NOT (< (LIST-LENGTH |ns|) 2)) - (ZEROP (|SPADfirst| |ns|))) - (T NIL))) + ((NOT (AND (NOT (< (LIST-LENGTH |ns|) 2)) + (ZEROP (|SPADfirst| |ns|)))) (RETURN NIL)) (T (SETQ |ns| (CDR |ns|))))) (EXIT (SPADCALL |