Changeset 2602
- Timestamp:
- 02/23/08 22:33:41 (11 months ago)
- Files:
-
- trunk/bknr/datastore/src/data/object.lisp (modified) (1 diff)
- trunk/build.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/datastore/src/data/object.lisp
r2600 r2602 50 50 (declare (ignore args)) 51 51 (determine-transient-slot-initargs class) 52 (when *store*52 (when (and (boundp '*store*) *store*) 53 53 (update-instances-for-changed-class (class-name class)) 54 54 (unless *suppress-schema-warnings* trunk/build.lisp
r2601 r2602 39 39 (unix:unix-exit code)) 40 40 41 (defun load-all () 42 (asdf:oos 'asdf:load-op :bknr.web) 43 (asdf:oos 'asdf:load-op :quickhoney) 44 (asdf:oos 'asdf:load-op :bos.web) 45 (asdf:oos 'asdf:load-op :lisp-ecoop) 46 (asdf:oos 'asdf:load-op :bknr.datastore.test)) 41 #+openmcl 42 (defun dump-image () 43 ;; does not yet work, 44 (trace ccl::close-shared-library) 45 (dolist (lib ccl::*shared-libraries*) 46 (ccl::close-shared-library lib :completely t)) 47 (ccl:save-application "bknr.image")) 48 49 (setup-registry (probe-file *default-pathname-defaults*)) 50 51 (asdf:oos 'asdf:load-op :bknr.web) 52 (asdf:oos 'asdf:load-op :quickhoney) 53 (asdf:oos 'asdf:load-op :bos.web) 54 (asdf:oos 'asdf:load-op :lisp-ecoop) 55 (asdf:oos 'asdf:load-op :bknr.datastore.test) 47 56 48 57 (defun build () 49 (clean-fasls)50 (load-all)51 58 (exit 0)) 52 59 53 60 (defun test () 54 (load-all)55 61 (exit (if (and (unit-test:run-all-tests) 56 62 ) 57 63 0 1))) 58 59 (setup-registry (probe-file *default-pathname-defaults*))60 61
