Changeset 12312


Ignore:
Timestamp:
Jun 28, 2009, 6:18:35 AM (10 years ago)
Author:
gb
Message:

HAS-LISP-SLOT-VECTOR, %REMOVE-LISP-SLOT-VECTOR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-clos.lisp

    r12055 r12312  
    146146      (#.objc-flag-class (id->objc-class-wrapper index))
    147147      (#.objc-flag-metaclass (id->objc-metaclass-wrapper index)))))
     148
     149(defun has-lisp-slot-vector (p)
     150  (gethash p *objc-object-slot-vectors*))
     151
     152(defun %remove-lisp-slot-vector (p)
     153  (remhash p *objc-object-slot-vectors*))
    148154
    149155(defun %objc-domain-slots-vector (p)
Note: See TracChangeset for help on using the changeset viewer.