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

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