anchor.diff:                          attribute
                           (attribute-type attribute)))
       (every (lambda (val)
  -             (schema-validate (second schema-type) val))
  +             (schema-validate (second schema) val))
              data)))
   
   (defmethod %schema-validate ((schema-type (eql :string)) schema data &optional 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:   )
  
  (defmethod schema-validate (schema data &optional 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))
  