X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/b036d261787becf25cf92cc413d920d7fec3a9ea..c85a2bb25da13f3e73777a7aecfe1def8a375fe8:/glib/gobject.lisp

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index e3f91f0..43a8da7 100644
--- a/glib/gobject.lisp
+++ b/glib/gobject.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gobject.lisp,v 1.37 2006-02-02 19:51:33 espen Exp $
+;; $Id: gobject.lisp,v 1.38 2006-02-02 22:35:12 espen Exp $
 
 (in-package "GLIB")
 
@@ -182,7 +182,7 @@ (defmethod shared-initialize :after ((class gobject-class) names &rest initargs)
   (when (some #'(lambda (slotd)
 		  (and
 		   (eq (slot-definition-allocation slotd) :instance)
-		   (not (eq (slot-definition-name slotd) 'location))))
+		   (not (typep slotd 'effective-special-slot-definition))))
 	      (class-slots class))
     (setf (slot-value class 'instance-slots-p) t)))