anchor.diff:                        (equalp out struct))
                  (free p ts)))
              (compiled
  -             `(let* ((struct (ht 'x #\A 'y 123.0s0))
  -                     (out (ht 'x #\B 'y 124.0s0))
  +             `(let* ((struct (ht 'x #\A 'y 123.0e0))
  +                     (out (ht 'x #\B 'y 124.0e0))
                        (p (alloc ',ts struct)))
                   (unwind-protect
                       (and (equalp struct (deref p ',ts))
  
positive.code: 
  (define-struct test-struct
    (x char :initform #\A)
    (y float :initform 123.0s0))
  
  (deftest structs.named.alloc-read-write-free
      (let ((ts 'test-struct))
  
negative.code:                            'llong  123
                             'ullong 123
                             'pointer (cffi:null-pointer)
                             'single 123.0e0
                             'double 123.0d0
                             'char #\A
                             'wchar #\A
  