From 7cf74b073b3a629fe73d55e970ce3e79344abfae Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Mon, 23 Mar 2009 22:17:27 +0100
Subject: [PATCH] Remove debug statements

---
 src/cmp/cmplet.lsp  | 3 ---
 src/cmp/cmputil.lsp | 1 -
 2 files changed, 4 deletions(-)

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