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

diff --git a/src/code/late-format.lisp b/src/code/late-format.lisp
index 65ffe67..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))