X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=a129f24ec1567c84602397dc38d53fa68917adc7;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=13c348053ecffc9dc487aba8ecc5f2c660084a51;hpb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 13c3480..a129f24 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -167,10 +167,15 @@
     (write-string string stream))
   (dotimes (i minpad)
     (write-char padchar stream))
-  (do ((chars (+ (length string) minpad) (+ chars colinc)))
-      ((>= chars mincol))
-    (dotimes (i colinc)
-      (write-char padchar stream)))
+  ;; As of sbcl-0.6.12.34, we could end up here when someone tries to
+  ;; print e.g. (FORMAT T "~F" "NOTFLOAT"), in which case ANSI says
+  ;; we're supposed to soldier on bravely, and so we have to deal with
+  ;; the unsupplied-MINCOL-and-COLINC case without blowing up.
+  (when (and mincol colinc)
+    (do ((chars (+ (length string) minpad) (+ chars colinc)))
+	((>= chars mincol))
+      (dotimes (i colinc)
+	(write-char padchar stream))))
   (when padleft
     (write-string string stream)))
 
@@ -1153,7 +1158,7 @@
 ;;;; format interpreter and support functions for user-defined method
 
 (def-format-interpreter #\/ (string start end colonp atsignp params)
-  (let ((symbol (extract-user-function-name string start end)))
+  (let ((symbol (extract-user-fun-name string start end)))
     (collect ((args))
       (dolist (param-and-offset params)
 	(let ((param (cdr param-and-offset)))