(defun %simple-fun-arglist (func)
(%simple-fun-arglist func))
+(defun (setf %simple-fun-arglist) (new-value func)
+ (setf (%simple-fun-arglist func) new-value))
+
;;; Extract the name from the function header FUNC.
(defun %simple-fun-name (func)
(%simple-fun-name func))
(defun %set-raw-bits (object offset value)
(declare (type index offset))
- (declare (type (unsigned-byte #.sb!vm:n-word-bits) value))
+ (declare (type sb!vm:word value))
(setf (sb!kernel:%raw-bits object offset) value))
+(defun %vector-raw-bits (object offset)
+ (declare (type index offset))
+ (sb!kernel:%vector-raw-bits object offset))
+
+(defun %set-vector-raw-bits (object offset value)
+ (declare (type index offset))
+ (declare (type sb!vm:word value))
+ (setf (sb!kernel:%vector-raw-bits object offset) value))
+
(defun make-single-float (x) (make-single-float x))
(defun make-double-float (hi lo) (make-double-float hi lo))