From d19f40580ea403275a12fa9d7227b2fe1758e2cc Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 13 Mar 2010 01:02:30 +0100 Subject: [PATCH] Remove debug statement. --- src/lsp/helpfile.lsp | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/lsp/helpfile.lsp b/src/lsp/helpfile.lsp index 55e09de58..b36a04700 100644 --- a/src/lsp/helpfile.lsp +++ b/src/lsp/helpfile.lsp @@ -189,8 +189,6 @@ the help file." (defun set-documentation (object doc-type string) (when (not (or (stringp string) (null string))) (error "~S is not a valid documentation string" string)) - (when (consp object) - (print (list object doc-type string))) (let ((key 'documentation)) (when (and object (listp object) (si::valid-function-name-p object)) (setq object (second object) key 'setf-documentation))