X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Feval-comp.lisp;h=3e28146139abae15220e7990bac0f25c6d2fe078;hb=204f2fa9771ad9e55718dc76205afec7d11b3011;hp=825d2d0ebdbe3f9d7c5d630a727ed70a2b04b4bf;hpb=d147d512602d761a2dcdfded506dd1a8f9a140dc;p=sbcl.git

diff --git a/src/compiler/eval-comp.lisp b/src/compiler/eval-comp.lisp
index 825d2d0..3e28146 100644
--- a/src/compiler/eval-comp.lisp
+++ b/src/compiler/eval-comp.lisp
@@ -35,7 +35,7 @@
 ;;; Translate form into the compiler's IR1 and perform environment
 ;;; analysis. This is sort of a combination of COMPILE-FILE,
 ;;; SUB-COMPILE-FILE, COMPILE-TOP-LEVEL, and COMPILE-COMPONENT.
-(defun compile-for-eval (form quietly)
+(defun compile-for-eval (form)
   (with-ir1-namespace
     (let* ((*block-compile* nil)
 	   (*lexenv* (make-null-lexenv))