[mcclim-cvs] CVS mcclim

[thenriksen]

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))