Changeset 2610

Show
Ignore:
Timestamp:
02/24/08 00:35:11 (11 months ago)
Author:
hans
Message:

More multi-store fixes.
Silence random state reading.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/object.lisp

    r2602 r2610  
    453453 
    454454(defmethod decode-object ((tag (eql #\o)) stream) 
    455   (%decode-store-object stream)) 
     455  (let ((*current-object-slot* nil)) 
     456    (%decode-store-object stream))) 
    456457 
    457458(defun %decode-store-object (stream) 

  • trunk/bknr/datastore/src/data/txn.lisp

    r2609 r2610  
    106106 
    107107(defun close-store () 
    108   (when (and (boundp '*store) *store*) 
    109     (close-object *store*)) 
    110108  (makunbound '*store*)) 
    111109 
    …… 
    143141  (if (probe-file (store-random-state-pathname store)) 
    144142      (with-open-file (f (store-random-state-pathname store)) 
    145         (format t "reading store random state~%") 
    146143        (setf (store-random-state store) (read f))) 
    147144      (with-open-file (f (store-random-state-pathname store) 
    …… 
    152149 
    153150(defmethod update-store-random-state ((store store)) 
    154   (format t "saving store random state~%") 
    155151  (with-open-file (f (store-random-state-pathname store) 
    156152                     :direction :output :if-does-not-exist :create :if-exists :supersede) 

  • trunk/projects/quickhoney/src/init.lisp

    r2435 r2610  
    1010            "/home/hans/bknr-svn/thirdparty/cl-gd-0.5.6/cl-gd-glue.so")) 
    1111  (setf *hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf)) 
    12   (when *store* 
    13     (close-store)) 
     12  (close-store) 
    1413  (make-instance 'store 
    1514                 :directory *store-directory*