X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=37bb400cf75db294e7c7cb23f47a2f9bbbfed6be;hb=835768a81dad03b7eb94c2058e234413ba066396;hp=a9af065be7b37595b11369333f679128479e9e73;hpb=ec735ab75335c1744b39190314142a7e6f1ecdb3;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index a9af065..37bb400 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -123,6 +123,16 @@
   "Return a string giving the name of the local machine."
   (sb!unix:unix-gethostname))
 
+(defvar *machine-version*)
+
+(defun machine-version ()
+  #!+sb-doc
+  "Return a string describing the version of the computer hardware we
+are running on, or NIL if we can't find any useful information."
+  (unless (boundp '*machine-version*)
+    (setf *machine-version* (get-machine-version)))
+  *machine-version*)
+  
 ;;; FIXME: Don't forget to set these in a sample site-init file.
 ;;; FIXME: Perhaps the functions could be SETFable instead of having the
 ;;; interface be through special variables? As far as I can tell