diff --git a/code/describe.lisp b/code/describe.lisp index 6286d9579917c5d88de796a3f1af1fdd3ce28336..3b69e0a6d9407bc28f3817cffa57e43364289f7f 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.20 1992/05/07 08:52:52 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.21 1992/12/13 16:04:19 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -301,7 +301,7 @@ ;;; guts. ;;; (defun describe-function-compiled (x kind name) - (let ((args (%function-header-arglist x))) + (let ((args (%function-arglist x))) (format t "~&~@(~@[~A ~]arguments:~%~)" kind) (cond ((not args) (format t " There is no argument information available.")) @@ -312,10 +312,10 @@ (indenting-further *standard-output* 2 (write-string args))))) - (let ((name (or name (%function-header-name x)))) + (let ((name (or name (%function-name x)))) (desc-doc name 'function kind) (unless (eq kind :macro) - (describe-function-name name (%function-header-type x)))) + (describe-function-name name (%function-type x)))) (print-compiled-from x)) diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp index f9aa86ef89e7654627ee6c353c61f1292683989b..5c9bccda79bf5d1773998d1fd619e99e6a955f18 100644 --- a/code/fdefinition.lisp +++ b/code/fdefinition.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/fdefinition.lisp,v 1.13 1992/03/09 09:10:32 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.14 1992/12/13 16:04:28 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -143,7 +143,7 @@ (defun print-encapsulation-info (obj str n) (declare (ignore n)) (format str "#<Encapsulation-Info Definition: ~S Type: ~S>" - (%function-header-name (encapsulation-info-definition obj)) + (%function-name (encapsulation-info-definition obj)) (encapsulation-info-type obj))) diff --git a/code/kernel.lisp b/code/kernel.lisp index 16f3a08ca298b482d540592120ddd3111d0b6433..5130b273a049f57cb204b779b5a3f1c0d8eb6bf9 100644 --- a/code/kernel.lisp +++ b/code/kernel.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.8 1992/04/21 04:23:03 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.8 1992/04/21 04:23:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $ ;;; (in-package "KERNEL") @@ -68,17 +68,17 @@ (defun (setf function-subtype) (type function) (setf (function-subtype function) type)) -(defun %function-header-arglist (func) +(defun %function-arglist (func) "Extracts the arglist from the function header FUNC." - (%function-header-arglist func)) + (%function-arglist func)) -(defun %function-header-name (func) +(defun %function-name (func) "Extracts the name from the function header FUNC." - (%function-header-name func)) + (%function-name func)) -(defun %function-header-type (func) +(defun %function-type (func) "Extracts the type from the function header FUNC." - (%function-header-type func)) + (%function-type func)) (defun %closure-function (closure) "Extracts the function from CLOSURE." diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp index 20acb104a05861c8886f79ac5f2da34ab98db267..a53afd1ca38d5a16cfaec95fb6581aa5db5b00be 100644 --- a/code/tty-inspect.lisp +++ b/code/tty-inspect.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/tty-inspect.lisp,v 1.10 1991/05/22 15:44:08 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.11 1992/12/13 16:04:32 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -185,7 +185,7 @@ (kernel:%closure-function object) object))) (list (format nil "Function ~s.~@[~%Argument List: ~a~]." object - (kernel:%function-header-arglist object) + (kernel:%function-arglist object) ;; Defined from stuff used to be here. Someone took it out. ) t)))