Changeset 10999

Timestamp:

02/25/06 04:20:54 (18 years ago)

Author:

piso

Message:

ROUND-UP: patch from Carlos Ungil <Carlos.Ungil@…>

File:

• trunk/j/src/org/armedbear/lisp/format.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/format.lisp

@@ -1 +1 @@
 ;;; format.lisp
 ;;;
-;;; Copyright (C) 2004-2005 Peter Graves
-;;; $Id: format.lisp,v 1.31 2005-07-07 23:31:52 piso Exp $
+;;; Copyright (C) 2004-2006 Peter Graves
+;;; $Id: format.lisp,v 1.32 2006-02-25 04:20:54 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -249 +249 @@
          (n (read-from-string (setf string (remove #\. string))))
          (s (princ-to-string (incf n))))
+    (loop for char across string
+      while (equal char #\0)
+      do (setf s (concatenate 'string "0" s)))
     (cond ((null index)
            s)