(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)))
(defun machine-instance ()
#!+sb-doc
"Return a string giving the name of the local machine."
- (sb!unix:unix-gethostname))
+ #!+win32 "some-random-windows-box"
+ #!-win32 (sb!unix:unix-gethostname))
(defvar *machine-version*)