bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

[bknr-cvs] hans changed trunk/bknr/datastore/src/
by BKNR Commits 23 Sep '08

23 Sep '08

Revision: 3950 Author: hans URL: http://bknr.net/trac/changeset/3950 Make it possible to restore datastores when packages have been deleted which are referenced by objects in the store. U trunk/bknr/datastore/src/data/encoding.lisp U trunk/bknr/datastore/src/data/object-tests.lisp U trunk/bknr/datastore/src/data/object.lisp U trunk/bknr/datastore/src/indices/indices.lisp Modified: trunk/bknr/datastore/src/data/encoding.lisp =================================================================== --- trunk/bknr/datastore/src/data/encoding.lisp 2008-09-23 19:26:10 UTC (rev 3949) +++ trunk/bknr/datastore/src/data/encoding.lisp 2008-09-23 19:27:58 UTC (rev 3950) @@ -355,12 +355,42 @@ (assert (= n (read-sequence buffer stream))) (octets-to-string buffer)))) -(defun %decode-symbol (stream) - (let ((p (%decode-string stream)) - (n (%decode-string stream))) - (intern n (or (find-package p) - (error "package ~A for symbol ~A not found" p n))))) +(defun find-symbol-in-all-packages (name) + (let (symbols) + (do-all-symbols (symbol symbols) + (when (string-equal symbol name) + (pushnew symbol symbols))))) +(defun find-symbol-interactively (package-name symbol-name usage) + (let ((keyword (string-equal package-name "KEYWORD"))) + (restart-case + (multiple-value-bind (symbol status) + (funcall (if keyword + #'intern + #'find-symbol) + symbol-name + (or (find-package package-name) + (error "package ~A for symbol ~A~@[ naming ~A~] not found" package-name symbol-name usage))) + (if (or keyword status) + symbol + (error "symbol ~A~@[ naming ~A~] not found in package ~A" symbol-name usage package-name))) + (use-other-symbol (new-symbol) + :interactive (lambda () + (format t "Enter symbol~@[ (homonyms: ~{~S~^, ~})~]: " (find-symbol-in-all-packages symbol-name)) + (let ((new-symbol (ignore-errors (read)))) + (list new-symbol))) + :report (lambda (stream) (format stream "Use another symbol~@[, homonyms: ~S~]" (find-symbol-in-all-packages symbol-name))) + new-symbol) + (read-as-nil () + :report "Read symbol as NIL" + nil)))) + +(defun %decode-symbol (stream &key (intern t) usage) + (let ((package-name (%decode-string stream)) + (symbol-name (%decode-string stream))) + (when intern + (find-symbol-interactively package-name symbol-name usage)))) + (defun %decode-list (stream) (let* ((n (%decode-integer stream)) (result (loop repeat n collect (decode stream))) @@ -370,7 +400,7 @@ result)) (defun %decode-hash-table (stream) - (let* ((test (%decode-symbol stream)) + (let* ((test (%decode-symbol stream :usage "hash table test")) (rehash-size (%decode-double-float stream)) (n (%decode-integer stream)) (result (make-hash-table :test test :size n :rehash-size rehash-size))) @@ -408,7 +438,7 @@ (%decode-uint32 stream))) (defun %decode-array (stream) - (let* ((element-type (%decode-symbol stream)) + (let* ((element-type (%decode-symbol stream :usage "array element type")) (flags (read-byte stream)) (vectorp (logbitp 0 flags)) (adjustablep (logbitp 1 flags)) Modified: trunk/bknr/datastore/src/data/object-tests.lisp =================================================================== --- trunk/bknr/datastore/src/data/object-tests.lisp 2008-09-23 19:26:10 UTC (rev 3949) +++ trunk/bknr/datastore/src/data/object-tests.lisp 2008-09-23 19:27:58 UTC (rev 3950) @@ -278,9 +278,7 @@ (test-equal o1 (parent-child o2)))) (defdstest abort-anonymous-transaction () - (let (parent) - (with-transaction (:initial) - (setf parent (make-instance 'parent :child nil))) + (let ((parent (make-instance 'parent :child nil))) (ignore-errors (with-transaction (:abort) (setf (parent-child parent) (make-instance 'child)) Modified: trunk/bknr/datastore/src/data/object.lisp =================================================================== --- trunk/bknr/datastore/src/data/object.lisp 2008-09-23 19:26:10 UTC (rev 3949) +++ trunk/bknr/datastore/src/data/object.lisp 2008-09-23 19:27:58 UTC (rev 3950) @@ -459,10 +459,12 @@ (defun snapshot-read-layout (stream layouts) (let* ((id (%decode-integer stream)) - (class-name (%decode-symbol stream)) + (class-name (%decode-symbol stream :usage "class")) (nslots (%decode-integer stream)) (class (find-class-with-interactive-renaming class-name)) - (slot-names (loop repeat nslots collect (%decode-symbol stream))) + (slot-names (loop repeat nslots collect (%decode-symbol stream + :intern (not (null class)) + :usage "slot"))) (slots (if class (find-class-slots-with-interactive-renaming class slot-names) slot-names))) Modified: trunk/bknr/datastore/src/indices/indices.lisp =================================================================== --- trunk/bknr/datastore/src/indices/indices.lisp 2008-09-23 19:26:10 UTC (rev 3949) +++ trunk/bknr/datastore/src/indices/indices.lisp 2008-09-23 19:27:58 UTC (rev 3950) @@ -295,7 +295,7 @@ (defmethod index-values ((index array-index)) (error "An ARRAY-INDEX cannot enumerate its values.")) -(defmethod index-mapvalues ((index array-index) fun) +(defmethod index-mapvalues ((index array-index) (fun function)) (error "An ARRAY-INDEX cannot enumerate its values.")) (defmethod index-reinitialize ((new-index array-index) (old-index array-index))

1 0

[bknr-cvs] hans changed trunk/
by BKNR Commits 23 Sep '08

23 Sep '08

