X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=c636770a7667920687e2c0c2b5454d27cf8d4b7c;hb=22a6702974b7d6ff4e8f2b3b7b5ff446fc632de0;hp=65fe84dd4f4a564a8e5a6b0a1ec6b54deab06dfd;hpb=c457d41e87e7ab27bb92f59f0e7839fe23b9d020;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 65fe84d..c636770 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -129,7 +129,8 @@
 (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*)