diff --git a/tools/worldload.lisp b/tools/worldload.lisp index c58998640f811890cfad92c3c01e91ffc2d6a27f..3e5879d329409262f108b9b17271d9e1f861b708 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -6,7 +6,7 @@ ;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.105 2005/02/21 17:14:29 rtoy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.106 2006/10/29 10:08:42 cshapiro Exp $ ;;; ;;; ********************************************************************** ;;; @@ -86,26 +86,6 @@ ;;; (maybe-byte-load "code:exports") -;;; Temporarily add OLD-XX nicknames needed for certain cross-compiles -#+pmax -(rename-package "PMAX" "PMAX" '("VM" "OLD-PMAX")) -#+sparc -(rename-package "SPARC" "SPARC" '("VM" "OLD-SPARC")) -#+ibmrt -(rename-package "RT" "RT" '("VM" "OLD-RT")) -#+x86 -(rename-package "X86" "X86" '("VM" "OLD-X86")) -#+amd64 -(rename-package "AMD64" "AMD64" '("VM" "OLD-AMD64")) -#+hppa -(rename-package "HPPA" "HPPA" '("VM" "OLD-HPPA")) -#+alpha -(rename-package "ALPHA" "ALPHA" '("VM" "OLD-ALPHA")) -#+sgi -(rename-package "SGI" "SGI" '("VM" "MIPS" "OLD-SGI")) -#+ppc -(rename-package "PPC" "PPC" '("VM" "OLD-PPC")) - ;;; Load random code sources. (maybe-byte-load "code:format-time")