Revision: 3949 Author: hans URL: http://bknr.net/trac/changeset/3949 Implement :filename-separator for directory-handler. If specified, the handler can concatenate multiple files. The file names need to be separated by the given separator (string or character). The handler requires that all files are of the same type (as determined by pathname-type). The last-modified HTTP header will be set to the maximum file-write-date of the files concatenated. All files specified must exist, otherwise the handler will generate an error. The path may never contain ".." as a security measure. This is meant to be used to concatenate Javascript and CSS files in order to minimize the number of browser-server interactions. U trunk/bknr/web/src/web/handlers.lisp U trunk/projects/quickhoney/src/webserver.lisp U trunk/projects/quickhoney/website/templates/index.xml Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2008-09-22 23:41:05 UTC (rev 3948) +++ trunk/bknr/web/src/web/handlers.lisp 2008-09-23 19:26:10 UTC (rev 3949) @@ -447,27 +447,78 @@ (defclass directory-handler (cachable-handler prefix-handler) ((destination :initarg :destination - :reader page-handler-destination)) + :reader page-handler-destination) + (filename-separator :initarg :filename-separator + :reader directory-handler-filename-separator + :initform nil)) (:documentation "Handler for a directory in the file system. Publishes all files -in the directory DESTINATION under their relative path name.")) +in the directory DESTINATION under their relative path name. Multiple +files can be served in one request by separating their relative file +names using the ampersand sign.")) -(defgeneric request-relative-pathname (directory-handler) - (:documentation "Return the relative pathname for the current -request as determined by DIRECTORY-HANDLER.") - (:method ((handler directory-handler)) - (or (aux-request-value 'request-relative-pathname) - (setf (aux-request-value 'request-relative-pathname) - (pathname (subseq (script-name*) (1+ (length (page-handler-prefix handler))))))))) +(define-condition directory-handler-error (error) + ((pathnames-argument :initarg :pathnames-argument)) + (:report (lambda (e stream) + (format stream "~A while processing pathnames argument ~A" + (class-name (class-of e)) (slot-value e 'pathnames-argument))))) +(define-condition invalid-pathname-syntax (directory-handler-error) ()) +(define-condition non-matching-filetypes-in-combination (directory-handler-error) ()) +(define-condition files-not-found (directory-handler-error) + ((files :initarg :files)) + (:report (lambda (e stream) + (format stream "~A while processing pathnames argument ~A, file~:P ~S could not be found" + (class-name (class-of e)) + (slot-value e 'pathnames-argument) + (slot-value e 'files))))) + +(defun request-relative-pathnames (handler) + "Return the relative pathnames for the current request as determined +by DIRECTORY-HANDLER. Caches the list of validated relative pathnames +in the aux-request-value 'request-relative-pathnames." + (or (aux-request-value 'request-relative-pathnames) + (setf (aux-request-value 'request-relative-pathnames) + (let* ((pathnames-argument (subseq (script-name*) (1+ (length (page-handler-prefix handler)))))) + (when (or (search ".." pathnames-argument) + (eql #\/ (aref pathnames-argument 0))) + (error 'invalid-pathname-syntax :pathnames-argument pathnames-argument)) + (let* ((*default-pathname-defaults* (page-handler-destination handler)) + (filenames (if (directory-handler-filename-separator handler) + (mapcar #'pathname (split (directory-handler-filename-separator handler) + pathnames-argument)) + pathnames-argument)) + (types (mapcar #'pathname-type filenames))) + (unless (every #'equal types (cdr types)) + (error 'non-matching-filetypes-in-combination :pathnames-argument pathnames-argument)) + (unless (every #'probe-file filenames) + (error 'files-not-found + :pathnames-argument pathnames-argument + :files (remove-if #'probe-file filenames))) + filenames))))) + (defmethod handler-matches-p ((handler directory-handler)) (and (call-next-method) - (probe-file (merge-pathnames (request-relative-pathname handler) - (page-handler-destination handler))))) + (let ((*default-pathname-defaults* (page-handler-destination handler))) + (some #'probe-file (request-relative-pathnames handler))))) (defmethod handle ((handler directory-handler)) - (handle-static-file (merge-pathnames (request-relative-pathname handler) - (page-handler-destination handler)))) + (let* ((*default-pathname-defaults* (page-handler-destination handler)) + (last-modified (reduce #'max (mapcar #'file-write-date (request-relative-pathnames handler))))) + (handle-if-modified-since last-modified) + (let (open-files) + (unwind-protect + (progn + (dolist (pathname (request-relative-pathnames handler)) + (push (open pathname :element-type '(unsigned-byte 8)) open-files)) + (setf (header-out :content-type) (or (mime-type (first (request-relative-pathnames handler))) + "application/octet-stream") + (header-out :last-modified) (rfc-1123-date last-modified) + (header-out :content-length) (reduce #'+ (mapcar #'file-length open-files))) + (let ((out (send-headers))) + (dolist (open-file (nreverse open-files)) + (copy-stream open-file out)))) + (mapcar #'close open-files))))) (defclass file-handler (page-handler) ((destination :initarg :destination @@ -538,6 +589,7 @@ (handle-object-form handler action object))) (defmethod handle-object-form ((handler edit-object-handler) action (object (eql nil))) + (declare (ignore action)) (with-bknr-page (:title "No such object") (html "No such object, ieeeh"))) @@ -573,6 +625,7 @@ (defgeneric object-date-list-handler-date (handler object) (:method ((handler object-date-list-handler) object) + (declare (ignore object)) (with-query-params (date) (get-daytime (if date (or (parse-integer date :junk-allowed t) Modified: trunk/projects/quickhoney/src/webserver.lisp =================================================================== --- trunk/projects/quickhoney/src/webserver.lisp 2008-09-22 23:41:05 UTC (rev 3948) +++ trunk/projects/quickhoney/src/webserver.lisp 2008-09-23 19:26:10 UTC (rev 3949) @@ -41,7 +41,8 @@ user images ("/static" directory-handler - :destination ,(merge-pathnames #p"static/" *website-directory*)) + :destination ,(merge-pathnames #p"static/" *website-directory*) + :filename-separator #\,) ("/MochiKit" directory-handler :destination ,(merge-pathnames #p"static/MochiKit/" *website-directory*)) ("/favicon.ico" file-handler Modified: trunk/projects/quickhoney/website/templates/index.xml =================================================================== --- trunk/projects/quickhoney/website/templates/index.xml 2008-09-22 23:41:05 UTC (rev 3948) +++ trunk/projects/quickhoney/website/templates/index.xml 2008-09-23 19:26:10 UTC (rev 3949) @@ -7,17 +7,9 @@ xmlns:quickhoney="http://quickhoney.com/"> <head> <meta name="verify-v1" content="0lfE42KxaTLpCzUEkuTA7V2a9Ojdwk9BG2XSaZGPaoA=" /> - <link rel="stylesheet" href="/static/yui/reset-fonts/reset-fonts.css" /> - <link rel="stylesheet" href="/static/quickhoney.css" /> - <link rel="stylesheet" href="/static/index.css" /> - <link rel="stylesheet" href="/static/ydsf.css" /> + <link rel="stylesheet" href="/static/yui/reset-fonts/reset-fonts.css,quickhoney.css,index.css,ydsf.css" /> <link rel="alternate" type="application/rss+xml" title="RSS Feed" href="/rss/quickhoney" /> - <script src="/static/detectplugins.js" type="text/javascript"> </script> - <script src="/static/AC_QuickTime.js" type="text/javascript"> </script> - <script src="/MochiKit/MochiKit.js" type="text/javascript"> </script> - <script src="/static/javascript.js" type="text/javascript"> </script> - <script src="/static/yui/yahoo-dom-event/yahoo-dom-event.js" type="text/javascript"> </script> - <script src="/static/yui/animation/animation-min.js" type="text/javascript"> </script> + <script src="/static/detectplugins.js,AC_QuickTime.js,MochiKit/MochiKit.js,yui/yahoo-dom-event/yahoo-dom-event.js,yui/animation/animation-min.js,javascript.js" type="text/javascript"> </script> <title>QuickHoney</title> </head>

1 0

[bknr-cvs] hans changed trunk/thirdparty/cl-stm/
by BKNR Commits 23 Sep '08

23 Sep '08

