anchor.diff:             ,@(when accessor `(:accessor ,accessor))))))
   
   (defun validate-varjo-type-spec (spec)
  -  (type->spec (type-spec->type spec)))
  +  (let ((spec (or (cdr (assoc spec *cpu->gpu-vec-mappings*))
  +                  spec)))
  +    (type->spec (type-spec->type spec))))
   
   ;;------------------------------------------------------------
   
  
positive.code: (in-package :cepl.types)
  
  (defgeneric s-arrayp (object))
  (defgeneric s-prim-p (object))
  
negative.code: ;;------------------------------------------------------------
  
  (defun buffer-stream-comptible-typep (slot)
    (let* ((type-spec (s-type slot)))
      (or (not (null (cdr (assoc type-spec *cpu->gpu-vec-mappings*))))
          (core-typep (type-spec->type type-spec)))))
  
  (defun make-struct-attrib-assigner (type-name slots)
    (when (every #'buffer-stream-comptible-typep slots)
  