From b91cd22f9e9ed292258309e6796204955a9d493f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 3 Feb 1991 11:20:11 +0000
Subject: [PATCH] Moved MACHINE-TYPE and MACHINE-VERSION into machine specific
 files.

---
 code/misc.lisp     | 10 +---------
 code/pmax-vm.lisp  | 14 +++++++++++++-
 code/sparc-vm.lisp | 14 +++++++++++++-
 3 files changed, 27 insertions(+), 11 deletions(-)

diff --git a/code/misc.lisp b/code/misc.lisp
index cca20e70f..a91f8ab09 100644
--- a/code/misc.lisp
+++ b/code/misc.lisp
@@ -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))
diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp
index ef364a041..14ea98135 100644
--- a/code/pmax-vm.lisp
+++ b/code/pmax-vm.lisp
@@ -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
 ;;;
diff --git a/code/sparc-vm.lisp b/code/sparc-vm.lisp
index 6033dbad2..ea7746a26 100644
--- a/code/sparc-vm.lisp
+++ b/code/sparc-vm.lisp
@@ -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
 ;;;
-- 
GitLab