From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Wed, 24 Apr 2013 15:00:00 +0000 (+0200)
Subject: parse-integer: add support for junk-allowed key parameter
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=3dc57c3e0087b711cd7845b2c268b9f5c60d9a0d;p=jscl.git

parse-integer: add support for junk-allowed key parameter
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 5e37e4a..4bc10b9 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1157,8 +1157,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)