From 73c324feef6f51f427ec5469e9d7788acabf14ff Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sun, 27 Dec 2009 17:32:07 +0100
Subject: [PATCH] Remove debug statement.

---
 src/new-cmp/cmputil.lsp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/new-cmp/cmputil.lsp b/src/new-cmp/cmputil.lsp
index cc647a8d7..22ee7b48d 100644
--- a/src/new-cmp/cmputil.lsp
+++ b/src/new-cmp/cmputil.lsp
@@ -160,7 +160,6 @@
     (apply #'format t args)))
 
 (defun cmperr (string &rest args)
-  (error)
   (let ((c (make-condition 'compiler-error
 			   :format-control string
 			   :format-arguments args)))