From c005f2ff071da28964d7b2f60a9b273b3e9685b4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 10 Dec 2010 00:02:31 +0000
Subject: Cleanup

---
 src/boot/strap/ast.clisp        |  2 +-
 src/boot/strap/scanner.clisp    | 18 +++++++++---------
 src/boot/strap/translator.clisp |  3 +--
 3 files changed, 11 insertions(+), 12 deletions(-)

(limited to 'src/boot/strap')

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