From 32a31d27757b9d21743d25f6db708a69f0c574f1 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sun, 6 Apr 2003 09:39:24 +0000
Subject: [PATCH] 	* tools/pclcom.lisp: Remove reference to the
 slot-accessor-name 	package.

---
 tools/pclcom.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 47ec7fad6..4fc2a5189 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.25 2003/03/30 18:43:59 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.26 2003/04/06 09:39:24 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -71,9 +71,6 @@
     (import slot-unbound "PCL")
     (kernel:%set-symbol-package slot-unbound (find-package "PCL"))))
 
-(when (find-package  "SLOT-ACCESSOR-NAME")
-  (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
-
 (when (find-package "CLOS-MOP")
   (rename-package "CLOS-MOP" "OLD-CLOS-MOP"))
 
-- 
GitLab