Index: /trunk/ccl/lib/read.lisp
===================================================================
--- /trunk/ccl/lib/read.lisp	(revision 270)
+++ /trunk/ccl/lib/read.lisp	(revision 271)
@@ -15,4 +15,5 @@
 ;;;   http://opensource.franz.com/preamble.html
 
+(in-package "CCL")
 
 (define-condition simple-reader-error (reader-error simple-error) ()
@@ -124,11 +125,14 @@
 (defun parse-integer (string &key (start 0) end
                       (radix 10) junk-allowed)
-  (when (null end)
-    (setq end (length string)))
-  (let ((index (do ((i start (1+ i)))
-                   ((= i end)
-                    (if junk-allowed
+  (flet ((parse-integer-not-integer-string (s)
+	   (error 'parse-integer-not-integer-string :string s)))
+    (declare (inline not-integer-string-error))
+    (when (null end)
+      (setq end (length string)))
+    (let ((index (do ((i start (1+ i)))
+		     ((= i end)
+		      (if junk-allowed
                         (return-from parse-integer (values nil end))
-                        (error "Not an integer string: ~S." string)))
+                        (parse-integer-not-integer-string string)))
                    (unless (whitespacep (char string i)) (return i))))
         (minusp nil)
@@ -153,8 +157,8 @@
                      (until (eq (setq index (1+ index)) end)
                        (unless (whitespacep (char string index))
-                         (error "Not an integer string: ~S." string)))
+                         (parse-integer-not-integer-string string)))
                      (return nil))
                     (t
-                     (error "Not an integer string: ~S." string))))
+                     (parse-integer-not-integer-string string))))
          (setq index (1+ index)))
        (values
@@ -163,6 +167,6 @@
             (if junk-allowed
                 nil
-                (error "Not an integer string: ~S." string)))
-        index)))
+                (parse-integer-not-integer-string string)))
+        index))))