;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: ginterface.lisp,v 1.12 2005-04-23 16:48:50 espen Exp $
+;; $Id: ginterface.lisp,v 1.14 2006-02-15 09:45:41 espen Exp $
(in-package "GLIB")
(t (call-next-method))))
(defmethod compute-effective-slot-definition-initargs ((class ginterface-class) direct-slotds)
- (if (eq (most-specific-slot-value direct-slotds 'allocation) :property)
+ (if (eq (slot-definition-allocation (first direct-slotds)) :property)
(nconc
(list :pname (signal-name-to-string
(most-specific-slot-value direct-slotds 'pname))
:readable (most-specific-slot-value direct-slotds 'readable)
:writable (most-specific-slot-value direct-slotds 'writable)
- :construct (most-specific-slot-value direct-slotds 'construct))
+ :construct-only (most-specific-slot-value direct-slotds 'construct))
(call-next-method))
(call-next-method)))