Advanced Search

Return to Snippet

Revision: 5233
at March 13, 2008 03:42 by jarnaldich
Updated Code 
;;; 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)))))

Revision: 5232
at February 29, 2008 11:02 by jarnaldich
Updated Code 
;;; Save
(defun save-db (filename obj)
  (with-open-file (out filename
                   :direction :output
                   :if-exists :supersede)
    (with-standard-io-syntax
      (print obj out))))

;;; Load
(defun load-db (filename obj)
  (with-open-file (in filename)
    (with-standard-io-syntax
      (setf obj (read in)))))

Revision: 5231
at February 29, 2008 11:00 by jarnaldich
Updated Code 
;;; Save
(defun save-db (filename obj)
  (with-open-file (out filename
                   :direction :output
                   :if-exists :supersede)
    (with-standard-io-syntax
      (print db out))))

;;; Load
(defun load-db (filename obj)
  (with-open-file (in filename)
    (with-standard-io-syntax
      (setf db (read in)))))

Revision: 5230
at February 21, 2008 02:23 by jarnaldich
Initial Code 
;;; Save
(defun save-db (filename db)
  (with-open-file (out filename
                   :direction :output
                   :if-exists :supersede)
    (with-standard-io-syntax
      (print db out))))

;;; Load
(defun load-db (filename db)
  (with-open-file (in filename)
    (with-standard-io-syntax
      (setf db (read in)))))
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Example of serializing a lisp variable.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Serializing in Lisp

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
file

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Lisp