From: David Vázquez <davazp@gmail.com>
Date: Wed, 1 May 2013 18:48:52 +0000 (+0100)
Subject: Fix typo if/when
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2f3690ac4672864400a4a3168aa1106fc105cc60;p=jscl.git

Fix typo if/when

Closes #37
---

diff --git a/src/read.lisp b/src/read.lisp
index ad25704..19ec812 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -291,9 +291,9 @@
 (defun parse-integer (string &key junk-allowed)
   (multiple-value-bind (num index)
       (!parse-integer string junk-allowed)
-    (when num
-      (values num index)
-      (error "junk detected."))))
+    (if num
+        (values num index)
+        (error "junk detected."))))
 
 (defvar *eof* (gensym))
 (defun ls-read-1 (stream)