X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-main.lisp;h=c77d7ebfe4ed5160047b1485268e25353b6c9fdf;hb=d3862cc781cabf52f15c2d3a164f992dbbba84f4;hp=d29ce80e54fb725ca876a23a86c8afd3bcdfb566;hpb=7dd568fb64927be78556ac27f1f0dc60e79cf942;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index d29ce80..c77d7eb 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -109,12 +109,10 @@
   where if NAME is NIL, THING is the result of compilation, and
   otherwise THING is NAME. When NAME is not NIL, the compiled function
   is also set into (FDEFINITION NAME)."
-  ;;(format t "~&/in COMPILE NAME=~S DEFINITION=~S" name definition) ; REMOVEME
   (multiple-value-bind (compiled-definition warnings-p failure-p)
       (if (compiled-function-p definition)
 	  (values definition nil nil)
 	  (actually-compile name definition))
-    ;;(format t "~&/COMPILED-DEFINITION=~S~%" compiled-definition) ; REMOVEME
     (cond (name
 	   (unless failure-p
 	     (setf (fdefinition name) compiled-definition))