From dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Jan 2011 09:44:34 +0000
Subject:

---
 configure                   | 6 +++---
 src/boot/initial-env.lisp   | 3 ---
 src/boot/strap/tokens.clisp | 7 ++++---
 src/boot/tokens.boot        | 8 +++++---
 src/interp/scan.boot        | 4 ++--
 5 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/configure b/configure
index 7c427bd3..863ea35e 100755
--- a/configure
+++ b/configure
@@ -5782,7 +5782,7 @@ $as_echo "$v" >&6; }
 	      ;;
 	 esac
 	 ;;
-      # ECL does not provide useful information for dectecing CPU precision
+      # ECL does not provide useful information for detecting CPU precision
       *ecl*)
          case $target in
            *darwin*)
@@ -7129,7 +7129,7 @@ if test -n "$openaxiom_host_lisp_precision"; then
 fi
 
 ## If we are using GCL as the base runtime system, then we do really need
-# a C compiler from GNU.  Well, at least for the moment.
+## a C compiler from GNU.  Well, at least for the moment.
 case $axiom_lisp_flavor,$GCC in
    gcl,yes)
        axiom_cflags="-O2 -Wall -D_GNU_SOURCE"
@@ -20293,7 +20293,7 @@ fi
 
 done
 
-## We want annonymous mapping for memory allocation.  Unfortunately,
+## We want anonymous mapping for memory allocation.  Unfortunately,
 ## the flag for anonymous mapping is not standardized.  Popular names
 ##  are MAP_ANONYMOUS and MAP_ANON.
 if test x"$ac_cv_header_sys_mman_h" = xyes; then
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index dc767443..7e2deef9 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -167,9 +167,6 @@
 (defun make-bvec (n)
   (bvec-make-full n 0))
  
-(defun bvec-setelt (bv i x)
-  (setf (sbit bv i) x))
-
 (defun |shoeReadLisp| (s n)
   (multiple-value-list (read-from-string s nil nil :start n)))
 
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 97359744..6888f321 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -133,7 +133,7 @@
           (LOOP
             (COND
               ((> |i| 255) (RETURN NIL))
-              (T (BVEC-SETELT |a| |i| 0)))
+              (T (SETF (SBIT |a| |i|) 0)))
             (SETQ |i| (+ |i| 1))))
         (LET ((|bfVar#6| |listing|) (|k| NIL))
           (LOOP
@@ -142,8 +142,8 @@
                    (PROGN (SETQ |k| (CAR |bfVar#6|)) NIL))
                (RETURN NIL))
               (T (COND
-                   ((NOT (|shoeStartsId| (ELT |k| 0)))
-                    (BVEC-SETELT |a| (CHAR-CODE (SCHAR |k| 0)) 1)))))
+                   ((|shoeStartsId| (ELT |k| 0)) NIL)
+                   (T (SETF (SBIT |a| (CHAR-CODE (SCHAR |k| 0))) 1)))))
             (SETQ |bfVar#6| (CDR |bfVar#6|))))
         |a|))))
 
@@ -201,6 +201,7 @@
                   (LIST '|alphanumeric?| 'ALPHANUMERICP)
                   (LIST '|and| 'AND) (LIST '|append| 'APPEND)
                   (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM)
+                  (LIST '|bitmask| 'SBIT)
                   (LIST '|canonicalFilename| 'PROBE-FILE)
                   (LIST '|charString| 'STRING)
                   (LIST '|char?| 'CHARACTERP)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 4e1a8ac3..9647e0e5 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -167,10 +167,11 @@ shoeDict:=shoeDictCons()
 shoePunCons()==
   listing := HKEYS shoeKeyTable
   a := MAKE_-BVEC 256
-  for i in 0..255 repeat BVEC_-SETELT(a,i,0)
+  for i in 0..255 repeat
+    bitmask(a,i) := 0
   for k in listing repeat
-     if not shoeStartsId k.0
-     then BVEC_-SETELT(a,codePoint stringChar(k,0),1)
+    shoeStartsId k.0 => nil
+    bitmask(a,codePoint stringChar(k,0)) := 1
   a
  
 shoePun:=shoePunCons()
@@ -245,6 +246,7 @@ for i in [ _
   ["append",    "APPEND"]  , _
   ["apply",      "APPLY"]  , _
   ["atom",        "ATOM"]  , _
+  ["bitmask",   "SBIT"] , _
   ["canonicalFilename", "PROBE-FILE"], _
   ["charString", "STRING"] , _
   ["char?", "CHARACTERP"]  , _
diff --git a/src/interp/scan.boot b/src/interp/scan.boot
index 6f5f5776..18a858a5 100644
--- a/src/interp/scan.boot
+++ b/src/interp/scan.boot
@@ -196,10 +196,10 @@ scanPunCons()==
   a := MAKE_-BVEC 256
 --  SETSIZE(a,256)
   for i in 0..255 repeat
-    BVEC_-SETELT(a,i,0)
+    bitmask(a,i) := 0
   for k in listing repeat
     if not startsId? k.0
-    then BVEC_-SETELT(a,codePoint stringChar(k,0),1)
+    then bitmask(a,codePoint stringChar(k,0)) := 1
   a
 
 scanPun:=scanPunCons()
-- 
cgit v1.2.3