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

Added function-subtype and (setf function-subtype).

parent 96b98875
No related branches found
No related tags found
No related merge requests found
...@@ -7,15 +7,15 @@ ...@@ -7,15 +7,15 @@
;;; 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.7 1991/04/23 01:25:20 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.7 1991/04/23 01:25:20 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.8 1992/04/21 04:23:03 wlott Exp $
;;; ;;;
(in-package "KERNEL") (in-package "KERNEL")
(export '(allocate-vector make-array-header)) (export '(allocate-vector make-array-header function-subtype))
(defun get-header-data (x) (defun get-header-data (x)
...@@ -61,6 +61,13 @@ ...@@ -61,6 +61,13 @@
"Return a System-Area-Pointer pointing to the end of the control stack." "Return a System-Area-Pointer pointing to the end of the control stack."
(c::control-stack-pointer-sap)) (c::control-stack-pointer-sap))
(defun function-subtype (function)
"Return the header typecode for FUNCTION. Can be set with SETF."
(function-subtype function))
(defun (setf function-subtype) (type function)
(setf (function-subtype function) type))
(defun %function-header-arglist (func) (defun %function-header-arglist (func)
"Extracts the arglist from the function header FUNC." "Extracts the arglist from the function header FUNC."
(%function-header-arglist func)) (%function-header-arglist func))
......
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