Object serialization: Difference between revisions

m
(→‎{{header|OCaml}}: link to the module Marshal)
Line 1,717:
(2 . second)
(3 . "-th-")))
{(4 . 'sym) ; alternatively declared..
(5 . +)} ; ..associative array
#false ; value
-123 ; short number
Line 1,722 ⟶ 1,724:
)
;; Defined Object
#[((1 2 3 4) #u8(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-)) #false -123 123456789012345678901234567890123456789]
#ff((4 . sym) (5 . #<function>)) #false -123
123456789012345678901234567890123456789)
 
> (fasl-save Object "/tmp/object.bin")
Line 1,729 ⟶ 1,733:
> (define New (fasl-load "/tmp/object.bin" #false))
;; Defined New
#[((1 2 3 4) #u8(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-)) #false -123 123456789012345678901234567890123456789]
#ff((4 . sym) (5 . #<function>)) #false -123
123456789012345678901234567890123456789)
 
> (equal? Object New)