Added slot allocation :special for which are internal to the proxy system

[clg] / glib / gobject.lisp

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index e3f91f0b051fd2c031708b12bd8d90a07a9d0e0e..43a8da7e9015b85265763024996f2a50b6713ef5 100644 (file)
--- 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)))