(case (widetag-of fun)
(#.sb!vm:closure-header-widetag
(%simple-fun-name (%closure-fun fun)))
- ((#.sb!vm:simple-fun-header-widetag
- #.sb!vm:closure-fun-header-widetag)
+ (#.sb!vm:simple-fun-header-widetag
;; KLUDGE: The pun that %SIMPLE-FUN-NAME is used for closure
;; functions is left over from CMU CL (modulo various renaming
;; that's gone on since the fork).
(aver nil) ; since this is unsafe 'til bug 137 is fixed
(let ((widetag (widetag-of fun)))
(case widetag
- ((#.sb!vm:simple-fun-header-widetag
- #.sb!vm:closure-fun-header-widetag)
+ (#.sb!vm:simple-fun-header-widetag
;; KLUDGE: The pun that %SIMPLE-FUN-NAME is used for closure
;; functions is left over from CMU CL (modulo various renaming
;; that's gone on since the fork).
"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