Skip to content
Snippets Groups Projects
Commit 9dd0d7a0 authored by wlott's avatar wlott
Browse files

Changed %function-header-mumble to %function-mumble.

parent e72357cc
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -301,7 +301,7 @@
;;; guts. ;;; guts.
;;; ;;;
(defun describe-function-compiled (x kind name) (defun describe-function-compiled (x kind name)
(let ((args (%function-header-arglist x))) (let ((args (%function-arglist x)))
(format t "~&~@(~@[~A ~]arguments:~%~)" kind) (format t "~&~@(~@[~A ~]arguments:~%~)" kind)
(cond ((not args) (cond ((not args)
(format t " There is no argument information available.")) (format t " There is no argument information available."))
...@@ -312,10 +312,10 @@ ...@@ -312,10 +312,10 @@
(indenting-further *standard-output* 2 (indenting-further *standard-output* 2
(write-string args))))) (write-string args)))))
(let ((name (or name (%function-header-name x)))) (let ((name (or name (%function-name x))))
(desc-doc name 'function kind) (desc-doc name 'function kind)
(unless (eq kind :macro) (unless (eq kind :macro)
(describe-function-name name (%function-header-type x)))) (describe-function-name name (%function-type x))))
(print-compiled-from x)) (print-compiled-from x))
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -143,7 +143,7 @@
(defun print-encapsulation-info (obj str n) (defun print-encapsulation-info (obj str n)
(declare (ignore n)) (declare (ignore n))
(format str "#<Encapsulation-Info Definition: ~S Type: ~S>" (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))) (encapsulation-info-type obj)))
......
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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") (in-package "KERNEL")
...@@ -68,17 +68,17 @@ ...@@ -68,17 +68,17 @@
(defun (setf function-subtype) (type function) (defun (setf function-subtype) (type function)
(setf (function-subtype function) type)) (setf (function-subtype function) type))
(defun %function-header-arglist (func) (defun %function-arglist (func)
"Extracts the arglist from the function header 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." "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." "Extracts the type from the function header FUNC."
(%function-header-type func)) (%function-type func))
(defun %closure-function (closure) (defun %closure-function (closure)
"Extracts the function from CLOSURE." "Extracts the function from CLOSURE."
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -185,7 +185,7 @@
(kernel:%closure-function object) (kernel:%closure-function object)
object))) object)))
(list (format nil "Function ~s.~@[~%Argument List: ~a~]." 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. ;; Defined from stuff used to be here. Someone took it out.
) )
t))) t)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment