diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-03 09:44:34 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-03 09:44:34 +0000 |
commit | dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c (patch) | |
tree | c16144c9f25aeafc615b8e9419f31c5f55771db6 /src/boot/strap/tokens.clisp | |
parent | 98bbf2f590ab19efc3319c64470d0d51f6d985fc (diff) | |
download | open-axiom-dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c.tar.gz |
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 7 |
1 files changed, 4 insertions, 3 deletions
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) |