diff options
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 6843b904..074db86d 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -142,9 +142,8 @@ ((OR (ATOM |bfVar#6|) (PROGN (SETQ |k| (CAR |bfVar#6|)) NIL)) (RETURN NIL)) - (T (COND - ((|shoeStartsId| (ELT |k| 0)) NIL) - (T (SETF (SBIT |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|)))) |