Skip to content
Snippets Groups Projects
Commit 5d49d36a authored by dtc's avatar dtc
Browse files

Ensure that 'pcl::class is shadowed as it is used in ir1tran.

parent ad87ab44
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.154 1998/05/09 22:13:42 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.155 1998/05/27 03:32:59 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -13,8 +13,11 @@ ...@@ -13,8 +13,11 @@
;;; ;;;
(in-package "LISP") (in-package "LISP")
(unless (find-package "PCL")
(make-package "PCL")) (if (find-package "PCL")
(rename-package "PCL" "PCL" 'nil)
(make-package "PCL" :nicknames 'nil :use nil))
(shadow 'class "PCL")
(if (find-package "C-CALL") (if (find-package "C-CALL")
(rename-package "C-CALL" "C-CALL" 'nil) (rename-package "C-CALL" "C-CALL" 'nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment