X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdisassem.lisp;h=30bfebb0bb6b04bf2454e77de5930034328ddef3;hb=012fbee7176df4472ef4add1a7df558d762bc4f6;hp=d8afb76751df7c2b03311b334f5cb4fb19e162a7;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp
index d8afb76..30bfebb 100644
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -1044,10 +1044,10 @@
 				    "-PRINTER"))
 	 (make-printer-defun printer-source funstate name)))))
 
-(defun make-printer-defun (source funstate function-name)
+(defun make-printer-defun (source funstate fun-name)
   (let ((printer-form (compile-printer-list source funstate))
         (bindings (make-arg-temp-bindings funstate)))
-    `(defun ,function-name (chunk inst stream dstate)
+    `(defun ,fun-name (chunk inst stream dstate)
        (declare (type dchunk chunk)
                 (type instruction inst)
                 (type stream stream)