Revision: 3948 Author: hans URL: http://bknr.net/trac/changeset/3948 Add cl-stm for inspection. A trunk/thirdparty/cl-stm/ A trunk/thirdparty/cl-stm/COPYING A trunk/thirdparty/cl-stm/TODO A trunk/thirdparty/cl-stm/_darcs/ A trunk/thirdparty/cl-stm/_darcs/checkpoints/ A trunk/thirdparty/cl-stm/_darcs/inventories/ A trunk/thirdparty/cl-stm/_darcs/inventory A trunk/thirdparty/cl-stm/_darcs/patches/ A trunk/thirdparty/cl-stm/_darcs/patches/20060525085930-887f0-f1ca2a57340cdad7d57a5c5e5f65d7fe0d590c0b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060605062803-887f0-f92b40055ef77b281af0f23cd06378da264eb780.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060605063115-887f0-cfb45d6a9d663ffedb3bec9b76941e0f705a7a59.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060606121117-887f0-2aecd22c34db5a485390d6af6dbfef099a95fa7a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060606121553-887f0-57d7807b66aa852b1029cff69da19614d0289d80.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060608014330-887f0-c627e0dc8a590e9c155705791af86d688a2bf838.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611082147-887f0-7e815b28a2355fd5e3b8a9da64fd97f71ca870e9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611083324-887f0-502c135f5463dcbe6618999b635b71c7b01a4901.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611090727-887f0-ef36bd11b2781a5176d1aea12aa21f7b38463f06.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611102340-887f0-52a483ff7f42a76c3ecf6769b795f538a9c514b5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611102438-887f0-5a0ec969ff770ebec6b79f8291eb90f320a9b894.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060611233628-887f0-0687e19fb9bd6a33d98093aaa81d47f49ef2a917.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060612061922-887f0-ac10eb1e2b13922662c48a7ab745c0568ce7d1c1.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060612061959-887f0-c18682047a7b32ed6106a669f0cc035a1575727e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060612135017-887f0-d4ddeb96f4e8f2f11c9461b5ec0ac07ea818abd6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060612135103-887f0-0150ea3ec6472709e70822668c04e23513ff907e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060613093335-887f0-5f96e5eb4c94777ea4ab34ff5ac319b46ff6bdef.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060613145038-887f0-d3300b840152a3162b33beef7f83885e30584122.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060613145917-887f0-7b9146b2305976b51657ad950f4c64254562372c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060613150053-887f0-108f6a0703db9adcc6d57aec2b29d8c9958098c4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614034557-887f0-740a6de60e0bec9673fe78d8faca7a19dc310b93.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614035441-887f0-f39b12b232278aadb79e7de902e4796e1b3a545e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614041736-887f0-91baf136bc9848b2ce2fa428ba91e9a6628525a6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614074234-887f0-b8bef8854d188844534af98183a303362f33a1ef.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614080057-887f0-f02e339a777d86bcb34d7e1a9689384cacd5cf9c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614081054-887f0-4532226ff6ab62e950f69659841400e8e5c404c3.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614090359-887f0-2bedc502a788d53fa19a56022e0a542ff650c10b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614121824-887f0-3f663a0a9908c75e2be1af27385752c7b5861f0c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060614121848-887f0-c2120ddc2fb2511fbf556b0fe96bc5cfa76a5466.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060615032236-887f0-5791988ed6db931b4cde9862f411914d7f690cb9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060615033024-887f0-0e4c3959b9c283aff805855af33a6c0c79897161.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060616033827-887f0-bec6b904bb2d15502b54eb0fafd315db512b69bf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060616033859-887f0-f10a99b565962dd22be3f416bd34980fdff291d6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060616043113-887f0-8ecb8c368365376553d66e0fefa89afacd193c90.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620004637-887f0-445c5008319896162ffe7392bc29404268d468f5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620092352-887f0-aefbeaf58a65033e6b64228f5d3e7cbb5e55ad36.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620102003-887f0-233c6a8f955081728a90db19ab5cd541fb88c518.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620102121-887f0-75c3a319baeb6c1e34a64657370584c22be77f8e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620112131-887f0-198f4c806eb72a10e9ef89afc3d7added375a611.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620112149-887f0-2f24e7b0a6e915e938e0e44825b5ee0651124d70.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620115200-887f0-f19b4dfe8ee2f32fc88cf2db976662d8e74d3a8f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620115217-887f0-22477409325859ac1bec4268c0d82dd72a1cce79.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620121215-887f0-a4b7ad2040b6b8d8a6e9a7786966601f6b356990.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620235502-887f0-661da96177b3b66178620477e2299e01ff3e74ad.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620235754-887f0-f164ebcefc9263873724d7406067e5fc56f5a2b6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060620235909-887f0-f9aa798bf0d507373a81fa44829d6fe7e28dc5c0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621001936-887f0-1675325f7c398f5a1ea79a9ba9568fdfbfda6e40.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621002407-887f0-00bc86652964ae9e3cc509d980a3593d2178dd62.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621052447-887f0-df7bdffa4d364562ef4cb299eea81029f2ebce8c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621052848-887f0-c567f7471218f28c11fff5069c5e8d5cb7d85b3e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621054005-887f0-b537bd00ba49da31b242ce48f23795257509e459.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621090431-887f0-e32ac370d599986cee36bf6606d65950b3124caf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060621114449-887f0-9da0f3f74f98472fb5e7fd9f04a2124b625a4b18.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060622010216-887f0-23a1570e6c26caae9188489a96cf72d1edd6a57b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060622031011-887f0-107444680f84ca277daa07ec24f7638a80af8933.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060622231126-887f0-0019f626e695386cf9142bb752378003ae6bce6c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060623002506-887f0-92a1eeae478dd7f9e59ea360b26a44b63f2e3204.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060623002936-887f0-84b579e3c9c2eaf23c2b866165c8a512018ba155.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060623003857-887f0-15e337a7386ea5e1f74a26129a0dec8f34637c1c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060625051949-887f0-7387c9db48ca532147d6112798d80a14724604b5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060625052744-887f0-c0cc07b79ed15b48ecd01810f0f4cbb852bf2f25.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060625054154-887f0-93e59b474bdd158779d5f825b74386535c1f6560.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060625062327-887f0-d752935f44beae267c066d573614413d4e442b3b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060625234412-887f0-6b11824312f926c53a3aa4cb12434d0c45434aa9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626033014-887f0-d452ed856d7800e7dfa0ccd74c46345464d8e414.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626034417-887f0-eaaf0ad8dec689357079cd6e3362dc5658a8f20e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626034849-887f0-e8cdd99ccc0116e2a5844b6763d5d8c5d4294e5e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626035234-887f0-db97af260071bb82bdb0f8a1c0723b5b969db2da.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626035413-887f0-249dd21135dd8e4b4689958151bfa448cc4331f4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060626044040-887f0-861494154b9db188398ec0123da6e1528a6b3393.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628040610-887f0-caa06ad4ecf2ccf7f4da0af103f7a19879278561.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628040753-887f0-beb47e0db03908ffd6eac1ee8abac95614ea7abc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628041135-887f0-c49b85364cc94136f3aa68843d42dd724a2ac81a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628041428-887f0-265128ed1952f15a542ca0d5580cdf3a8dad0a30.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628042032-887f0-3bcf1c663595f73a9b8892405e0f991e3a5eaa65.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628042230-887f0-871135f290dfa77ab5c323204c7438b0b3cf2672.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628042450-887f0-2668df00f742779b618bf9f06c4471fa0f14186e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628043331-887f0-feeda5d9d1a03d83ecf02a40b477180f69d5137a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628043402-887f0-176106f5b5d76d519c4996b435ff78193655638d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628043415-887f0-58e4a21cb2854dff00405c4d0570cc1ca586cb60.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628043819-887f0-9451ddac08c34644b2edd5269d045689c396252b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628043925-887f0-2d1d139e3e147f5c2e159839f9121122584cf61a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628044219-887f0-5393206b4db1d63f426031d37ebf08b88f4c9209.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628044719-887f0-9f6c84b17ab09d0dddaaa0932537054cf57599b1.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628044837-887f0-2c03b0321cb00e4885e3843d0d103e038f715715.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628045145-887f0-7f83017eee8131e1f719d4a65b2ad4795b0f1d64.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628045248-887f0-5cfb77efd76e60534757ef0179e988a39bdf3d15.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628050122-887f0-19126e6ca4222ac8fdd5d0cb6c1f21cf690f1f56.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628050456-887f0-b7539b5a4063dd3e6da9c5903044f4c1c369dcdc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628051711-887f0-62081ea902c3c12457f7a3706aab4ebdc9de0c17.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628051723-887f0-5dd66fa238b6dedb236e6319218cc8fd1e8e533d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053032-887f0-7ecfd22f1b802fc53534bad3ac08a7c904bceeb3.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053203-887f0-2a172b56337d6a06efcdc4d1719e8ebe4c1500a4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053324-887f0-ed2aa3b8dd0a6382f7140baacee113c9549f8a8f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053428-887f0-e867fe3082b4507a5555ad20ede707ab67307b8e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053711-887f0-a26335e1f24c68ae9e4f3c6e522ec106e30a88bd.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053731-887f0-0f0e141bbd5bb092da69d11a8ab76fb6fe690ea7.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053752-887f0-b4b8e6c74e06d6a1033b06c7822bd5620fa666b2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628053907-887f0-660499286324c97f3335690f6a34a868c95dd67b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628054302-887f0-8bef225922a2e8d8cee102f286f2b5d15de673c7.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628054419-887f0-d4f1f239b66fff7bc79445929dd20043fce553f5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628054555-887f0-51596393c4d45a21cf5e627ded88045e441d4fc2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628054823-887f0-3b5854cb3373e07cc1c5939300fd7c806daf575f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628064906-887f0-20f892d8df8cfafb66e32bd7f0b70c206ae7ede2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628071341-887f0-4272118e65442e22d96ecfe6d0c0742b1eca70b0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628072114-887f0-69d1b1b946e62528cc9f61f808c091bc0083daf5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628072250-887f0-a108c2c932b90134f46d4a84e6a920d7fc0fd405.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628072338-887f0-c42af9e9652e8f14e4d65275611ac88419ca683c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628072738-887f0-0e08e77cc6e7e21a86357e6c3e8c874f955d3bf6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628072823-887f0-d55cacbf3e8bf7cb7a19fad743584e476d778baa.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628073153-887f0-cf01b56dd29fad6fcd11be446719ec60ba089527.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628073718-887f0-c6d06f42abdc917cbc66a9bcf05654e0f78865fd.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628074411-887f0-7897081617f3a7385eb4e491aa8d766ebe80d1e0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628074513-887f0-ab9c28532a5826d4a32bec238384115b13585b4b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628074543-887f0-ef64b8abcfcfad8546606183b77941920ae89ae3.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628074554-887f0-ad96431c49ededdfe3cfe3e36b75f5da0f5d673a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628075108-887f0-32b86e7981c8fd9fea7f9720626ed8c8adc66804.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628075455-887f0-7a21a3fb8f179701fd43f029f81c5fa42ae5cb40.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628132633-887f0-160c13f0812a8b63120a29def095a52de2096fd3.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628132723-887f0-cd37a0e871973f5054fcb5ff05745d08619c1671.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628133801-887f0-748df9a485036bc9629a8e20ce4da798a35325be.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060628135954-887f0-4a43ca10268fd86c2a00427904ce3f19974cfe8d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060630072155-887f0-d5ff33947ab7ffb3329e4576521097d71aff7ea4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060630094743-887f0-c6990c51a387504f69ddb7416c8722d693a03d50.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060630103744-887f0-682f9f3538e037f30d3fe4339c0fe6af9fdac419.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701011258-887f0-ed80dda5e1f4cc3c70e9c186dc4ec186db4cf7ca.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701011356-887f0-319c8da4cab143818d93be6beb7d0fa43ef95578.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701011402-887f0-52ed770dcd15bfaa6123675e81050dc1953c77fe.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701032123-887f0-7d9555215ba4af7e9ed7bb0d6b9a6bc18ccba40f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701032324-887f0-e959db2b2f5646deac5131c101cac861cbc076c1.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701034031-887f0-2c8d853f5b84d7e5cc1d536576ad9fa5bf19b35d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701034046-887f0-1fae69e8d8eb7788aede7ecabd085c501d16e0fe.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701035129-887f0-98edbae8800ec34b9f8359a55b409cbe3bda812e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701084522-887f0-8ac9eaa9339cbc6878e1abfc2a38cead0fd29520.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701101133-887f0-9e3257c54f27c5ff3b4197b1703b4f507b40ba30.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060701233154-887f0-63fecf920221926360fe6653da1baa0305ab1b47.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060702024405-887f0-d98b24083614f71a6669fb2552de743949811d76.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060702024455-887f0-f65c27591a95ab9cda7cdb0177efd8a70b83bd2d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060703001920-887f0-fc947a24b2e9676625527f2714aa8e12ab24db69.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060703005814-887f0-d9752c9fb2597fe8703f4c0f1dbf94850404abe8.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060703010129-887f0-bbdb4dd83bb8d25d52e717f53079cf3a4c1ee1ca.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060703112056-887f0-358e92f41a7955a4f8f03088c141013fb1218366.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060703112105-887f0-c7a4d9fe823e4744177744ec6761f8aeb81374aa.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060704104623-887f0-e10c299018161b410a6ba18cfaef97ec7bcaee72.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060704104659-887f0-d6a19d0d86c9fd7ccf58dbffc43584322a9cf59f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060705014424-887f0-d15c292ba6a73f3ba1cfc325e4e5a36b77d188b6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060705015011-887f0-a403bd565642f4e843bea1bc14356e476e7430cf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060710092538-887f0-dcc30e91894943d3b09cb6ef3b929c8ac27ce416.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060710094057-887f0-ea2a9bb2c64c3dd0471e96b2fe337af00b449d8e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060710105343-887f0-8df6eda66802981c9e42cb6d7fdc3d1177b13426.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060710105402-887f0-79849d781f4e042b565d3e1c94d78cd1d99b5648.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060716035440-887f0-2ddf232fbbc58ce94d67dcec381506c94ca4fac0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060716035501-887f0-f513f4c0cf5c7f14f22b08291de5e9deb8a780fd.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060716050340-887f0-861abeb76611342f7d40dddec17f0854304550fb.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060716050408-887f0-03009e417e0fbff15132c89b89f3096b1a81597e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717021616-887f0-efd23eda01bd9c0ddba4db0a73b14f6ee725f9ce.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717042043-887f0-c9340f08a6c5c925c706fb46e0b638984c2b88fc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717042546-887f0-7d83f5f228197159843cc4eb291215f8875742d5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717044426-887f0-29641eadfb4b69ac691558cb5f252775c110ba21.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717044855-887f0-3c96b54f4104d21a6bcf5d0a74bcd2d847058f2c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060717044907-887f0-53f2d21914393031cb82a358733cde3d685eeedc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060718064247-887f0-e31e5c8fa2a0c6d30331b9bba8a1bcafaf9d14a5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060718234843-887f0-26eb696a26392717e6feac4bd71292496ee68241.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060718234902-887f0-5544950010c2406790713c9d42e4ee885f90de51.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060718234920-887f0-1226c7207c3c402edc5a20cdc89e80eb556e127b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719002015-887f0-3ea4984b0d36e7d4eac310d87622cdde9bafbce5.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719005614-887f0-10c5f9c64a50fa8127135033919cc9fabcaab502.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719011146-887f0-787e8fcb83eb80200cdd91d51234d3df763ad08e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719011225-887f0-cfd9223baa1589eedd18f548f6fdeee01221e910.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719012925-887f0-da7ce1d0bad46e797a8c92cc15e5a23f9eb1fb2a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719015459-887f0-69c00c3ffc2fab04030bc2c1611448990d4fd73a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719015610-887f0-45f78f333b17cc9e7c607d4febfdeef3c69d461f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719015655-887f0-d255e144650ec7054f0f66b37d4ba432813a770d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719020321-887f0-9562bb53afabb7d92440bd60e2c22f738e1bc056.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060719020346-887f0-892fb281e79978db9334aa6d46b5ced8a1253ddc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060724224032-887f0-a37f2aa81e7822584fd19cb53ab90d33678bc990.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060724235132-887f0-7abbb717573401df9fefd3c7f57706f810b4bdec.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725005309-887f0-3ac756b543bc828cf6580d282ebf77d109f7c5c1.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725012346-887f0-bab30698890edaf279ca4e7cf59c1c32337d2e58.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725020044-887f0-69ed502c6bf9d3c0013adb0a6c6551269311bfe2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725020657-887f0-48cf7ec6805c36e68754d1406b1247d9e4a240f6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725021532-887f0-5261498f05dbdc851be856d8a7bf1df2b599646e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725022701-887f0-315a4f93e6e0cb2e681d11036d8b2fef113b567e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725023205-887f0-588625b7e3cda97888f22e291dd81505bdc34ead.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725023901-887f0-7b4a256d540bf0b2b38ffe475c9de39f3599ac24.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725024053-887f0-80b09eba2cd7af41490e49a84d802f11e5151ce6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725025039-887f0-3ea02eceb8667253d7ab127bed1ac819ca68e89e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725025447-887f0-f86ff7e1c94dc0b53cb2588557eb0b2ae7ac0281.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725025715-887f0-736bf48daefe935def9dac8a75b9f2ab00e44760.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725034236-887f0-c10b819e97e661c18e1ba6465e9ed8511d5bf3d4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060725041904-887f0-542d6a189eb0964ec864d8fc4f463ed31abb2e15.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726044955-887f0-4413d7e100f4d999ae7a0f3b4275ba9273f378bd.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726083834-887f0-6f20a89e8617c82fa7047e54a81a42575196506c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726085035-887f0-92441b6550a2e09fda5ee84ee7e4af64d73d4ec8.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726085827-887f0-f747a3d1266847a7fc225534db1b6454bf2c0d4b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726091805-887f0-c55274c6dd7734f9263ac1f4deae1c9d41548abb.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726091844-887f0-32b2d97adc0c578f76f179946375dd611de027f9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726092036-887f0-407b847943bc432a3712e431ff20107e679e8acf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060726100812-887f0-3287a9f9725a02c6b322e28c1ba675f46e25fd95.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729000823-887f0-09482529956e9baa35bf45a7956c2052afdb8fae.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729001851-887f0-367922b7993487bce0547044a4daff97af1a3734.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729002646-887f0-deaf5c6b2780299eebcf6c42ba78c461b8a755c4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729005214-887f0-16f5062033dc645843b9bf4485c54b0f673fce42.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729010532-887f0-61328412a115578dc717632e38ecd3c617593d8a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729011324-887f0-012a4eb295567e431031d8349df0120177cf74d7.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729011357-887f0-6a08f7e7619185e71dc01b246f4feb93408487ab.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729013259-887f0-79c13a835a922016d5c425d88e96eedf804d8aba.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729013847-887f0-d1b7c77047984e0b98fd561ce69dfa6529fb75f7.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729014343-887f0-f54e99ec23c9be6727ab5af90631c88b39115f80.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729014605-887f0-59bcf9898bab531edb1d5427f3c2cf8b32bbd2fb.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729015401-887f0-1cb9ade300c72fcd93aa53a29d89b55ea01b8744.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729015519-887f0-2fdf8f1bb9cf8354255f74920273459788874bc0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729022028-887f0-479022f2c98e4d893252377d2621c488372d2e8e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729022542-887f0-4429e68eca60b55b366dff3b7c69f18c8827c43e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729023027-887f0-079af49ade9ef20c8180734eb006138a68239a94.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729024502-887f0-1c8f01ac4bb86f0029978554d4dc2be88bf54105.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729024858-887f0-1efd494103c37ebd20f8cd9801017e5fc8f7f7c0.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729025658-887f0-1d279e9ef48c52e8d0fca72ed721600786bfe53d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729030040-887f0-602d67de4a5fc97a98ee90745b22be755f940822.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729030248-887f0-756b7e827493f856129764457e6db46976b9ca54.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729030607-887f0-8d2b2bc1f4c015368bec8ceef7aabe1bbbf721ee.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729031525-887f0-eab5507aa890807c112151742925c079c42fe006.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729031623-887f0-25e187b0dee1270002de1fe903cf7cea6c444934.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729221418-887f0-113f32040fc2f70a44bd6fe2ea2ad57738cb92b8.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060729221715-887f0-0c0c551d00ba598f9c82a087deb4668945c58533.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730002630-887f0-cdfc09aa46131842781d0e6da1c1e91bfc245585.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730003407-887f0-a7ba70ff332a903b278b9335631e4d12f9a8a861.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730012337-887f0-e500eecebcd3b473f433e7f1d1fe658f57b691b7.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730012445-887f0-84bfde9456fc42fe3e50b8f84aac4bf28fc34adf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730013259-887f0-d2a3e103206cca617b9e7e0a1a946182a8380fa9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730014000-887f0-76affaadce265ccbce45ffa537be7299f263a25a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730014024-887f0-60c0a1b37bc85cce81b070bc0fb1a18c97a9c407.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730014139-887f0-01f42209983ac5c260d9ed9818e2082f98b5fe4e.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730220955-887f0-a6a4291097c036e98e12b09ab57af67ef4cd70bc.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730221308-887f0-d257bc36762f1062c149a2f663138ad77a5d6c01.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730221928-887f0-24af4e81b044463f078bcd24dd3c96689de180ba.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730222026-887f0-c9bb261c391f63ba4436604af2e2a0e9736da8d4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730225423-887f0-2e94e5742874b5d361ee4e81927eca87ecc9a121.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730225624-887f0-652beee89d50810eed3c63248c761cd65635173a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730225643-887f0-7ec80b11de672ffc9add594fcc1d9640b7a2ba4f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060730225912-887f0-525e2aa2a90849afd3113e0747af9d718eda7bb4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060731010821-887f0-6d1573bb89e89cc89d527d5a3be7c412339f53b4.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060731011956-887f0-44dee08428ebb337568c3961e8e7a4c5c1548edf.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060731012153-887f0-a1bfd32c0cf974dd5b56e4997d358373e81820c8.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060731233658-887f0-6f9f45f9dcdf4cc690de85159a4fc1354086f25b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060801003510-887f0-a6f212ece8dc128e829ebd6dee44f9861067ad1c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060801010433-887f0-b3b4d0b60ddf9a2ca8a76be271a193a9a5988d20.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060802012655-887f0-f8729f863cf341d2454aee0c52e054e07f1f70d8.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060802012740-887f0-66ceafed592d52aecef2f8559b6648b38483ee93.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060809103058-887f0-dbac62f68c308912a8b1c03b1a8241b13fe89ed3.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060809103141-887f0-526ba166c3c77899f4552a6df79f595052f3238a.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060809230238-887f0-a87e6199ef48b3d6a5634cdf7bfbcec0230371ab.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060810002140-887f0-6a6510a58cd582e6828d1b26d7cf5e435e262c3d.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060812012506-887f0-99123ad1377c2ef8eb70eb7b21960a094dc27f2b.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060812012804-887f0-336d15573eaa85fc18b52e96fdb9cebc7d3fc7ba.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060812023722-887f0-40f63f327b7551df24f870488c5fd25187d3b676.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060812024155-887f0-e506b2555bb6e927d4cb8bfb4ee0b1d4d63799ff.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060817222347-887f0-7a195f6e43b5526af837e733201799d0f9ea4881.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060817230529-887f0-5f652cf10f570861b7b130275569a30322cc06c2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060817230559-887f0-ac436777d01e29ad00377d1c984db6b4ddcdc67c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818012331-887f0-e39033ca98e82cb42a576f14e594b39cbcdd6432.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818013515-887f0-5c66f49f00fdb9fd696b4176fe0f472428b3b253.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818013552-887f0-2a1e9bf230e046b12a2eea79f19f1c0ce9978849.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818044157-887f0-7600dc1499d1bec21770910f4a123e32854ed631.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818055419-887f0-a86b102318ec01c99b7dda776a173d68e8a2d0dd.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060818060851-887f0-48875255e5eb847baff1528d882658dc63713452.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819022143-887f0-5e6d2d600bcb7d87374f06b913f626b154cf5d15.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819022411-887f0-281cdec19a82de7e0f7162e8c86934052cc661aa.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819022525-887f0-3566c36ecb0a8424819f529defe387fe7a65565f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819024520-887f0-37bfc98bf5b4fe09e59ca17edf211274962313f6.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819050157-887f0-14af06c69deef4c76a78ab3aded064da521b4c4f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819051401-887f0-ac39c0904ee1a196db3689ced99d7e248d30ccb2.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819052137-887f0-935f0bdf4e20c46eb110af537af9eba4f2a278d9.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819052758-887f0-fb4c77b5d730ee6c6fa2c4231c51a983b5a64313.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819054242-887f0-86a613b969e7da791c02b3dd25225914fc2eb426.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819061256-887f0-ccd3c96fc0cc3cfcdf37f857fa451147110ceb67.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819061704-887f0-1041628545ea44196d78659195f58137dc7d691c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819061947-887f0-c482866ea7234024ec275e2e7c0745d7fb7e0346.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819062021-887f0-56bb802ef028753151fc842368809fb1bf7d1015.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819062051-887f0-a9b5e32327e9b2bf5ba080da58c49a9e352d5843.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060819080936-887f0-f192924da9b96e0517b1df09712ae3e0583e3217.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060820003028-887f0-bebb35a9abe19807a35f859b25c05559e3714000.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060820003115-887f0-9c02119be112e21a54e78e4f057a7fdeafb960ef.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060820014322-887f0-0a7ea789ef31ac8674cbdb20aa979696b62dea3f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060825073842-887f0-72a1873b7c6f651841d163d3c8c52b857e373e23.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060825073911-887f0-57722f8b9f9a52a5e0db583fe0c9332aed9d7e64.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060825075102-887f0-1185ac6bba70e068436775a1fc5701db7579d77f.gz A trunk/thirdparty/cl-stm/_darcs/patches/20060825101321-887f0-feaa2be83341a9240670af63f68bfcf8e8d69e2c.gz A trunk/thirdparty/cl-stm/_darcs/patches/20070112104808-887f0-1bef049e0c98cd398a3508fdbeea898563fe84b6.gz A trunk/thirdparty/cl-stm/_darcs/prefs/ A trunk/thirdparty/cl-stm/_darcs/prefs/binaries A trunk/thirdparty/cl-stm/_darcs/prefs/boring A trunk/thirdparty/cl-stm/_darcs/prefs/defaultrepo A trunk/thirdparty/cl-stm/_darcs/prefs/motd A trunk/thirdparty/cl-stm/_darcs/prefs/repos A trunk/thirdparty/cl-stm/_darcs/pristine/ A trunk/thirdparty/cl-stm/_darcs/pristine/COPYING A trunk/thirdparty/cl-stm/_darcs/pristine/TODO A trunk/thirdparty/cl-stm/_darcs/pristine/cl-stm.asd A trunk/thirdparty/cl-stm/_darcs/pristine/doc/ A trunk/thirdparty/cl-stm/_darcs/pristine/doc/tutorial.html A trunk/thirdparty/cl-stm/_darcs/pristine/examples/ A trunk/thirdparty/cl-stm/_darcs/pristine/examples/cell.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/examples/chan.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/examples/counter.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/examples/queue.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/examples/utils.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/index.html A trunk/thirdparty/cl-stm/_darcs/pristine/src/ A trunk/thirdparty/cl-stm/_darcs/pristine/src/interface.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/loggers.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/packages.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/protocol.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/standard-tlog.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/standard-transaction.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/transactional-class.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/src/walker.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/style.css A trunk/thirdparty/cl-stm/_darcs/pristine/test/ A trunk/thirdparty/cl-stm/_darcs/pristine/test/standard-tlog.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/test/suite.lisp A trunk/thirdparty/cl-stm/_darcs/pristine/test/walker.lisp A trunk/thirdparty/cl-stm/cl-stm.asd A trunk/thirdparty/cl-stm/doc/ A trunk/thirdparty/cl-stm/doc/tutorial.html A trunk/thirdparty/cl-stm/examples/ A trunk/thirdparty/cl-stm/examples/cell.lisp A trunk/thirdparty/cl-stm/examples/chan.lisp A trunk/thirdparty/cl-stm/examples/counter.lisp A trunk/thirdparty/cl-stm/examples/queue.lisp A trunk/thirdparty/cl-stm/examples/utils.lisp A trunk/thirdparty/cl-stm/index.html A trunk/thirdparty/cl-stm/src/ A trunk/thirdparty/cl-stm/src/interface.lisp A trunk/thirdparty/cl-stm/src/loggers.lisp A trunk/thirdparty/cl-stm/src/packages.lisp A trunk/thirdparty/cl-stm/src/protocol.lisp A trunk/thirdparty/cl-stm/src/standard-tlog.lisp A trunk/thirdparty/cl-stm/src/standard-transaction.lisp A trunk/thirdparty/cl-stm/src/transactional-class.lisp A trunk/thirdparty/cl-stm/src/walker.lisp A trunk/thirdparty/cl-stm/style.css A trunk/thirdparty/cl-stm/test/ A trunk/thirdparty/cl-stm/test/standard-tlog.lisp A trunk/thirdparty/cl-stm/test/suite.lisp A trunk/thirdparty/cl-stm/test/walker.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed buildbot/master/master.cfg
by BKNR Commits 23 Sep '08

