marshal

* Use Cases
** DONE Marshal List
#+BEGIN_SRC lisp
  (fmarshal:load (fmarshal:dump (list 1 (list 2 3) 4)))
  ;; => (1 (2 3) 4)

#+END_SRC

** DONE Marshal Vector
#+BEGIN_SRC lisp
  (fmarshal:load (fmarshal:dump #(1 #(2 3) 4)))
  ;; => #(1 #(2 3) 4)

  (fmarshal:load (fmarshal:dump (make-array (list 2 2) :initial-element 0)))
  ;; => # #2A((0 0) (0 0))

#+END_SRC

** DONE Marshal Hashmap
#+BEGIN_SRC lisp

  (let ((h (make-hash-table :test 'equal)))
    (setf (gethash "blub" h) t)
    (gethash "blub" (fmarshal:load (fmarshal:dump h))))
  ;; => T


#+END_SRC

** DONE Marshal Object
#+BEGIN_SRC lisp
  (defclass test-object ()
    (test-slot))

  (let ((o (make-instance 'test-object)))
    (setf (slot-value o 'test-slot) "blub")
    (slot-value (fmarshal:load (fmarshal:dump o)) 'test-slot))
  ;; => "blub"

#+END_SRC
** DONE Marshal References
#+BEGIN_SRC lisp
  (defclass test-inherited (test-object)
    (object-slot))

  (let ((o (make-instance 'test-inherited)))
    (setf (slot-value o 'test-slot) "blub")
    (setf (slot-value o 'object-slot) o)
    (let ((loaded-object (fmarshal:load (fmarshal:dump o))))
      (values
       (slot-value loaded-object 'test-slot)
       (eq loaded-object (slot-value loaded-object 'object-slot)))))
  ;; => "blub", T

#+END_SRC


marshal

Upstream URL

Author

Maintainer

License

fmarshal

Version:

License:

Authors:

Maintainers:

Dependencies:

fmarshal-test

Version:

License:

Authors:

Maintainers:

Dependencies:

Dependencies (2)

Dependents (0)