Changeset 3618


Ignore:
Timestamp:
09/08/03 13:35:25 (19 years ago)
Author:
piso
Message:

PARSE-INTEGER-ERROR

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/parse-integer.lisp

    r3595 r3618  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: parse-integer.lisp,v 1.3 2003-09-08 01:15:56 piso Exp $
     4;;; $Id: parse-integer.lisp,v 1.4 2003-09-08 13:35:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2222;;; From OpenMCL.
    2323
     24(defun parse-integer-error (string)
     25  (error 'parse-error "not an integer string: ~S" string))
     26
    2427(defun parse-integer (string &key (start 0) end
    2528                             (radix 10) junk-allowed)
     
    3033                    (if junk-allowed
    3134                        (return-from parse-integer (values nil end))
    32                         (error "not an integer string: ~S" string)))
     35                        (parse-integer-error string)))
    3336                 (unless (whitespacep (char string i)) (return i))))
    3437        (minusp nil)
     
    5255               (do () ((= (setq index (1+ index)) end))
    5356                 (unless (whitespacep (char string index))
    54                    (error "not an integer string: ~S" string)))
     57                   (parse-integer-error string)))
    5558               (return nil))
    5659              (t
    57                (error "not an integer string: ~S" string))))
     60               (parse-integer-error string))))
    5861      (setq index (1+ index)))
    5962    (values
     
    6265         (if junk-allowed
    6366             nil
    64              (error "not an integer string: ~S" string)))
     67             (parse-integer-error string)))
    6568     index)))
Note: See TracChangeset for help on using the changeset viewer.