parse-integer signals error if junk is detected

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index bcdf2dd..b549726 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1200,7 +1200,11 @@
 
 #+ecmalisp
 (defun parse-integer (string &key junk-allowed)
-  (!parse-integer string junk-allowed))
+  (multiple-value-bind (num index)
+      (!parse-integer string junk-allowed)
+    (when num
+      (values num index)
+      (error "junk detected."))))
 
 (defvar *eof* (gensym))
 (defun ls-read (stream)