From b20cefe9abdbc233f9c7ff9c1982b9c846307c1c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 31 Dec 2009 10:24:59 +0100 Subject: [PATCH] Remove debug statement from cmpname.lsp --- src/new-cmp/cmpname.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/new-cmp/cmpname.lsp b/src/new-cmp/cmpname.lsp index c96b04b2b..3a60945b0 100644 --- a/src/new-cmp/cmpname.lsp +++ b/src/new-cmp/cmpname.lsp @@ -103,7 +103,6 @@ the function name it precedes." (find-init-name pathname)) (error "Cannot find out entry point for binary file ~A" pathname)) (compute-init-name pathname :kind kind))) -(trace guess-init-name find-init-name) (defun compute-init-name (pathname &key kind) (let ((filename (pathname-name pathname)))