23 Sep '08

Revision: 3947 Author: hans URL: http://bknr.net/trac/changeset/3947 remove bos builder. U buildbot/master/master.cfg Modified: buildbot/master/master.cfg =================================================================== --- buildbot/master/master.cfg 2008-09-22 22:24:04 UTC (rev 3946) +++ buildbot/master/master.cfg 2008-09-22 23:04:02 UTC (rev 3947) @@ -31,7 +31,6 @@ "bknr-fbsd-sbcl-i386", "bknr-linux-sbcl-i386", "bknr-darwin-ccl-ppc", - "bos", #"bknr-linux-cmucl-i386", #"bknr-fbsd-cmucl-i386", ])) @@ -56,13 +55,6 @@ description=["test"])) return f -def make_bos_factory(): - f = factory.BuildFactory() - f.addStep(source.SVN(svnurl="svn://bknr.net/svn/branches/bos")) - f.addStep(shell.ShellCommand(command="cd projects/bos ; lisp -batch -quiet -load ../../thirdparty/asdf/asdf.lisp -load ../../tools/make-core.lisp", description=["make-core"])) - f.addStep(shell.ShellCommand(command="cd projects/bos ; ./build.sh -batch -quiet", description=["build"])) - return f - c['builders'] = [ {'name': "bknr-fbsd-ccl-amd64", 'slavename': "paracetamol", @@ -89,11 +81,6 @@ 'builddir': "bknr-darwin-ccl-ppc", 'factory': make_bknr_factory("trunk", "ccl"), }, - {'name': "bos", - 'slavename': "test.createrainforest.org", - 'builddir': "bos", - 'factory': make_bos_factory(), - }, ]

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/data/
by BKNR Commits 23 Sep '08

