From 306d78147b5058753794738a3939391a36b39175 Mon Sep 17 00:00:00 2001
Message-Id: <306d78147b5058753794738a3939391a36b39175.1714378580.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 14 Feb 2005 00:45:23 +0000
Subject: [PATCH] :clg-pcl pushed to *features*
Organization: Straylight/Edgeware

From: espen <espen>

---
 glib/pcl.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/glib/pcl.lisp b/glib/pcl.lisp
index cba663d..72ebc49 100644
--- a/glib/pcl.lisp
+++ b/glib/pcl.lisp
@@ -24,7 +24,7 @@
 ;;;
 
 ;;; Modifications for better AMOP conformance
-;;; Copyright (C) 2001 Espen S. Johnsen <esj@stud.cs.uit.no>
+;;; by Espen S. Johnsen <espen@users.sf.net>
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -39,7 +39,7 @@ (defstruct slot-info
   (allocation :instance :type symbol)
   ;;
   ;; Specified slot type or T.
-  (type t :type (or symbol list number)))
+  (type t :type (or symbol list)))
 
 
 (defmethod compute-slots :around ((class standard-class))
@@ -117,3 +117,5 @@ (defun update-slots (class eslotds)
 	(update-pv-table-cache-info class)
 	(maybe-update-standard-class-locations class)))))
 
+
+(pushnew :clg-pcl *features*)
-- 
[mdw]