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

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 5e37e4a..4bc10b9 100644 (file)
--- 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)