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