- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] edi changed ediware/
by BKNR Commits 23 Jul '08

23 Jul '08

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-unicode/
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3579 Author: edi URL: http://bknr.net/trac/changeset/3579 Import dev version of CL-UNICODE A trunk/thirdparty/cl-unicode/ A trunk/thirdparty/cl-unicode/CHANGELOG.txt A trunk/thirdparty/cl-unicode/alias.lisp A trunk/thirdparty/cl-unicode/api.lisp A trunk/thirdparty/cl-unicode/build/ A trunk/thirdparty/cl-unicode/build/char-info.lisp A trunk/thirdparty/cl-unicode/build/data/ A trunk/thirdparty/cl-unicode/build/data/BidiMirroring.txt A trunk/thirdparty/cl-unicode/build/data/Blocks.txt A trunk/thirdparty/cl-unicode/build/data/DerivedAge.txt A trunk/thirdparty/cl-unicode/build/data/DerivedCoreProperties.txt A trunk/thirdparty/cl-unicode/build/data/Jamo.txt A trunk/thirdparty/cl-unicode/build/data/PropList.txt A trunk/thirdparty/cl-unicode/build/data/README.txt A trunk/thirdparty/cl-unicode/build/data/Scripts.txt A trunk/thirdparty/cl-unicode/build/data/UnicodeData.txt A trunk/thirdparty/cl-unicode/build/dump.lisp A trunk/thirdparty/cl-unicode/build/read.lisp A trunk/thirdparty/cl-unicode/build/util.lisp A trunk/thirdparty/cl-unicode/cl-unicode.asd A trunk/thirdparty/cl-unicode/clean.cmd A trunk/thirdparty/cl-unicode/conditions.lisp A trunk/thirdparty/cl-unicode/derived.lisp A trunk/thirdparty/cl-unicode/doc/ A trunk/thirdparty/cl-unicode/doc/index.html A trunk/thirdparty/cl-unicode/packages.lisp A trunk/thirdparty/cl-unicode/specials.lisp A trunk/thirdparty/cl-unicode/test/ A trunk/thirdparty/cl-unicode/test/packages.lisp A trunk/thirdparty/cl-unicode/test/properties A trunk/thirdparty/cl-unicode/test/simple A trunk/thirdparty/cl-unicode/test/tests.lisp A trunk/thirdparty/cl-unicode/test-functions.lisp A trunk/thirdparty/cl-unicode/util.lisp Change set too large, please see URL above

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-ppcre-1.4.1/
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3578 Author: edi URL: http://bknr.net/trac/changeset/3578 Tag 1.4.1 version as well A tags/thirdparty/cl-ppcre-1.4.1/ Copied: tags/thirdparty/cl-ppcre-1.4.1 (from rev 3577, trunk/thirdparty/cl-ppcre)

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-ppcre/
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3577 Author: edi URL: http://bknr.net/trac/changeset/3577 Import 1.4.1 version of CL-PPCRE A trunk/thirdparty/cl-ppcre/ A trunk/thirdparty/cl-ppcre/CHANGELOG A trunk/thirdparty/cl-ppcre/README A trunk/thirdparty/cl-ppcre/api.lisp A trunk/thirdparty/cl-ppcre/charset.lisp A trunk/thirdparty/cl-ppcre/cl-ppcre-test.asd A trunk/thirdparty/cl-ppcre/cl-ppcre-test.system A trunk/thirdparty/cl-ppcre/cl-ppcre.asd A trunk/thirdparty/cl-ppcre/cl-ppcre.system A trunk/thirdparty/cl-ppcre/closures.lisp A trunk/thirdparty/cl-ppcre/convert.lisp A trunk/thirdparty/cl-ppcre/doc/ A trunk/thirdparty/cl-ppcre/doc/benchmarks.2002-12-22.txt A trunk/thirdparty/cl-ppcre/doc/index.html A trunk/thirdparty/cl-ppcre/errors.lisp A trunk/thirdparty/cl-ppcre/lexer.lisp A trunk/thirdparty/cl-ppcre/lispworks-defsystem.lisp A trunk/thirdparty/cl-ppcre/load.lisp A trunk/thirdparty/cl-ppcre/optimize.lisp A trunk/thirdparty/cl-ppcre/packages.lisp A trunk/thirdparty/cl-ppcre/parser.lisp A trunk/thirdparty/cl-ppcre/perltest.pl A trunk/thirdparty/cl-ppcre/ppcre-tests.lisp A trunk/thirdparty/cl-ppcre/regex-class.lisp A trunk/thirdparty/cl-ppcre/repetition-closures.lisp A trunk/thirdparty/cl-ppcre/scanner.lisp A trunk/thirdparty/cl-ppcre/specials.lisp A trunk/thirdparty/cl-ppcre/testdata A trunk/thirdparty/cl-ppcre/testinput A trunk/thirdparty/cl-ppcre/util.lisp Change set too large, please see URL above

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-ppcre-1.3.2/
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3576 Author: edi URL: http://bknr.net/trac/changeset/3576 Remove 1.3.2 release of CL-PPCRE, to be replaced D trunk/thirdparty/cl-ppcre-1.3.2/

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-ppcre-1.3.2/
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3575 Author: edi URL: http://bknr.net/trac/changeset/3575 Tag CL-PPCRE 1.3.2 A tags/thirdparty/cl-ppcre-1.3.2/ Copied: tags/thirdparty/cl-ppcre-1.3.2 (from rev 3574, trunk/thirdparty/cl-ppcre-1.3.2)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/allocation.lisp
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3574 Author: ksprotte URL: http://bknr.net/trac/changeset/3574 working on allocation U trunk/projects/bos/m2/allocation.lisp Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-23 09:34:27 UTC (rev 3573) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-23 11:02:25 UTC (rev 3574) @@ -561,22 +561,23 @@ (let ((m2 (find-next-m2))) (cond ((null m2) - (return nil)) - ((not (in-polygon-p (m2-x m2) (m2-y m2) vertices)) - (when (and (stripe-dissection-p (m2-x m2) stripe) - (or result new-seen)) - ;; Wenn wir hier weitermachen und das Polygon - ;; nicht konvex ist, ist das Ergebnis nicht - ;; zusammenhaengend. Also aufgeben und in der - ;; rechten Haelfe des Stripes weitermachen. - (setf x new-x - y new-y - seen (append new-seen (reverse result))) - (let ((right (split-stripe-vertically stripe))) - (return-from find-free-m2s/stripe - (if right - (find-free-m2s/stripe n right) - nil))))) + (return nil)) + ((or (not (m2s-connected-p result)) + (and (not (in-polygon-p (m2-x m2) (m2-y m2) vertices)) + (stripe-dissection-p (m2-x m2) stripe) + (or result new-seen))) + ;; Wenn wir hier weitermachen und das Polygon + ;; nicht konvex ist, ist das Ergebnis nicht + ;; zusammenhaengend. Also aufgeben und in der + ;; rechten Haelfe des Stripes weitermachen. + (setf x new-x + y new-y + seen (append new-seen (reverse result))) + (let ((right (split-stripe-vertically stripe))) + (return-from find-free-m2s/stripe + (if right + (find-free-m2s/stripe n right) + nil)))) ((null (m2-contract m2)) (return m2)))))))) (dotimes (dummy n @@ -585,8 +586,10 @@ y new-y seen new-seen) (when result + (assert (= (length result) n)) (with-slots (area) stripe - (decf (allocation-area-free-m2s area) n) + (print (list '********** 'will-decrease-count-by n)) + (decf (allocation-area-free-m2s area) n) (when (null (allocation-area-free-m2s area)) (deactivate-allocation-area area)))) result))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/allocation.lisp
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3573 Author: ksprotte URL: http://bknr.net/trac/changeset/3573 avoid compiler warning in test allocation.disconnected-m2s.1 U trunk/projects/bos/test/allocation.lisp Modified: trunk/projects/bos/test/allocation.lisp =================================================================== --- trunk/projects/bos/test/allocation.lisp 2008-07-23 09:28:59 UTC (rev 3572) +++ trunk/projects/bos/test/allocation.lisp 2008-07-23 09:34:27 UTC (rev 3573) @@ -224,10 +224,12 @@ (7202 . 5214) (7204 . 5205) (7195 . 5197)))) (sponsor (make-sponsor :login "test-sponsor")) (m2-counts '(12 43 29 3))) + (declare (ignore area)) (dolist (m2-count m2-counts) (let ((contract (make-contract sponsor m2-count))) (print (list 'make-contract-returned contract)))) ;; This following check reported: ;; WARNING: #<CONTRACT ID: 32131, unpaid> has m2s that are not ;; connected - (is (bos.m2::consistent-p))))) \ No newline at end of file + (is (bos.m2::consistent-p))))) +

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/fixtures.lisp
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3572 Author: ksprotte URL: http://bknr.net/trac/changeset/3572 5am fixture initial-bos-store now allows for switching off deletion of the test-store (on by default) U trunk/projects/bos/test/fixtures.lisp Modified: trunk/projects/bos/test/fixtures.lisp =================================================================== --- trunk/projects/bos/test/fixtures.lisp 2008-07-23 09:28:10 UTC (rev 3571) +++ trunk/projects/bos/test/fixtures.lisp 2008-07-23 09:28:59 UTC (rev 3572) @@ -46,7 +46,7 @@ (,@store-object-vars) ,@body)) -(def-fixture initial-bos-store () +(def-fixture initial-bos-store (&key (delete-store t)) (let ((store-path (parse-namestring (format nil "/tmp/test-store-~D.tmp/" (get-universal-time))))) (unwind-protect @@ -58,7 +58,9 @@ (&body)) (close-store) ;; (cl-fad:delete-directory-and-files store-path) ; fails on ccl - (asdf:run-shell-command "rm -r '~A'" store-path)))) + (if delete-store + (asdf:run-shell-command "rm -r '~A'" store-path) + (warn "not deleting store at ~A" store-path))))) (defmacro store-test (name &body body) `(progn

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/allocation.lisp
by BKNR Commits 23 Jul '08

23 Jul '08

Revision: 3571 Author: ksprotte URL: http://bknr.net/trac/changeset/3571 small type in last commit, sorry U trunk/projects/bos/test/allocation.lisp Modified: trunk/projects/bos/test/allocation.lisp =================================================================== --- trunk/projects/bos/test/allocation.lisp 2008-07-23 09:27:20 UTC (rev 3570) +++ trunk/projects/bos/test/allocation.lisp 2008-07-23 09:28:10 UTC (rev 3571) @@ -213,7 +213,7 @@ (finishes (bos.m2::validate-allocation-area-inclusion-cache))))) (test allocation.disconnected-m2s.1 - (with-fixture initial-bos-store (:delete-store t) + (with-fixture initial-bos-store () (let ((area (make-allocation-area #((7193 . 5195) (7351 . 5193) (7340 . 5377) (7185 . 5390) (7174 . 5385) (7166 . 5387) (7156 . 5381) (7150 . 5379) (7143 . 5374) (7136 . 5368) (7135 . 5364) (7135 . 5359) (7140 . 5347) (7145 . 5342) (7148 . 5329)

1 0