Fix typo if/when

Closes #37

diff --git a/src/read.lisp b/src/read.lisp
index ad25704..19ec812 100644 (file)
--- 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)