diff options
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 63cd603a..b7170014 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1221,7 +1221,7 @@ (PROG (|stream| |b| |a|) (RETURN (PROGN - (SETQ |a| (READ-LINE)) + (SETQ |a| (|readLine| *STANDARD-INPUT*)) (COND ((EQL (LENGTH |a|) 0) (WRITE-LINE "Boot Loop; to exit type ] ") (BOOTLOOP)) @@ -1236,7 +1236,7 @@ (PROG (|stream| |b| |a|) (RETURN (PROGN - (SETQ |a| (READ-LINE)) + (SETQ |a| (|readLine| *STANDARD-INPUT*)) (COND ((EQL (LENGTH |a|) 0) (WRITE-LINE "Boot Loop; to exit type ] ") (BOOTPO)) |