From: David Vázquez <davazp@gmail.com>
Date: Wed, 24 Apr 2013 19:25:11 +0000 (+0100)
Subject: Reapply patch for :junk-allowed in parse-integer
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6780bad8ee4ef5ca9d3ede96648d964074296c2b;p=jscl.git

Reapply patch for :junk-allowed in parse-integer
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 8dd5ef3..bcdf2dd 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1199,8 +1199,8 @@
           (values nil index)))))
 
 #+ecmalisp
-(defun parse-integer (string)
-  (!parse-integer string nil))
+(defun parse-integer (string &key junk-allowed)
+  (!parse-integer string junk-allowed))
 
 (defvar *eof* (gensym))
 (defun ls-read (stream)