(#.sb!vm:closure-header-widetag
(%closure-fun function))
(#.sb!vm:funcallable-instance-header-widetag
- (funcallable-instance-fun function))))
+ (%fun-fun (funcallable-instance-fun function)))))
(defun %closure-values (object)
(declare (function object))
- (coerce (loop for index from 0 below (1- (get-closure-length object))
- collect (%closure-index-ref object index))
- 'simple-vector))
+ (loop for index from 0
+ below (- (get-closure-length object) (1- sb!vm:closure-info-offset))
+ collect (%closure-index-ref object index)))
(defun %fun-lambda-list (object)
(%simple-fun-arglist (%fun-fun object)))