Reapply patch for :junk-allowed in parse-integer

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 8dd5ef3..bcdf2dd 100644 (file)
--- 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)