From 2f3690ac4672864400a4a3168aa1106fc105cc60 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 1 May 2013 19:48:52 +0100 Subject: [PATCH] Fix typo if/when Closes #37 --- src/read.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 1.7.10.4