diff --git a/pcl/slots.lisp b/pcl/slots.lisp index b940b3c5e51b12336f2a79c3595da72186390336..53ed544bb1825eed63ea37fe15e508d4b0edd495 100644 --- a/pcl/slots.lisp +++ b/pcl/slots.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.29 2008/03/25 15:05:54 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/slots.lisp,v 1.30 2009/01/06 18:17:50 rtoy Rel $") ;;; (in-package :pcl) @@ -100,6 +100,8 @@ new-value)) new-value)) +(defvar *allow-funny-slot-names* nil) + ;; Return T if X is can be used as a legal slot name. If X is not ;; legal, return two values: NIL and a string indicating why X is not ;; legal. diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index fd6be9cf6e0e3c8ff36328a2405daf29284e92ef..022fd1a9396c9b12b0a42f71db51eb278dc11d7f 100644 --- a/pcl/std-class.lisp +++ b/pcl/std-class.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.83 2008/05/24 14:41:39 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.84 2009/01/06 18:17:50 rtoy Rel $") (in-package :pcl) @@ -1111,8 +1111,6 @@ (mapc #'initialize-internal-slot-functions eslotds) eslotds)) -(defvar *allow-funny-slot-names* nil) - (defmethod initialize-internal-slot-functions :around ((slotd structure-effective-slot-definition)) (let ((*allow-funny-slot-names* t))