X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=ef7b90c1ff20da0ede0d4e5f484989095a337bc8;hb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;hp=a02c49d5d8a34288c136e18a1a3e9363d46d16a5;hpb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index a02c49d..ef7b90c 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -150,7 +150,7 @@
 	    (:copier nil))
   ;; The function to envoke to actually emit this instruction. Gets called
   ;; with the segment as its one argument.
-  (emitter (required-argument) :type (or null function))
+  (emitter (missing-arg) :type (or null function))
   ;; The attributes of this instruction.
   (attributes (instruction-attributes) :type sb!c:attributes)
   ;; Number of instructions or cycles of delay before additional