diff options
| -rwxr-xr-x | configure | 6 | ||||
| -rw-r--r-- | src/boot/initial-env.lisp | 3 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 7 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 8 | ||||
| -rw-r--r-- | src/interp/scan.boot | 4 |
5 files changed, 14 insertions, 14 deletions
@@ -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() |