diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-10 00:02:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-10 00:02:31 +0000 |
| commit | c005f2ff071da28964d7b2f60a9b273b3e9685b4 (patch) | |
| tree | 9350ce9bdfc20b1cd57f96ce4d59d09c8491651e /src/boot/strap | |
| parent | 1a6897a86c7bcd48f6e4bc24a7a48c967fc9c55b (diff) | |
| download | open-axiom-c005f2ff071da28964d7b2f60a9b273b3e9685b4.tar.gz | |
Cleanup
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/ast.clisp | 2 | ||||
| -rw-r--r-- | src/boot/strap/scanner.clisp | 18 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 3 |
3 files changed, 11 insertions, 12 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 64b6e0f4..2a14fe82 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1186,7 +1186,7 @@ (DEFUN |bfSmintable| (|x|) (OR (INTEGERP |x|) - (AND (CONSP |x|) (MEMQ (CAR |x|) '(SIZE LENGTH |char|))))) + (AND (CONSP |x|) (MEMQ (CAR |x|) '(SIZE LENGTH |char| QENUM))))) (DEFUN |bfQ| (|l| |r|) (COND diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index d0fb9800..9fcb1bef 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -49,7 +49,7 @@ (SETQ |$sz| (LENGTH |$ln|)) (COND ((NULL |$n|) T) - ((EQUAL (QENUM |$ln| |$n|) |shoeTAB|) + ((EQL (QENUM |$ln| |$n|) |shoeTAB|) (SETQ |a| (MAKE-FULL-CVEC (- 7 (REM |$n| 8)) " ")) (SETF (ELT |$ln| |$n|) (ELT " " 0)) (SETQ |$ln| (CONCAT |a| |$ln|)) @@ -269,11 +269,11 @@ (COND ((< |$n| |$sz|) (COND - ((EQUAL (QENUM |$ln| |$n|) |shoePLUSCOMMENT|) + ((EQL (QENUM |$ln| |$n|) |shoePLUSCOMMENT|) (SETQ |www| (+ |$n| 1)) (COND ((NOT (< |www| |$sz|)) NIL) - (T (EQUAL (QENUM |$ln| |www|) |shoePLUSCOMMENT|)))) + (T (EQL (QENUM |$ln| |www|) |shoePLUSCOMMENT|)))) (T NIL))) (T NIL))))) @@ -284,11 +284,11 @@ (COND ((< |$n| |$sz|) (COND - ((EQUAL (QENUM |$ln| |$n|) |shoeMINUSCOMMENT|) + ((EQL (QENUM |$ln| |$n|) |shoeMINUSCOMMENT|) (SETQ |www| (+ |$n| 1)) (COND ((NOT (< |www| |$sz|)) NIL) - (T (EQUAL (QENUM |$ln| |www|) |shoeMINUSCOMMENT|)))) + (T (EQL (QENUM |$ln| |www|) |shoeMINUSCOMMENT|)))) (T NIL))) (T NIL))))) @@ -402,7 +402,7 @@ (SETQ |endid| (|shoeIdEnd| |$ln| |$n|)) (COND ((OR (EQUAL |endid| |l|) - (NOT (EQUAL (QENUM |$ln| |endid|) |shoeESCAPE|))) + (NOT (EQL (QENUM |$ln| |endid|) |shoeESCAPE|))) (SETQ |$n| |endid|) (LIST |b| (SUBSTRING |$ln| |n1| (- |endid| |n1|)))) (T (SETQ |str| (SUBSTRING |$ln| |n1| (- |endid| |n1|))) @@ -440,7 +440,7 @@ (T (SETQ |$n| (+ |$n| 1))))) (COND ((OR (EQUAL |$n| |l|) - (NOT (EQUAL (QENUM |$ln| |$n|) |shoeESCAPE|))) + (NOT (EQL (QENUM |$ln| |$n|) |shoeESCAPE|))) (COND ((AND (EQUAL |n| |$n|) |zro|) "0") (T (SUBSTRING |$ln| |n| (- |$n| |n|))))) @@ -472,10 +472,10 @@ (SETQ |a| (|shoeInteger|)) (COND ((NOT (< |$n| |$sz|)) (|shoeLeafInteger| |a|)) - ((AND |$floatok| (EQUAL (QENUM |$ln| |$n|) |shoeDOT|)) + ((AND |$floatok| (EQL (QENUM |$ln| |$n|) |shoeDOT|)) (SETQ |n| |$n|) (SETQ |$n| (+ |$n| 1)) (COND - ((AND (< |$n| |$sz|) (EQUAL (QENUM |$ln| |$n|) |shoeDOT|)) + ((AND (< |$n| |$sz|) (EQL (QENUM |$ln| |$n|) |shoeDOT|)) (SETQ |$n| |n|) (|shoeLeafInteger| |a|)) (T (SETQ |w| (|shoeInteger1| T)) (|shoeExponent| |a| |w|)))) (T (|shoeLeafInteger| |a|))))))) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 0b7eb64b..1d17a095 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1325,6 +1325,5 @@ (COND ((OR (|%hasFeature| :ECL) (|%hasFeature| :GCL)) NIL) (T (|loadNativeModule| - (CONCAT (|systemLibraryDirectory|) "libopen-axiom-core" - |$NativeModuleExt|))))) + (CONCAT "libopen-axiom-core" |$NativeModuleExt|))))) |