diff options
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 669ca761..57079461 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -135,11 +135,9 @@ (DEFUN |bRgen1| (|s|) (PROG (|a|) (RETURN - (PROGN - (SETQ |a| (|shoeReadLine| |s|)) - (COND - ((|shoePLACEP| |a|) (LIST '|nullstream|)) - (T (CONS |a| (|bRgen| |s|)))))))) + (COND + ((SETQ |a| (|shoeReadLine| |s|)) (CONS |a| (|bRgen| |s|))) + (T (LIST '|nullstream|)))))) (DEFUN |bIgen| (|n|) (|bDelay| #'|bIgen1| (LIST |n|))) |