From 2321701beb3bcde86e3c8eb7fe36488bef9efa51 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 21 Aug 1993 00:25:31 +0000 Subject: [PATCH] Flushed mumbling about argument syntax in describe-function-byte-compiled, since this is now subsumed by the type. --- code/describe.lisp | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/code/describe.lisp b/code/describe.lisp index 2d1439fde..014079297 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) -- GitLab