23 Sep '08

Revision: 3946 Author: hans URL: http://bknr.net/trac/changeset/3946 Implement rollback for anonymous transactions. All slot changes made in a transaction will be undone when an error is signalled from within the transaction. As changes to the ID slots of created objects are undone as well, objects created in the transaction will be removed from their indices and eventually garbage collected. U trunk/bknr/datastore/src/data/object-tests.lisp U trunk/bknr/datastore/src/data/object.lisp U trunk/bknr/datastore/src/data/txn.lisp Modified: trunk/bknr/datastore/src/data/object-tests.lisp =================================================================== --- trunk/bknr/datastore/src/data/object-tests.lisp 2008-09-22 19:18:24 UTC (rev 3945) +++ trunk/bknr/datastore/src/data/object-tests.lisp 2008-09-22 22:24:04 UTC (rev 3946) @@ -277,5 +277,16 @@ (o2 (make-instance 'inherit-multiple :child o1))) (test-equal o1 (parent-child o2)))) +(defdstest abort-anonymous-transaction () + (let (parent) + (with-transaction (:initial) + (setf parent (make-instance 'parent :child nil))) + (ignore-errors + (with-transaction (:abort) + (setf (parent-child parent) (make-instance 'child)) + (error "abort"))) + (test-equal nil (parent-child parent)) + (test-equal nil (class-instances 'child)))) + (defun run-datastore-test (name) (unit-test:run-test (gethash name *tests*))) Modified: trunk/bknr/datastore/src/data/object.lisp =================================================================== --- trunk/bknr/datastore/src/data/object.lisp 2008-09-22 19:18:24 UTC (rev 3945) +++ trunk/bknr/datastore/src/data/object.lisp 2008-09-22 22:24:04 UTC (rev 3946) @@ -101,6 +101,11 @@ another persistent object and the pointed-to object is deleted, slot reads will return nil.")) +(defun undo-set-slot (object slot-name value) + (if (eq value 'unbound) + (slot-makunbound object slot-name) + (setf (slot-value object slot-name) value))) + (defmethod (setf slot-value-using-class) :before ((newval t) (class persistent-class) object @@ -110,6 +115,14 @@ (unless (or (in-transaction-p) (member slot-name '(last-change id))) (error 'persistent-slot-modified-outside-of-transaction :slot-name slot-name :object object)) + (when (in-anonymous-transaction-p) + (push (list #'undo-set-slot + object + (slot-definition-name slotd) + (if (slot-boundp object (slot-definition-name slotd)) + (slot-value object (slot-definition-name slotd)) + 'unbound)) + (anonymous-transaction-undo-log *current-transaction*))) (when (and (not (eq :restore (store-state *store*))) (not (member slot-name '(last-change id)))) (setf (slot-value object 'last-change) (current-transaction-timestamp)))))) Modified: trunk/bknr/datastore/src/data/txn.lisp =================================================================== --- trunk/bknr/datastore/src/data/txn.lisp 2008-09-22 19:18:24 UTC (rev 3945) +++ trunk/bknr/datastore/src/data/txn.lisp 2008-09-22 22:24:04 UTC (rev 3946) @@ -64,10 +64,10 @@ (:documentation "Signaled when WITH-TRANSACTION forms are nested.")) -(define-condition anonymous-transaction-in-named-transaction (store-error) +(define-condition anonymous-transaction-in-transaction (store-error) () (:documentation - "Signaled when an anonymous transaction is started from within a named transaction.")) + "Signaled when an anonymous transaction is started from within another transaction, transactions do not nest.")) (define-condition no-subsystems (store-error) () @@ -555,7 +555,9 @@ :initform (error "missing label in anonymous transaction definition")) (log-buffer :initarg :log-buffer :accessor anonymous-transaction-log-buffer - :initform (flex:make-in-memory-output-stream)))) + :initform (flex:make-in-memory-output-stream)) + (undo-log :initform nil + :accessor anonymous-transaction-undo-log))) (defmethod print-object ((transaction anonymous-transaction) stream) (print-unreadable-object (transaction stream :type t) @@ -592,14 +594,38 @@ :label label :log-buffer (flex:make-in-memory-input-stream buffer)))) +(define-condition rollback-failed (error) + ((transaction :initarg transaction) + (original-error :initarg :original-error)) + (:report (lambda (e stream) + (with-slots (transaction original-error) e + (format stream "Rollback of transaction ~A failed: ~A" transaction original-error))))) + +(defun anonymous-transaction-undo (transaction) + (handler-case + (dolist (command (anonymous-transaction-undo-log transaction)) + (apply (car command) (cdr command))) + (error (e) + (error 'rollback-failed + :transaction transaction + :original-error e)))) + +(defun do-with-transaction (label thunk) + (when (in-transaction-p) + (error 'anonymous-transaction-in-transaction)) + (let ((txn (make-instance 'anonymous-transaction :label label)) + (next-object-id (next-object-id (store-object-subsystem)))) + (with-transaction-log (txn) + (handler-case + (funcall thunk) + (error (e) + (setf (next-object-id (store-object-subsystem)) next-object-id) + (anonymous-transaction-undo txn) + (error e)))))) + (defmacro with-transaction ((&optional label) &body body) - (let ((txn (gensym))) - `(progn - (when (in-transaction-p) - (error 'anonymous-transaction-in-named-transaction)) - (let ((,txn (make-instance 'anonymous-transaction :label ,(if (symbolp label) (symbol-name label) label)))) - (with-transaction-log (,txn) - ,@body))))) + `(do-with-transaction ,(if (symbolp label) (symbol-name label) label) + (lambda () ,@body))) (defmethod execute-unlogged ((transaction anonymous-transaction)) ;; EXECUTE-UNLOGGED is called for anonymous transactions only when

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/indices/indices.lisp
by BKNR Commits 22 Sep '08

