[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv32310

Modified Files:
	presentation-defs.lisp 
Log Message:
Moved presentation method to after the definition of the relevant
type.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/12/13 19:36:00	1.64
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/12/13 21:33:43	1.65
@@ -1632,11 +1632,6 @@
   :options #.+completion-options+
   :inherit-from t)
 
-(define-presentation-method presentation-type-specifier-p ((type sequence))
-  (and (listp type)
-       (consp (rest type))
-       (presentation-type-specifier-p (second type))))
-
 (define-presentation-method presentation-typep (object (type completion))
   (map nil #'(lambda (obj)
 	       (when (funcall test object (funcall value-key obj))
@@ -1840,6 +1835,11 @@
   :inherit-from 't
   :parameters-are-types t)
 
+(define-presentation-method presentation-type-specifier-p ((type sequence))
+  (and (listp type)
+       (consp (rest type))
+       (presentation-type-specifier-p (second type))))
+
 (define-presentation-method presentation-typep (object (type sequence))
   ;; XXX TYPE here is the sequence element type, not the whole type specifier
   (unless (or (listp object) (vectorp object))