From: espen <espen>
Date: Wed, 8 Oct 2008 18:26:49 +0000 (+0000)
Subject: Bug fix
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/a8ed38f3792dd194409e9e7f2a6d5c9d2e2e908f

Bug fix
---

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*)