[Openmcl-cvs-notifications] r11645 - /trunk/source/compiler/optimizers.lisp

[gb at clozure.com]

Author: gb
Date: Tue Jan 27 15:28:33 2009
New Revision: 11645

Log:
In FORMAT-STRING-SANS-NEWLINES: don't pass NIL as first arg to SUBSEQ
if POSITION-IF-NOT returns NIL.

Modified:
    trunk/source/compiler/optimizers.lisp

Modified: trunk/source/compiler/optimizers.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/optimizers.lisp (original)
+++ trunk/source/compiler/optimizers.lisp Tue Jan 27 15:28:33 2009
@@ -1983,13 +1983,16 @@
 		 ((eq ch #\@)
 		  (setq string (%str-cat (subseq string 0 (- pos 2))
 					 "~%"
-					 (subseq string (position-if-not #'whitespacep string
-									 :start (1+ pos))))))
-		 ((eq ch #\~)
+					 (subseq string (or
+                                                         (position-if-not =
#'whitespacep string
+                                                                          =
:start (1+ pos))
+                                                         (1+ pos))))))
+                  ((eq ch #\~)
 		  (decf pos)
 		  (setq string (%str-cat (subseq string 0 pos)
-					 (subseq string (position-if-not #'whitespacep string
-									 :start (1+ pos))))))))
+					 (subseq string (or (position-if-not #'whitespacep string
+									 :start (1+ pos))
+                                                            (1+ pos))))))))
   string)
 =

 (defun count-known-format-args (string start end)