(values `(lambda ,lambda-list ,@body)
t name)))
(function
- (let* ((fun (%simple-fun-self fun))
+ (let* ((fun (%simple-fun-self (%fun-fun fun)))
(name (%fun-name fun))
(code (sb!di::fun-code-header fun))
(info (sb!kernel:%code-debug-info code)))
(defun machine-instance ()
#!+sb-doc
"Return a string giving the name of the local machine."
- #!+win32 "some-random-windows-box"
+ #!+win32 (sb!win32::get-computer-name)
#!-win32 (sb!unix:unix-gethostname))
(defvar *machine-version*)