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