anchor.diff:      ((scalar-type-p type) (scalar-cffi-type type))
       ((structure-type-p type) (structure-cffi-type type))
       ((array-type-p type) (array-cffi-type type))
  -    (t (error "The value ~S is an invalid cl-cuda type." type))))
  +    (t (error "The value ~S is an invalid type." type))))
   
   (defun cffi-type-size (type)
     (cond
       ((scalar-type-p type) (scalar-cffi-type-size type))
       ((structure-type-p type) (structure-cffi-type-size type))
       ((array-type-p type) (array-cffi-type-size type))
  -    (t (error "The value ~S is an invalid cl-cuda type." type))))
  +    (t (error "The value ~S is an invalid type." type))))
   
   (defun cuda-type (type)
     (cond
       ((scalar-type-p type) (scalar-cuda-type type))
       ((structure-type-p type) (structure-cuda-type type))
       ((array-type-p type) (array-cuda-type type))
  -    (t (error "The value ~S is an invalid cl-cuda type." type))))
  +    (t (error "The value ~S is an invalid type." type))))
   
   
   ;;;
  
positive.code:           (cl-cuda-type-p base))))))
  
  (defun array-type-base (type)
    (declare (array-type type))
    (let ((type-string (princ-to-string type)))
      (cl-ppcre:register-groups-bind (base-string nil)
          (+array-type-regex+ type-string)
        (intern (string base-string) 'cl-cuda.lang.type))))
  
  (defun array-type-stars (type)
    (declare (array-type type))
    (let ((type-string (princ-to-string type)))
      (cl-ppcre:register-groups-bind (_ stars-string)
          (+array-type-regex+ type-string)
  
negative.code:       (intern (string stars-string) 'cl-cuda.lang.type))))
  
  (defun array-cffi-type (type)
    (unless (array-type-p type)
      (error "The value ~S is an invalid type." type))
    'cu-device-ptr)
  
  (defun array-cffi-type-size (type)
  