X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=724af2fb782c8011760d36e6cfa21a5b28a06a4c;hb=935d6f6a696c2b0bff1c937cef346cb495e41999;hp=2e6fd3e987d3b7c9427a2933042b35cb9b9e376a;hpb=30479182014bc1e02f54d330643ca45605e3530d;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 2e6fd3e..724af2f 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1683,10 +1683,7 @@
 (defmacro define-instruction-macro (name lambda-list &body body)
   (with-unique-names (whole env)
     (multiple-value-bind (body local-defs)
-        (sb!kernel:parse-defmacro lambda-list
-                                  whole
-                                  body
-                                  name
+        (sb!kernel:parse-defmacro lambda-list whole body name
                                   'instruction-macro
                                   :environment env)
       `(eval-when (:compile-toplevel :load-toplevel :execute)