From 3a51c4de68fa2004b7ec114757a12704c314fbab Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 6 Jan 2009 18:17:50 +0000 Subject: [PATCH] Move defvar of *ALLOW-FUNNY-SLOT-NAMES* from std-class.lisp to slots.lisp to get rid of an undefined variable warning in slots.lisp. --- pcl/slots.lisp | 4 +++- pcl/std-class.lisp | 4 +--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pcl/slots.lisp b/pcl/slots.lisp index b940b3c5e..53ed544bb 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 fd6be9cf6..022fd1a93 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)) -- GitLab