X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=feb1cf558e2a71a798fb4ad2cf555343703ad2fc;hb=6fa968aaa8051da23cc3153a1c0e67addbea85f6;hp=cd4c4a816aae0a4273502407f2b00a9825256c15;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index cd4c4a8..feb1cf5 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -33,7 +33,7 @@
        (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)))
@@ -138,7 +138,7 @@
 (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*)