anchor.diff:    )
   
   (defmethod schema-validate (schema data &optional attribute)
  -  (%schema-validate (schema-type schema) schema data attribute))
  +  (let ((schema (or (and (symbolp schema) (not (keywordp schema))
  +						 (find-schema schema))
  +					schema)))
  +	(%schema-validate (schema-type schema) schema data attribute)))
   
   (defmethod schema-validate :after (schema data &optional attribute)
     (when (and attribute (attribute-validator attribute))
  
positive.code:                       schema-attribute)))
  
  (defmethod %schema-validate ((schema-type (eql :list)) schema data &optional attribute)
    (let ((list-type (or (and (listp schema-type)
                              (second schema-type))
                         :any)))
      (when (not (listp data))
        (validation-error "~A: ~A is not of type ~A"
  
negative.code:                         attribute
                          (attribute-type attribute)))
      (every (lambda (val)
               (schema-validate (second schema) val))
             data)))
  
  (defmethod %schema-validate ((schema-type (eql :string)) schema data &optional attribute)
  