22 Sep '08

Revision: 3945 Author: hans URL: http://bknr.net/trac/changeset/3945 make hash tables thread safe for sbcl U trunk/bknr/datastore/src/indices/indices.lisp Modified: trunk/bknr/datastore/src/indices/indices.lisp =================================================================== --- trunk/bknr/datastore/src/indices/indices.lisp 2008-09-22 18:53:45 UTC (rev 3944) +++ trunk/bknr/datastore/src/indices/indices.lisp 2008-09-22 19:18:24 UTC (rev 3945) @@ -27,7 +27,7 @@ (unless (= (length slots) 1) (error "Exactly one slot name in :SLOTS initarg required to create a SLOT-INDEX")) (with-slots (hash-table slot-name) index - (setf hash-table (make-hash-table :test test) + (setf hash-table (make-hash-table :test test #+sbcl #+sbcl :synchronized t) slot-name (first slots) (slot-value index 'index-nil) index-nil))) @@ -65,7 +65,7 @@ (defmethod index-clear ((index slot-index)) (with-slots (hash-table) index - (setf hash-table (make-hash-table :test (hash-table-test hash-table))))) + (setf hash-table (make-hash-table :test (hash-table-test hash-table) #+sbcl #+sbcl :synchronized t)))) (defmethod index-reinitialize ((new-index slot-index) (old-index slot-index)) @@ -110,7 +110,7 @@ (defmethod initialize-instance :after ((index string-unique-index) &key (test #'equal)) (with-slots (hash-table) index - (setf hash-table (make-hash-table :test test)))) + (setf hash-table (make-hash-table :test test #+sbcl #+sbcl :synchronized t)))) (defmethod index-add :around ((index string-unique-index) object) (unless (slot-boundp object (slot-index-slot-name index)) @@ -421,7 +421,7 @@ (unless (<= (length slots) 1) (error "Can not create slot-index with more than one slot.")) (with-slots (hash-table slot-name) index - (setf hash-table (make-hash-table :test test) + (setf hash-table (make-hash-table :test test #+sbcl #+sbcl :synchronized t) slot-name (first slots) (slot-value index 'index-superclasses) index-superclasses))) @@ -490,7 +490,7 @@ (defmethod index-clear ((index class-skip-index)) (with-slots (hash-table) index - (setf hash-table (make-hash-table :test (hash-table-test hash-table))))) + (setf hash-table (make-hash-table :test (hash-table-test hash-table) #+sbcl #+sbcl :synchronized t)))) (defmethod index-keys ((index class-skip-index)) (loop for key being the hash-keys of (class-skip-index-hash-table index)

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes/
by BKNR Commits 22 Sep '08

