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 bbbd625e20cd9aee2c15a34a6c6b1147b8f44d15..2f447fb5bdd62eba16c64e4fe6d53949f03515df 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.
 
 ;; 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")
 
 
 (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)
   (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)))
 
              (class-slots class))
     (setf (slot-value class 'instance-slots-p) t)))