Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv17106
Modified Files: presentations.lisp Log Message: Added method on `get-ptype-metaclass' that specifies that a CLOS class is its own ptype metaclass (for handling of anynomous classes as per the CLIM spec).
--- /project/mcclim/cvsroot/mcclim/presentations.lisp 2006/08/05 19:54:31 1.77 +++ /project/mcclim/cvsroot/mcclim/presentations.lisp 2006/12/13 19:35:01 1.78 @@ -466,6 +466,12 @@ (defmethod get-ptype-metaclass ((type (eql *builtin-t-class*))) type)
+(defmethod get-ptype-metaclass ((type class)) + type) + +(defmethod get-ptype-metaclass (type) + (error "~A is not the name of a presentation type" type)) + ;;; external functions (defun find-presentation-type-class (name &optional (errorp t) environment) (declare (ignore environment))