(setf (function-subtype function) type))
;;; Extract the arglist from the function header FUNC.
-(defun %function-arglist (func)
- (%function-arglist func))
+(defun %simple-fun-arglist (func)
+ (%simple-fun-arglist func))
;;; Extract the name from the function header FUNC.
-(defun %function-name (func)
- (%function-name func))
+(defun %simple-fun-name (func)
+ (%simple-fun-name func))
;;; Extract the type from the function header FUNC.
-(defun %fun-type (func)
- (%fun-type func))
+(defun %simple-fun-type (func)
+ (%simple-fun-type func))
+
+(defun %simple-fun-next (simple-fun)
+ (%simple-fun-next simple-fun))
+
+(defun %simple-fun-self (simple-fun)
+ (%simple-fun-self simple-fun))
;;; Extract the function from CLOSURE.
-(defun %closure-function (closure)
- (%closure-function closure))
+(defun %closure-fun (closure)
+ (%closure-fun closure))
;;; Return the length of VECTOR. There is no reason to use this in
;;; ordinary code, 'cause length (the vector foo)) is the same.
(sb!kernel:%raw-bits object offset))
(defun %set-raw-bits (object offset value)
- (declare (type index offset) (type (unsigned-byte #.sb!vm:word-bits) value))
+ (declare (type index offset))
+ (declare (type (unsigned-byte #.sb!vm:n-word-bits) value))
(setf (sb!kernel:%raw-bits object offset) value))
(defun make-single-float (x) (make-single-float x))