elephant-cvs February 2007

elephant-cvs@common-lisp.net

2 participants
167 discussions

[elephant-cvs] CVS elephant/tests
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv11297/tests Modified Files: mop-tests.lisp testcollections.lisp testindexing.lisp testmigration.lisp Log Message: Clean up auto-commit usage in tests; change buffer-stream to unsigned-char - this may break things for sbcl but works for Allegro on Mac OS X --- /project/elephant/cvsroot/elephant/tests/mop-tests.lisp 2006/02/19 04:53:02 1.11 +++ /project/elephant/cvsroot/elephant/tests/mop-tests.lisp 2007/02/03 04:09:14 1.12 @@ -151,15 +151,13 @@ t) (deftest initform-test - (let ((*auto-commit* t)) - (slot-value (make-instance 'p-initform-test :sc *store-controller*) 'slot1)) + (slot-value (make-instance 'p-initform-test :sc *store-controller*) 'slot1) 10) (deftest initarg-test - (let ((*auto-commit* t)) - (values - (slot-value (make-instance 'p-initform-test-2 :sc *store-controller*) 'slot1) - (slot-value (make-instance 'p-initform-test-2 :slot1 20 :sc *store-controller*) 'slot1))) + (values + (slot-value (make-instance 'p-initform-test-2 :sc *store-controller*) 'slot1) + (slot-value (make-instance 'p-initform-test-2 :slot1 20 :sc *store-controller*) 'slot1)) 10 20) (deftest no-eval-initform @@ -167,8 +165,7 @@ (defclass no-eval-initform () ((slot1 :initarg :slot1 :initform (error "Shouldn't be called"))) (:metaclass persistent-metaclass)) - (let ((*auto-commit* t)) - (make-instance 'no-eval-initform :slot1 "something" :sc *store-controller* )) + (make-instance 'no-eval-initform :slot1 "something" :sc *store-controller* ) t) t) @@ -192,8 +189,7 @@ (defclass update-class () ((slot1 :initform 1 :accessor slot1)) (:metaclass persistent-metaclass)) - (let* ((*auto-commit* t) - (foo (make-instance 'update-class :sc *store-controller*))) + (let* ((foo (make-instance 'update-class :sc *store-controller*))) (defclass update-class () ((slot2 :initform 2 :accessor slot2)) (:metaclass persistent-metaclass)) @@ -213,8 +209,7 @@ (slot2 :initform 2 :accessor slot2)) (:metaclass persistent-metaclass)) - (let* ((*auto-commit* t) - (foo (make-instance 'class-one :sc *store-controller*))) + (let* ((foo (make-instance 'class-one :sc *store-controller*))) (change-class foo (find-class 'class-two)) (values (slot1 foo) @@ -246,8 +241,7 @@ (slot2 :initform 2 :accessor slot2)) (:metaclass persistent-metaclass)) - (let* ((*auto-commit* t) - (foo (make-instance 'class-one :sc *store-controller*))) + (let* ((foo (make-instance 'class-one :sc *store-controller*))) (change-class foo (find-class 'class-two)) (values (slot1 foo) --- /project/elephant/cvsroot/elephant/tests/testcollections.lisp 2006/11/11 18:41:11 1.13 +++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp 2007/02/03 04:09:14 1.14 @@ -15,20 +15,15 @@ (in-package :ele-tests) (deftest basicpersistence - (let ((*prev-commit* *auto-commit*) - (*auto-commit* t) - (rv nil)) - (unwind-protect - (let ((x (gensym))) - (add-to-root "x" x) - ;; Clear instances - (flush-instance-cache *store-controller*) - ;; Are gensyms equal across db instantiations? - ;; This forces a refetch of the object from db - (setq rv (equal (format nil "~A" x) - (format nil "~A" (get-from-root "x"))))) - (progn - (setq *auto-commit* *prev-commit*))) + (let ((rv nil)) + (let ((x (gensym))) + (add-to-root "x" x) + ;; Clear instances + (flush-instance-cache *store-controller*) + ;; Are gensyms equal across db instantiations? + ;; This forces a refetch of the object from db + (setq rv (equal (format nil "~A" x) + (format nil "~A" (get-from-root "x"))))) rv) t) @@ -626,26 +621,19 @@ (deftest add-get-remove (let ((r1 '()) - (r2 '()) - (*prev-commit* *auto-commit*)) - (unwind-protect - (progn - (setq *auto-commit* t) - (add-to-root "x1" "y1") - (add-to-root "x2" "y2") - (setf r1 (get-from-root "x1")) - (setf r2 (get-from-root "x2")) - (remove-from-root "x1") - (remove-from-root "x2") - (and - (equal "y1" r1) - (equal "y2" r2) - (equal nil (get-from-root "x1")) - (equal nil (get-from-root "x2")) - ) - ) - (setq *auto-commit* *prev-commit*) - )) + (r2 '())) + (add-to-root "x1" "y1") + (add-to-root "x2" "y2") + (setf r1 (get-from-root "x1")) + (setf r2 (get-from-root "x2")) + (remove-from-root "x1") + (remove-from-root "x2") + (and + (equal "y1" r1) + (equal "y2" r2) + (equal nil (get-from-root "x1")) + (equal nil (get-from-root "x2")) + )) t) (deftest add-get-remove-symbol @@ -654,52 +642,34 @@ (f1 '()) (f2 '()) (b1 '()) - (b2 '()) - (*prev-commit* *auto-commit*)) - (unwind-protect - (progn - (setq *auto-commit* t) - (add-to-root "my key" foo) - (add-to-root "my other key" foo) - (setf f1 (get-from-root "my key")) - (setf f2 (get-from-root "my other key")) - (add-to-root "my key" bar) - (add-to-root "my other key" bar) - (setf b1 (get-from-root "my key")) - (setf b2 (get-from-root "my other key")) - (and - (equal f1 f2) - (equal b1 b2) - (equal f1 foo) - (equal b1 bar) - )) - (setq *auto-commit* *prev-commit*) - )) + (b2 '())) + (add-to-root "my key" foo) + (add-to-root "my other key" foo) + (setf f1 (get-from-root "my key")) + (setf f2 (get-from-root "my other key")) + (add-to-root "my key" bar) + (add-to-root "my other key" bar) + (setf b1 (get-from-root "my key")) + (setf b2 (get-from-root "my other key")) + (and + (equal f1 f2) + (equal b1 b2) + (equal f1 foo) + (equal b1 bar))) t) (deftest existsp (let ((exists1 '()) (exists2 '()) (exists3 '()) - (key "my key") - (*prev-commit* *auto-commit*) - ) - (unwind-protect - (progn - (setq *auto-commit* t) - (remove-from-root key) - (setf exists1 - (root-existsp key) - ) - (add-to-root key 'a) - (setf exists2 (root-existsp key)) - (remove-from-root key) - (setf exists3 (root-existsp key)) - ) - (setq *auto-commit* *prev-commit*) - ) - (values exists1 exists2 exists3) - ) + (key "my key")) + (remove-from-root key) + (setf exists1 (root-existsp key)) + (add-to-root key 'a) + (setf exists2 (root-existsp key)) + (remove-from-root key) + (setf exists3 (root-existsp key)) + (values exists1 exists2 exists3)) nil t nil ) --- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/01/25 19:37:55 1.21 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/03 04:09:14 1.22 @@ -72,7 +72,6 @@ (let ((n 105)) ;;(format t "Global vars:~%") ;;(format t "~%basic store: ~A ~A~%" *store-controller* (elephant::controller-spec *store-controller*)) -;; (format t "auto-commit: ~A~%" *auto-commit*) (when (class-indexedp-by-name 'idx-one) (disable-class-indexing 'idx-one :errorp nil) @@ -289,11 +288,7 @@ &key) (setf (slot3 new) (slot2 old))) - (let ((*auto-commit* t) - (foo nil)) - (declare (special *auto-commit*) - (dynamic-extent *auto-commit*)) - (setf foo (make-instance 'idx-six)) + (let ((foo (make-instance 'idx-six))) (change-class foo 'idx-seven) (values --- /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2006/04/26 19:19:12 1.13 +++ /project/elephant/cvsroot/elephant/tests/testmigration.lisp 2007/02/03 04:09:14 1.14 @@ -35,7 +35,6 @@ (format t "~%Single store mode: ignoring") t) (let* ((*store-controller*) - (*auto-commit* t) (sc1 (open-store *test-spec-primary* :recover t)) (sc2 (open-store *test-spec-secondary* :recover t))) (unwind-protect @@ -56,10 +55,9 @@ (format t "~%Single store mode: ignoring") nil) (let ((*store-controller* nil) - (*auto-commit* t) (sc1 (open-store *test-spec-primary* :recover t)) (sc2 (open-store *test-spec-secondary* :recover t))) - (declare (special *store-controller* *auto-commit*)) + (declare (special *store-controller*)) (unwind-protect (let ((ibt (make-btree sc1))) (with-transaction (:store-controller sc1) @@ -81,12 +79,9 @@ t) (let ((old-store *store-controller*) (*store-controller* nil) - (*prev-commit* *auto-commit*) - (*auto-commit* t) (rv nil) (sc1 (open-store *test-spec-primary* :recover t)) (sc2 (open-store *test-spec-secondary* :recover t))) - (declare (special *auto-commit*)) (unwind-protect (let* ((ibt (make-indexed-btree sc1))) (let ((index @@ -111,7 +106,6 @@ (not (btree-differ ibt mig))))) (progn (setq *store-controller* old-store) - (setq *auto-commit* *prev-commit*) (close-store sc1) (close-store sc2))))) t) @@ -123,11 +117,10 @@ (progn (format t "~%Single store mode: ignoring") t) - (let ((*auto-commit* t) - (*store-controller* nil) + (let ((*store-controller* nil) (sc1 (open-store *test-spec-primary* :recover t)) (sc2 (open-store *test-spec-secondary* :recover t))) - (declare (special *auto-commit* *store-controller*)) + (declare (special *store-controller*)) (unwind-protect (progn ;; Make instances @@ -163,11 +156,10 @@ (values 3 1 1 1 1 10 20 )) (progn ;; (format t "Opening store~%") - (let ((*auto-commit* nil) - (sc2 (open-store *test-spec-secondary* :recover t)) + (let ((sc2 (open-store *test-spec-secondary* :recover t)) (sc1 (open-store *test-spec-primary* :recover t)) (*store-controller* nil)) - (declare (special *auto-commit* *store-controller*)) + (declare (special *store-controller*)) (unwind-protect ;; ensure class index is initialized in sc1 (progn

1 0

[elephant-cvs] CVS elephant/src/memutil
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/memutil In directory clnet:/tmp/cvs-serv11297/src/memutil Modified Files: memutil.lisp Log Message: Clean up auto-commit usage in tests; change buffer-stream to unsigned-char - this may break things for sbcl but works for Allegro on Mac OS X --- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/02/03 00:57:34 1.19 +++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/02/03 04:09:14 1.20 @@ -77,8 +77,8 @@ (def-type pointer-int (* :int)) (def-type pointer-void :pointer-void) (def-foreign-type array-or-pointer-char - #+allegro (:array :char) - #+(or cmu sbcl scl openmcl) (* :char)) + #+allegro (:array :unsigned-char) + #+(or cmu sbcl scl openmcl) (* :unsigned-char)) (def-type array-or-pointer-char array-or-pointer-char) ;; Standard utility for copying two foreign buffers --

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv11297/src/elephant Modified Files: controller.lisp unicode2.lisp Log Message: Clean up auto-commit usage in tests; change buffer-stream to unsigned-char - this may break things for sbcl but works for Allegro on Mac OS X --- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/02/02 23:51:58 1.27 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/02/03 04:09:13 1.28 @@ -119,8 +119,8 @@ (unless *store-controller* (setq *store-controller* controller)) (load-user-configuration controller) - (apply #'open-controller controller args) (initialize-serializer controller) + (apply #'open-controller controller args) controller)) (defun close-store (&optional sc) --- /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/02/02 23:51:58 1.3 +++ /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/02/03 04:09:13 1.4 @@ -112,16 +112,20 @@ (let ((code (char-code (schar string i)))) (when (> code #xFFFF) (fail)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size)) +;; (coerce (ldb (byte 8 8) code) '(signed 8))) (ldb (byte 8 8) code)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size 1)) +;; (coerce (ldb (byte 8 0) code) '(signed 8)))))) (ldb (byte 8 0) code))))) (string (loop for i fixnum from 0 below characters do - (let ((code (char-code (char string i)))) + (let ((code (char-code (schar string i)))) (when (> code #xFFFF) (fail)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size)) +;; (coerce (ldb (byte 8 8) code) '(signed 8))) (ldb (byte 8 8) code)) (setf (uffi:deref-array buffer 'array-or-pointer-char (+ (* i 2) size 1)) +;; (coerce (ldb (byte 8 0) code) '(signed 8))))))) (ldb (byte 8 0) code)))))) (incf size (* characters 2)) (succeed))))))

1 0

[elephant-cvs] CVS elephant/tests
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv12026/tests Modified Files: testbdb.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/02 23:52:00 1.3 +++ /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/03 00:57:35 1.4 @@ -70,8 +70,7 @@ (db-bdb::db-sequence-set-flags seq :seq-inc t :seq-wrap t) (db-bdb::db-sequence-set-range seq 0 most-positive-fixnum) (db-bdb::db-sequence-initial-value seq (- most-positive-fixnum 99)) - (db-bdb::db-sequence-open seq "testseq1" - :auto-commit t :create t :thread t) + (db-bdb::db-sequence-open seq "testseq1" :create t :thread t) (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :txn-nosync t) for j from (- most-positive-fixnum 99) to most-positive-fixnum while (> i 0)

1 0

[elephant-cvs] CVS elephant/src/utils
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv12026/src/utils Added Files: locks.lisp package.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/src/utils/locks.lisp 2007/02/03 00:57:35 NONE +++ /project/elephant/cvsroot/elephant/src/utils/locks.lisp 2007/02/03 00:57:35 1.1 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; ;;; cross-platform.lisp -- convert Lisp data to/from byte arrays ;;; ;;; Initial version 8/26/2004 by Ben Lee ;;; <blee(a)common-lisp.net> ;;; ;;; part of ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; ;;; Elephant users are granted the rights to distribute and use this software ;;; as governed by the terms of the Lisp Lesser GNU Public License ;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;; (in-package :elephant-utils) ;; This is a quick portability hack to avoid external dependencies, if we get ;; too many of these do we need to import a standard library? do we need to import ;; 'port' or some other thread layer to the elephant dependency list? (defun ele-make-lock () #+allegro (mp::make-process-lock) #+cmu (mp:make-lock) #+sbcl (sb-thread:make-mutex) #+mcl (ccl:make-lock) #+lispworks (mp:make-lock) #-(or allegro sbcl cmu lispworks mcl) nil ) (defmacro ele-with-lock ((lock &rest ignored) &body body) (declare (ignore ignored) (ignorable lock)) #+allegro `(mp:with-process-lock (,lock) ,@body) #+cmu `(mp:with-lock-held (,lock) ,@body) #+sbcl `(sb-thread:with-mutex (,lock) ,@body) #+lispworks `(mp:with-lock (,lock) ,@body) #+mcl `(ccl:with-lock-grabbed (,lock) ,@body) #-(or allegro sbcl cmu lispworks mcl) `(progn ,@body) ) ;; ;; For tight loops we need a fast lock, for lisps that support this ;; with-interrupts or something similar this can help performance ;; (defun ele-make-fast-lock () #+allegro nil #-allegro (ele-make-lock)) (defmacro ele-with-fast-lock ((lock &rest ignored) &body body) (declare (ignorable lock ignored)) #+allegro `(excl:without-interrupts ,@body) #-allegro `(ele-with-lock (,lock ,@ignored) ,@body)) --- /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/02/03 00:57:35 NONE +++ /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/02/03 00:57:35 1.1 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; ;;; package.lisp -- package definition ;;; ;;; Initial version 2/3/2007 by Ian Eslick ;;; <ieslick(a)common-lisp.net> ;;; ;;; part of ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)common-lisp.net> ;;; ;;; Elephant users are granted the rights to distribute and use this software ;;; as governed by the terms of the Lisp Lesser GNU Public License ;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;; (in-package :cl-user) (defpackage elephant-utils (:use common-lisp) (:export #:ele-make-lock #:ele-with-lock #:ele-make-fast-lock #:ele-with-fast-lock))

1 0

[elephant-cvs] CVS elephant/src/memutil
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/memutil In directory clnet:/tmp/cvs-serv12026/src/memutil Modified Files: memutil.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/02/01 15:19:50 1.18 +++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp 2007/02/03 00:57:34 1.19 @@ -21,7 +21,7 @@ (:documentation "A low-level UFFI-based memory access and serialization toolkit. Provides basic cross-platform binary serialization support for backends.") - (:use common-lisp uffi) + (:use common-lisp uffi elephant-utils) #+cmu (:use alien) #+sbcl @@ -121,22 +121,15 @@ (defvar +NULL-CHAR+ (make-null-pointer :char) "A null pointer to a char type.") - -(defmacro memutil-without-interrupts (&body body) - "Ensure platform dependent atomicity" - `( - #+allegro excl:without-interrupts - #+lispworks lispworks:without-interrupts - #+sbcl sb-sys:without-interrupts - #+cmu system:without-interrupts - #+openmcl ccl:without-interrupts - ,@body)) - +;; ;; Thread local storage (special variables) +;; (defvar *buffer-streams* (make-array 0 :adjustable t :fill-pointer t) "Vector of buffer-streams, which you can grab / return.") +(defvar *buffer-streams-lock* (ele-make-fast-lock)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; buffer-streams @@ -156,13 +149,13 @@ "Grab a buffer-stream from the *buffer-streams* resource pool." (if (= (length *buffer-streams*) 0) (make-buffer-stream) - (memutil-without-interrupts + (ele-with-fast-lock (*buffer-streams-lock*) (vector-pop *buffer-streams*)))) (defun return-buffer-stream (bs) "Return a buffer-stream to the *buffer-streams* resource pool." (reset-buffer-stream bs) - (memutil-without-interrupts + (ele-with-fast-lock (*buffer-streams-lock*) (vector-push-extend bs *buffer-streams*))) (defmacro with-buffer-streams (names &body body)

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv12026/src/elephant Modified Files: package.lisp serializer2.lisp Removed Files: cross-platform.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/02/02 23:51:58 1.9 +++ /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/02/03 00:57:34 1.10 @@ -20,7 +20,7 @@ (in-package :cl-user) (defpackage elephant - (:use common-lisp elephant-memutil) + (:use :common-lisp :elephant-memutil :elephant-utils) (:nicknames ele :ele) (:documentation "Elephant: an object-oriented database for Common Lisp with @@ -93,9 +93,6 @@ #:drop-instances ;; Utilities - #:ele-make-lock - #:ele-with-lock - #:ele-without-interrupts #:slots-and-values ) #+cmu --- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/02/02 23:51:58 1.10 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/02/03 00:57:34 1.11 @@ -17,7 +17,7 @@ (in-package :elephant) (defpackage :elephant-serializer2 - (:use :cl :elephant :elephant-memutil) + (:use :cl :elephant :elephant-memutil :elephant-utils) (:import-from :elephant *circularity-initial-hash-size* #+(or cmu sbcl allegro) @@ -97,12 +97,14 @@ (defparameter *circularity-hash-queue* (make-array 20 :fill-pointer 0 :adjustable t) "Circularity ids for the serializer.") +(defvar *serializer-fast-lock* (ele-make-fast-lock)) + (defun get-circularity-hash () "Get a clean hash for object serialization" (declare (type fixnum *circularity-initial-hash-size*)) (if (= 0 (length *circularity-hash-queue*)) (make-hash-table :test 'eq :size *circularity-initial-hash-size*) - (ele-without-interrupts + (ele-with-fast-lock (*serializer-fast-lock*) (vector-pop *circularity-hash-queue*)))) (defun release-circularity-hash (hash) @@ -110,7 +112,7 @@ (declare (type hash-table hash)) (unless (= (hash-table-count hash) 0) (clrhash hash)) - (ele-without-interrupts + (ele-with-fast-lock (*serializer-fast-lock*) (vector-push-extend hash *circularity-hash-queue*))) ;; @@ -129,14 +131,14 @@ (if (= 0 (length *circularity-vector-queue*)) (make-array 50 :element-type t :initial-element nil :fill-pointer 0 :adjustable t) - (ele-without-interrupts + (ele-with-fast-lock (*serializer-fast-lock*) (vector-pop *circularity-vector-queue*)))) (defun release-circularity-vector (vector) "Don't need to erase, just reset fill-pointer as it determines extent of valid data" (setf (fill-pointer vector) 0) - (ele-without-interrupts + (ele-with-fast-lock (*serializer-fast-lock*) (vector-push-extend vector *circularity-vector-queue* 20))) ;;

1 0

[elephant-cvs] CVS elephant/src/db-bdb
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv12026/src/db-bdb Modified Files: bdb-controller.lisp Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/02/02 23:51:58 1.20 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/02/03 00:57:33 1.21 @@ -111,8 +111,7 @@ (db-sequence-set-flags oid-seq :seq-inc t :seq-wrap t) (db-sequence-set-range oid-seq 0 most-positive-fixnum) (db-sequence-initial-value oid-seq 0) - (db-sequence-open oid-seq "%ELEPHANTOID" - :auto-commit t :create t :thread t) + (db-sequence-open oid-seq "%ELEPHANTOID" :create t :thread t) (setf (controller-oid-seq sc) oid-seq))) (setf (slot-value sc 'root)

1 0

[elephant-cvs] CVS elephant
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant In directory clnet:/tmp/cvs-serv12026 Modified Files: TODO elephant.asd Log Message: Fixed bug from last checkin; implemented abstraction for fast-locks for systems that have such a thing (such as without-interrupts in non-parallel lisps) --- /project/elephant/cvsroot/elephant/TODO 2007/02/02 23:51:58 1.40 +++ /project/elephant/cvsroot/elephant/TODO 2007/02/03 00:57:33 1.41 @@ -7,9 +7,6 @@ -------------------------------------------- Active tasks: -- Support locks in serializer for all systems - - Provide support for fast and slow critical sections by lisps: buffer-streams, - circularity-arrays/hashes, shared controller side-effects... (see email) - Trace all paths to db-put or db-delete and ensure that there is a check or a default ensure-transaction around the primitive components - write a document clarifying transaction design & assumptions in the backend] @@ -64,6 +61,9 @@ ---------------------------------- Feburary 2nd, 2007 checkins: +x Support locks in serializer for all systems + x Provide support for fast and slow critical sections by lisps: buffer-streams, + circularity-arrays/hashes, shared controller side-effects... (see email) x Check for manual & automatic transactions running concurrently x Modify *current-transaction* to be null on default, allowing backends to choose the default format (vs. +NULL-VOID+) x Update BDB backend to properly provide result --- /project/elephant/cvsroot/elephant/elephant.asd 2007/01/29 15:15:04 1.25 +++ /project/elephant/cvsroot/elephant/elephant.asd 2007/02/03 00:57:33 1.26 @@ -155,15 +155,19 @@ :components ((:module :src :components - ((:module memutil + ((:module utils + :components + ((:file "package") + (:file "locks"))) + (:module memutil :components ((:elephant-c-source "libmemutil") (:file "memutil")) - :serial t) + :serial t + :depends-on (utils)) (:module elephant :components ((:file "package") - (:file "cross-platform") #+cmu (:file "cmu-mop-patches") #+openmcl (:file "openmcl-mop-patches") (:file "variables") @@ -182,6 +186,6 @@ (:file "migrate") (:file "backend")) :serial t - :depends-on (memutil))))) + :depends-on (memutil utils))))) :depends-on (:uffi :cl-base64))

1 0

[elephant-cvs] CVS elephant/src/utils
by ieslick 03 Feb '07

03 Feb '07

Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv11740/utils Log Message: Directory /project/elephant/cvsroot/elephant/src/utils added to the repository

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

elephant-cvs February 2007