From 5581002abe19eb7cadc68205e0d3f5b12e5d6bbc Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 27 Dec 2009 23:23:15 +0100 Subject: [PATCH] Added another debug statement. --- src/new-cmp/cmputil.lsp | 1 + 1 file changed, 1 insertion(+) diff --git a/src/new-cmp/cmputil.lsp b/src/new-cmp/cmputil.lsp index 22ee7b48d..b22054c67 100644 --- a/src/new-cmp/cmputil.lsp +++ b/src/new-cmp/cmputil.lsp @@ -160,6 +160,7 @@ (apply #'format t args))) (defun cmperr (string &rest args) + (apply #'error string args) (let ((c (make-condition 'compiler-error :format-control string :format-arguments args)))