diff --git a/code/describe.lisp b/code/describe.lisp index 2d1439fde8d91498b50f997ddba982d5b8a761d8..01407929768bd2028c147a1836621a86246d7a2c 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.27 1993/08/17 22:31:37 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.28 1993/08/21 00:25:31 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -318,22 +318,6 @@ (defun describe-function-byte-compiled (x kind name) - (unless (eq kind :macro) - (etypecase x - (c::simple-byte-function - (format t "~&Function may be called with ~R argument~:P." - (c::simple-byte-function-num-args x))) - (c::hairy-byte-function - (let ((min (c::hairy-byte-function-min-args x)) - (max (c::hairy-byte-function-max-args x))) - (format t "~&Function may be called with ~R~:[~*~; to ~R~] ~ - positional arguments~ - ~:[~;,~% any number of &rest arguments~]~ - ~:[~*~;, and these keywords:~% ~S~]." - min (/= min max) max - (c::hairy-byte-function-rest-arg-p x) - (c::hairy-byte-function-keywords-p x) - (mapcar #'first (c::hairy-byte-function-keywords x))))))) (let ((name (or name (c::byte-function-name x)))) (desc-doc name 'function kind)