X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Flate-format.lisp;h=c24384f36d78e72f5f560314a5313414494e5540;hb=986ce2596822cc0871b609346aaf592348aca596;hp=1a3be5cb1548381d873fba8c91b76894711770fa;hpb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;p=sbcl.git

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 1a3be5c..c24384f 100644
--- a/src/code/late-format.lisp
+++ b/src/code/late-format.lisp
@@ -32,10 +32,10 @@
 	  (format-error-offset condition)))
 
 (def!struct format-directive
-  (string (required-argument) :type simple-string)
-  (start (required-argument) :type (and unsigned-byte fixnum))
-  (end (required-argument) :type (and unsigned-byte fixnum))
-  (character (required-argument) :type base-char)
+  (string (missing-arg) :type simple-string)
+  (start (missing-arg) :type (and unsigned-byte fixnum))
+  (end (missing-arg) :type (and unsigned-byte fixnum))
+  (character (missing-arg) :type base-char)
   (colonp nil :type (member t nil))
   (atsignp nil :type (member t nil))
   (params nil :type list))
@@ -1116,7 +1116,7 @@
 ;;;; format directive and support function for user-defined method
 
 (def-format-directive #\/ (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 ((param-names) (bindings))
       (dolist (param-and-offset params)
 	(let ((param (cdr param-and-offset)))
@@ -1131,7 +1131,7 @@
 	 (,symbol stream ,(expand-next-arg) ,colonp ,atsignp
 		  ,@(param-names))))))
 
-(defun extract-user-function-name (string start end)
+(defun extract-user-fun-name (string start end)
   (let ((slash (position #\/ string :start start :end (1- end)
 			 :from-end t)))
     (unless slash