Changeset 3618

Timestamp:

09/08/03 13:35:25 (20 years ago)

Author:

piso

Message:

PARSE-INTEGER-ERROR

File:

• trunk/j/src/org/armedbear/lisp/parse-integer.lisp (modified) (5 diffs)

trunk/j/src/org/armedbear/lisp/parse-integer.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: parse-integer.lisp,v 1.3 2003-09-08 01:15:56 piso Exp $
+;;; $Id: parse-integer.lisp,v 1.4 2003-09-08 13:35:25 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -22 +22 @@
 ;;; From OpenMCL.
 
+(defun parse-integer-error (string)
+  (error 'parse-error "not an integer string: ~S" string))
+
 (defun parse-integer (string &key (start 0) end
                              (radix 10) junk-allowed)
@@ -30 +33 @@
                     (if junk-allowed
                         (return-from parse-integer (values nil end))
-                        (error "not an integer string: ~S" string)))
+                        (parse-integer-error string)))
                  (unless (whitespacep (char string i)) (return i))))
         (minusp nil)
@@ -52 +55 @@
                (do () ((= (setq index (1+ index)) end))
                  (unless (whitespacep (char string index))
-                   (error "not an integer string: ~S" string)))
+                   (parse-integer-error string)))
                (return nil))
               (t
-               (error "not an integer string: ~S" string))))
+               (parse-integer-error string))))
       (setq index (1+ index)))
     (values
@@ -62 +65 @@
          (if junk-allowed
              nil
-             (error "not an integer string: ~S" string)))
+             (parse-integer-error string)))
      index)))