| 2008-12-26 15:14:10 |
Abdulaziz Ghuloum |
ikarus: statusexplanation |
Fixed in rev 1405.
> (let ()
(define-record-type my-thing (fields x))
(define t0 (make-my-thing 123))
(let-values ([(bvop bvop-getter) (open-bytevector-output-port)])
(fasl-write t0 bvop)
(let ([bv (bvop-getter)])
(for-each
(lambda (n) (printf "~x~x" (div n 16) (mod n 16)))
(bytevector->u8-list bv))
(newline)
(let ([obj (fasl-read (open-bytevector-input-port bv))])
(list t0 obj (and (my-thing? obj) (my-thing-x obj)))))))
2340494B30317B01000000574D73080000006D792D7468696E67464773020000006730731000000046246A392F35242F4C5877324A47395A46464904000000464D73010000007849EC010000
(#[my-thing 123] #[my-thing 123] 123)
|
|
|
