diff options
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 0207ed51..2891cea0 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -65,7 +65,8 @@ ((OR (ATOM |bfVar#2|) (PROGN (SETQ |st| (CAR |bfVar#2|)) NIL)) (RETURN NIL)) - (T (HPUT |KeyTable| (CAR |st|) (CADR |st|)))) + (T (SETF (|tableValue| |KeyTable| (CAR |st|)) + (CADR |st|)))) (SETQ |bfVar#2| (CDR |bfVar#2|)))) |KeyTable|)))) |