mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove debug statement.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-13 01:02:30 +01:00
parent 152316be1e
commit d19f40580e
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/helpfile.lsp
View file

@ -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))