diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index 7f4a99449cf6562c7c1a0f9ac6ce0ea64c95b771..210327ed4ca52794cc84f4a683b231ad299882db 100644 --- a/tools/pclcom.lisp +++ b/tools/pclcom.lisp @@ -3,6 +3,8 @@ (when (find-package "PCL") (rename-package "PCL" "OLD-PCL")) +(when (find-package "SLOT-ACCESSOR-NAME") + (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME")) (setf c:*suppress-values-declaration* t) (pushnew :setf *features*)