X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1report.lisp;h=93190eb922a572098b170575d0555db69a5bef76;hb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;hp=bfaab105b0569dff9968f1fc93dc7835607d4aa2;hpb=4f7211e1d005696dcd29d8322fa531992ea8fed4;p=sbcl.git

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index bfaab10..93190eb 100644
--- a/src/compiler/ir1report.lisp
+++ b/src/compiler/ir1report.lisp
@@ -64,13 +64,12 @@
   ;; a list of stringified enclosing non-original source forms
   (source nil :type list)
   ;; the stringified form in the original source that expanded into SOURCE
-  (original-source (required-argument) :type simple-string)
+  (original-source (missing-arg) :type simple-string)
   ;; a list of prefixes of "interesting" forms that enclose original-source
   (context nil :type list)
   ;; the FILE-INFO-NAME for the relevant FILE-INFO
-  (file-name (required-argument)
-	     :type (or pathname (member :lisp :stream)))
-  ;; the file position at which the top-level form starts, if applicable
+  (file-name (missing-arg) :type (or pathname (member :lisp :stream)))
+  ;; the file position at which the top level form starts, if applicable
   (file-position nil :type (or index null))
   ;; the original source part of the source path
   (original-source-path nil :type list))