From ec199a6da503046a1f6b8ed55c4b8b84520e00e3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 29 Feb 1992 03:08:03 +0000
Subject: [PATCH] Used #+mumble to make this file machine independent.

---
 code/exports.lisp | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index caa623570..91fc79623 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.73 1992/02/16 15:15:37 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.74 1992/02/29 03:08:03 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.73 1992/02/16 15:15:37 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.74 1992/02/29 03:08:03 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
@@ -63,9 +63,18 @@
 (if (find-package "ITERATE")
     (rename-package "ITERATE" "ITERATE" 'nil)
     (make-package "ITERATE" :nicknames 'nil :use nil))
+#+pmax
 (if (find-package "MIPS")
     (rename-package "MIPS" "MIPS" '("VM" "OLD-MIPS"))
     (make-package "MIPS" :nicknames '("VM" "OLD-MIPS") :use nil))
+#+sparc
+(if (find-package "SPARC")
+    (rename-package "SPARC" "SPARC" '("VM" "OLD-SPARC"))
+    (make-package "SPARC" :nicknames '("VM" "OLD-SPARC") :use nil))
+#+ibmrt
+(if (find-package "RT")
+    (rename-package "RT" "RT" '("VM" "OLD-RT"))
+    (make-package "RT" :nicknames '("VM" "OLD-RT") :use nil))
 (if (find-package "CONDITIONS")
     (rename-package "CONDITIONS" "CONDITIONS" 'nil)
     (make-package "CONDITIONS" :nicknames 'nil :use nil))
@@ -135,7 +144,7 @@
 (use-package
  '("C-CALL" "ALIEN-INTERNALS" "ALIEN" "BIGNUM" "LISP" "KERNEL" "EXTENSIONS"
    "SYSTEM" "ASSEMBLER" "C")
- "MIPS")
+ "VM")
 (use-package '("EXTENSIONS" "LISP") "CONDITIONS")
 (use-package '("LISP") "DISASSEM")
 (use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG")
@@ -724,7 +733,7 @@
      '("%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P"
        "DOUBLE-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"))
   (intern name "KERNEL"))
-(defpackage "MIPS"
+(defpackage #+pmax "MIPS" #+sparc "SPARC" #+ibmrt "RT"
             (:import-from "LISP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET"
              "%PUT" "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
              "%SET-DOCUMENTATION" "%SET-FDEFINITION" "%SET-FILL-POINTER"
-- 
GitLab