22 Sep '08

Revision: 3944 Author: hans URL: http://bknr.net/trac/changeset/3944 Remove obsolete branch D branches/anon-transaction-fixes/

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 22 Sep '08

22 Sep '08

Revision: 3943 Author: hans URL: http://bknr.net/trac/changeset/3943 Remove obsolete branch D branches/anon-transaction-fixes-2/

1 0

[bknr-cvs] hans changed trunk/
by BKNR Commits 22 Sep '08

22 Sep '08

Revision: 3942 Author: hans URL: http://bknr.net/trac/changeset/3942 Merge from anon-transaction-fixes-2 branch. This changeset removes make-object and initialize-persistent-instance, makes the allocation of object IDs simpler and more safe and removes several relicts from previous refactoring iterations. Also, the store tests have been extended significantly to test pathological cases and create objects from multiple threads. U trunk/bknr/datastore/src/bknr.datastore.asd U trunk/bknr/datastore/src/data/blob.lisp U trunk/bknr/datastore/src/data/object-tests.lisp U trunk/bknr/datastore/src/data/object.lisp U trunk/bknr/datastore/src/data/package.lisp U trunk/bknr/datastore/src/data/tests.lisp U trunk/bknr/datastore/src/data/tutorial.lisp U trunk/bknr/datastore/src/data/txn.lisp U trunk/bknr/datastore/src/data/xml-object.lisp U trunk/bknr/datastore/src/indices/indexed-class.lisp U trunk/bknr/datastore/src/indices/indices.lisp U trunk/bknr/datastore/src/utils/class.lisp U trunk/bknr/modules/bknr.modules.asd U trunk/bknr/modules/bug/bug-handlers.lisp U trunk/bknr/modules/comics/comics.lisp U trunk/bknr/modules/feed/edit-feed-handler.lisp U trunk/bknr/modules/feed/feed.lisp U trunk/bknr/modules/imagemap/imagemap.lisp U trunk/bknr/modules/mail/import-yahoo-group.lisp U trunk/bknr/modules/mail/mail.lisp U trunk/bknr/modules/mail/mailinglist-handlers.lisp U trunk/bknr/modules/mail/mailinglist.lisp U trunk/bknr/modules/mail/register-handler.lisp U trunk/bknr/modules/mail/registration.lisp U trunk/bknr/modules/quizz/edit-quizz-handlers.lisp U trunk/bknr/modules/stats/stats.lisp U trunk/bknr/modules/text/article-handlers.lisp U trunk/bknr/modules/text/article.lisp U trunk/bknr/modules/text/billboard-handlers.lisp U trunk/bknr/modules/text/billboard.lisp U trunk/bknr/modules/text/blog-handlers.lisp U trunk/bknr/modules/text/paste-handlers.lisp U trunk/bknr/modules/text/wiki-handlers.lisp U trunk/bknr/modules/track/track.lisp U trunk/bknr/modules/url/cached-url-handlers.lisp U trunk/bknr/modules/url/edit-url-handlers.lisp U trunk/bknr/web/src/images/image.lisp U trunk/bknr/web/src/rss/rss.lisp U trunk/bknr/web/src/sysclasses/cron.lisp U trunk/bknr/web/src/sysclasses/event.lisp U trunk/bknr/web/src/sysclasses/sysparam.lisp U trunk/bknr/web/src/sysclasses/user.lisp U trunk/bknr/web/src/web/host.lisp U trunk/projects/bknr-website/src/init.lisp U trunk/projects/bos/m2/allocation.lisp U trunk/projects/bos/m2/m2.lisp U trunk/projects/bos/m2/map.lisp U trunk/projects/bos/m2/news.lisp U trunk/projects/bos/m2/poi.lisp U trunk/projects/bos/web/daily.lisp U trunk/projects/bos/web/kml-handlers.lisp U trunk/projects/bos/web/languages-handler.lisp U trunk/projects/bos/web/poi-handlers.lisp U trunk/projects/bos/web/sat-tree.lisp U trunk/projects/hello-web/src/news.lisp U trunk/projects/lisp-ecoop/src/handlers.lisp U trunk/projects/lisp-ecoop/src/participant.lisp U trunk/projects/lisp-ecoop/src/tags.lisp U trunk/projects/quickhoney/src/daily.lisp U trunk/projects/quickhoney/website/static/javascript.js U trunk/projects/scrabble/src/game.lisp U trunk/projects/scrabble/src/rules.lisp U trunk/projects/scrabble/src/start-webserver.lisp U trunk/projects/unmaintained/eboy/src/dynasite-tags.lisp U trunk/projects/unmaintained/eboy/src/item-handlers.lisp U trunk/projects/unmaintained/gpn/gpn-user.lisp U trunk/projects/unmaintained/gpn/gpn-web.lisp U trunk/projects/unmaintained/gpn/zeitplan-handlers.lisp U trunk/projects/unmaintained/raw-data/mcp/bluetooth.lisp U trunk/projects/unmaintained/raw-data/mcp/isdn-operator.lisp U trunk/projects/unmaintained/raw-data/mcp/sensors.lisp U trunk/projects/unmaintained/saugnapf/src/saugnapf.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 22 Sep '08

22 Sep '08

Revision: 3941 Author: hans URL: http://bknr.net/trac/changeset/3941 Merged revisions 3937 via svnmerge from svn+ssh://bknr.net/svn/trunk ........ r3937 | hans | 2008-09-22 17:51:49 +0200 (Mon, 22 Sep 2008) | 2 lines copy js2 to trunk ........ _U branches/anon-transaction-fixes-2/ Property changes on: branches/anon-transaction-fixes-2 ___________________________________________________________________ Name: svnmerge-integrated - /trunk:1-3928 + /trunk:1-3940

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs