diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-22 03:20:22 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-22 03:20:22 +0000 |
| commit | c3b3651a804ebbdf40b3b59490d62ac63e3bf233 (patch) | |
| tree | 2653e9c109b64e0861743dc4d0e4b4fc4133ddd3 /src/boot/strap/scanner.clisp | |
| parent | a8469b11f4b06fd70bf1e2082fcd0016de428053 (diff) | |
| download | open-axiom-c3b3651a804ebbdf40b3b59490d62ac63e3bf233.tar.gz | |
Update cached Lisp translation
Diffstat (limited to 'src/boot/strap/scanner.clisp')
| -rw-r--r-- | src/boot/strap/scanner.clisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 2689a8bf..4d3406f4 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -71,7 +71,7 @@ (SETQ |$floatok| T) (SETQ |$linepos| |s|) (COND - ((NULL (|shoeNextLine| |s|)) (CONS NIL NIL)) + ((NOT (|shoeNextLine| |s|)) (CONS NIL NIL)) ((NULL |$n|) (|shoeLineToks| |$r|)) (#0='T (PROGN @@ -136,7 +136,7 @@ (DECLARE (SPECIAL |$ln| |$r| |$n|)) (RETURN (COND - ((NULL (|shoeNextLine| |s|)) (CONS |s| |string|)) + ((NOT (|shoeNextLine| |s|)) (CONS |s| |string|)) ((NULL |$n|) (|shoeAccumulateLines| |$r| |string|)) ((EQL (LENGTH |$ln|) 0) (|shoeAccumulateLines| |$r| |string|)) (#0='T @@ -348,13 +348,13 @@ (COND (|$floatok| (|shoePossFloat| |w|)) (#0='T (|shoeLeafKey| |w|)))) - (#0# (SETQ |$floatok| (NULL (|shoeCloser| |w|))) + (#0# (SETQ |$floatok| (NOT (|shoeCloser| |w|))) (|shoeLeafKey| |w|)))) (DEFUN |shoePossFloat| (|w|) (DECLARE (SPECIAL |$ln| |$sz| |$n|)) (COND - ((OR (NOT (< |$n| |$sz|)) (NULL (|shoeDigit| (ELT |$ln| |$n|)))) + ((OR (NOT (< |$n| |$sz|)) (NOT (|shoeDigit| (ELT |$ln| |$n|)))) (|shoeLeafKey| |w|)) ('T (SETQ |w| (|shoeInteger|)) (|shoeExponent| "0" |w|)))) @@ -560,7 +560,7 @@ (DEFUN |shoeKeyWord| (|st|) (GETHASH |st| |shoeKeyTable|)) (DEFUN |shoeKeyWordP| (|st|) - (NULL (NULL (GETHASH |st| |shoeKeyTable|)))) + (NOT (NULL (GETHASH |st| |shoeKeyTable|)))) (DEFUN |shoeMatch| (|l| |i|) (|shoeSubStringMatch| |l| |shoeDict| |i|)) |