X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/67985e36694d9735296f5d7d8b92fb2c6d088ea5..82defe4dc9622df17aa29d378eb6253aae01b606:/glib/gobject.lisp

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index bbbd625..2f447fb 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)))