Skip to content
Snippets Groups Projects
Commit b91cd22f authored by wlott's avatar wlott
Browse files

Moved MACHINE-TYPE and MACHINE-VERSION into machine specific files.

parent e1ce4942
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.6 1991/01/12 23:45:28 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.7 1991/02/03 11:20:11 wlott Exp $
;;;
;;; Assorted miscellaneous functions for Spice Lisp.
;;;
......@@ -82,14 +82,6 @@
"Returns a string describing the implementation version."
*lisp-implementation-version*)
(defun machine-type ()
"Returns a string describing the type of the local machine."
"DECstation 3100")
(defun machine-version ()
"Returns a string describing the version of the local machine."
"DECstation 3100")
(defun machine-instance ()
"Returns a string giving the name of the local machine."
(mach::unix-gethostname))
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.5 1990/12/06 17:39:33 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.6 1991/02/03 11:19:52 wlott Exp $
;;;
;;; This file contains the PMAX specific runtime stuff.
;;;
......@@ -23,6 +23,18 @@
(pushnew :pmax *features*)
;;;; MACHINE-TYPE and MACHINE-VERSION
(defun machine-type ()
"Returns a string describing the type of the local machine."
"DECstation")
(defun machine-version ()
"Returns a string describing the version of the local machine."
"DECstation")
;;; FIXUP-CODE-OBJECT -- Interface
;;;
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.6 1990/12/17 19:34:16 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.7 1991/02/03 11:20:08 wlott Exp $
;;;
;;; This file contains the SPARC specific runtime stuff.
;;;
......@@ -24,6 +24,18 @@
(pushnew :sun4 *features*)
;;;; MACHINE-TYPE and MACHINE-VERSION
(defun machine-type ()
"Returns a string describing the type of the local machine."
"SPARCstation")
(defun machine-version ()
"Returns a string describing the version of the local machine."
"SPARCstation")
;;; FIXUP-CODE-OBJECT -- Interface
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment