diff --git a/src/cmp/cmplet.lsp b/src/cmp/cmplet.lsp
index 8991bc10f..5a958e81a 100644
--- a/src/cmp/cmplet.lsp
+++ b/src/cmp/cmplet.lsp
@@ -48,9 +48,6 @@
 
   (setf vars (nreverse vars) forms (nreverse forms))
 
-  (print vars)
-  (print args)
-
   (mapc #'push-vars vars)
 
   (check-vdecl vnames ts is)
diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp
index 6304c5188..d7a98748b 100644
--- a/src/cmp/cmputil.lsp
+++ b/src/cmp/cmputil.lsp
@@ -67,7 +67,6 @@
   nil)
 
 (defun handle-internal-error (c)
-  (print c)
   (si::default-debugger c)
   (unless (typep c 'compiler-error)
     (signal 'compiler-internal-error