diff --git a/code/exports.lisp b/code/exports.lisp index f0bb3203ca957dfe43ae517098a0aa00d3f963d3..6bf57fe883ee2dd0eb669127772fdaee48de48f7 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.82 1992/05/21 23:26:21 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.83 1992/06/12 01:33:18 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -71,6 +71,14 @@ (if (find-package "RT") (rename-package "RT" "RT" '("VM" "OLD-RT")) (make-package "RT" :nicknames '("VM" "OLD-RT") :use nil)) +#+x86 +(if (find-package "X86") + (rename-package "X86" "X86" '("VM" "OLD-X86")) + (make-package "X86" :nicknames '("VM" "OLD-X86") :use nil)) +#+hppa +(if (find-package "HPPA") + (rename-package "HPPA" "HPPA" '("VM" "OLD-HPPA")) + (make-package "HPPA" :nicknames '("VM" "OLD-HPPA") :use nil)) (if (find-package "CONDITIONS") (rename-package "CONDITIONS" "CONDITIONS" 'nil) (make-package "CONDITIONS" :nicknames 'nil :use nil)) @@ -731,8 +739,10 @@ "DOUBLE-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P")) (intern name "KERNEL")) (defpackage #+pmax "MIPS" #+sparc "SPARC" #+ibmrt "RT" + #+x86 "X86" #+hppa "HPPA" (:nicknames "VM" - #+pmax "OLD-MIPS" #+sparc "OLD-SPARC" #+ibmrt "OLD-RT") + #+pmax "OLD-MIPS" #+sparc "OLD-SPARC" #+ibmrt "OLD-RT" + #+x86 "OLD-X86" #+hppa "HPPA") (:import-from "LISP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET" "%SET-DOCUMENTATION" "%SET-FDEFINITION" "%SET-FILL-POINTER"