X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fir1tran-lambda.lisp;h=534933e1f6d92e625878b4ff514b6ad32e2353c7;hb=c097c9c3d4ce2888c9f32477c95397c69e4f80aa;hp=40944311562f7182b3dc971a07f80d42738a1cec;hpb=28dcf682ef2a3c80b7bcdda00787dbb5e3893abe;p=sbcl.git

diff --git a/src/compiler/ir1tran-lambda.lisp b/src/compiler/ir1tran-lambda.lisp
index 4094431..534933e 100644
--- a/src/compiler/ir1tran-lambda.lisp
+++ b/src/compiler/ir1tran-lambda.lisp
@@ -505,7 +505,8 @@
 				 :type (leaf-type var)
 				 :where-from (leaf-where-from var))))
 
-    (let* ((n-context (gensym "N-CONTEXT-"))
+    (let* ((*allow-instrumenting* nil)
+           (n-context (gensym "N-CONTEXT-"))
 	   (context-temp (make-lambda-var :%source-name n-context))
 	   (n-count (gensym "N-COUNT-"))
 	   (count-temp (make-lambda-var :%source-name n-count
@@ -1048,17 +1049,12 @@
 ;;; The INLINE-EXPANSION is a LAMBDA-WITH-LEXENV, or NIL if there is
 ;;; no inline expansion.
 (defun %compiler-defun (name lambda-with-lexenv compile-toplevel)
-
   (let ((defined-fun nil)) ; will be set below if we're in the compiler
-
     (when compile-toplevel
       ;; better be in the compiler
       (aver (boundp '*lexenv*)) 
-      (when sb!xc:*compile-print*
-	(compiler-mumble "~&; recognizing DEFUN ~S~%" name))
       (remhash name *free-funs*)
       (setf defined-fun (get-defined-fun name))
-
       (aver (fasl-output-p *compile-object*))
       (if (member name *fun-names-in-this-file* :test #'equal)
 	  (warn 'duplicate-definition :name name)