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