tests/alientype.pure-cload.lisp

   1 (defparameter *bool8type*
   2   #.(sb-alien-internals:parse-alien-type '(boolean 8) nil))
   3 (defparameter *s13type*
   4   #.(sb-alien-internals:parse-alien-type '(signed 13) nil))
   5 (defparameter *cstrtype*
   6   (sb-alien-internals:parse-alien-type
   7    '(c-string :external-format :church-latin ; we don't validate this?
   8               :element-type base-char
   9               :not-null t)
  10    nil))
  11
  12 (with-test (:name :hash-cons-alien-type-atoms)
  13   ;; restored as the right metatype
  14   (assert (sb-alien-internals:alien-boolean-type-p *bool8type*))
  15   (assert (eq *bool8type* ; and re-parses to the identical object
  16               (sb-alien-internals:parse-alien-type '(boolean 8) nil)))
  17
  18   (assert (eq *s13type*
  19               (sb-alien-internals:parse-alien-type '(signed 13) nil)))
  20
  21   (assert (eq *cstrtype*
  22               (sb-alien-internals:parse-alien-type
  23                '(c-string :external-format :church-latin
  24                           :element-type base-char
  25                           :not-null t)
  26                nil))))