Initial data commit

Task/Object-serialization/Ol/object-serialization.ol

@@ -0,0 +1,38 @@
+$ ol
+Welcome to Otus Lisp 1.2,
+type ',help' to help, ',quit' to end session.
+> (define Object (tuple
+   '(1 2 3 4)  ; list
+   #(4 3 2 1)  ; bytevector
+   "hello"     ; ansi string
+   "こんにちは"  ; unicode string
+   (list->ff '(; associative array
+      (1 . 123456)
+      (2 . second)
+      (3 . "-th-")))
+   {(4 . 'sym) ; alternatively declared..
+    (5 . +)}   ; ..associative array
+   #false      ; value
+   -123        ; short number
+   123456789012345678901234567890123456789  ; long number
+)
+;; Defined Object
+#((1 2 3 4) #(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-))
+#ff((4 . sym) (5 . #<function>)) #false -123
+123456789012345678901234567890123456789)
+
+> (fasl-save Object "/tmp/object.bin")
+#true
+
+> (define New (fasl-load "/tmp/object.bin" #false))
+;; Defined New
+#((1 2 3 4) #(4 3 2 1) hello こんにちは #ff((1 . 123456) (2 . second) (3 . -th-))
+#ff((4 . sym) (5 . #<function>)) #false -123
+123456789012345678901234567890123456789)
+
+> (equal? Object New)
+#true
+
+> ,quit
+bye-bye :/
+$