From a8ed38f3792dd194409e9e7f2a6d5c9d2e2e908f Mon Sep 17 00:00:00 2001 From: espen Date: Wed, 8 Oct 2008 18:26:49 +0000 Subject: [PATCH] Bug fix --- tools/config.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/config.lisp b/tools/config.lisp index 432c906..c38b034 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -122,9 +122,9 @@ (defun |#?-reader| (stream subchar arg) (declare (ignore subchar arg)) - (let ((not-p (when (char= (peek-char nil stream) #\-) - (read-char stream))) - (conditional (read stream t nil t))) + (let* ((not-p (when (char= (peek-char nil stream) #\-) + (read-char stream))) + (conditional (read stream t nil t))) (cond (*read-suppress* (read stream t nil t)) ((not *read-eval*) -- 2.11.0