Changeset 3595

Timestamp:

09/08/03 01:15:56 (20 years ago)

Author:

piso

Message:

Don't use UNTIL.

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: parse-integer.lisp,v 1.2 2003-07-05 02:32:16 piso Exp $
+;;; $Id: parse-integer.lisp,v 1.3 2003-09-08 01:15:56 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -50 +50 @@
               (junk-allowed (return nil))
               ((whitespacep char)
-               (until (eq (setq index (1+ index)) end)
-                      (unless (whitespacep (char string index))
-                        (error "not an integer string: ~S" string)))
+               (do () ((= (setq index (1+ index)) end))
+                 (unless (whitespacep (char string index))
+                   (error "not an integer string: ~S" string)))
                (return nil))
               (t