在Lisp中序列化

Posted 2021-02-27

Example of serializing a lisp variable.

;;; Save
(defun save-obj (filename obj)
  (with-open-file (out filename
                   :direction :output
                   :if-exists :supersede)
    (with-standard-io-syntax
      (print obj out))))
 
;;; Load
(defun load-obj (filename obj)
  (with-open-file (in filename)
    (with-standard-io-syntax
      (setf obj (read in)))))