;; 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.
(if (eq (slot-definition-allocation (first direct-slotds)) :property)
(nconc
(list :pname (signal-name-to-string
(if (eq (slot-definition-allocation (first direct-slotds)) :property)
(nconc
(list :pname (signal-name-to-string
-(defmethod validate-superclass ((class ginterface-class) (super standard-class))
- (subtypep (class-name super) 'ginterface))
+(defmethod validate-superclass ((class interface-class) (super standard-class))
+ (subtypep (class-name super) 'interface))
(declare (ignore args))
(let ((class (type-from-number type))
(slots (getf options :slots)))
`(defclass ,class (,(supertype type))
,(unless forward-p
(slot-definitions class (query-object-interface-properties type) slots))
(declare (ignore args))
(let ((class (type-from-number type))
(slots (getf options :slots)))
`(defclass ,class (,(supertype type))
,(unless forward-p
(slot-definitions class (query-object-interface-properties type) slots))