bknr-cvs July 2008

bknr-cvs@common-lisp.net

1 participants
321 discussions

[bknr-cvs] hans changed trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3643 Author: hans URL: http://bknr.net/trac/changeset/3643 Fix macro to not confuse cmucl. U trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp Modified: trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp =================================================================== --- trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp 2008-07-25 13:59:41 UTC (rev 3642) +++ trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp 2008-07-25 16:24:06 UTC (rev 3643) @@ -5,8 +5,8 @@ (defmacro defdfun (name args doc &body body) (let ((docstring (gensym "DOCSTRING"))) `(progn - (when (not (fboundp ',name)) - (defun ,name ,args ,@body)) + ,(unless (fboundp name) + `(defun ,name ,args ,@body)) (let ((,docstring (documentation ',name 'function))) (setf (documentation ',name 'function) (if ,docstring @@ -16,8 +16,8 @@ (defmacro defdmacro (name args doc &body body) (let ((docstring (gensym "DOCSTRING"))) `(progn - (when (not (fboundp ',name)) - (defmacro ,name ,args ,@body)) + ,(unless (fboundp name) + `(defmacro ,name ,args ,@body)) (let ((,docstring (documentation ',name 'function))) (setf (documentation ',name 'function) (if ,docstring

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3642 Author: ksprotte URL: http://bknr.net/trac/changeset/3642 we are not actually using /static/kml-root-* D trunk/projects/bos/payment-website/static/kml-root-da.kml D trunk/projects/bos/payment-website/static/kml-root-de.kml D trunk/projects/bos/payment-website/static/kml-root-en.kml U trunk/projects/bos/payment-website/templates/da/satmap.xml U trunk/projects/bos/payment-website/templates/de/satmap.xml U trunk/projects/bos/payment-website/templates/en/satmap.xml Change set too large, please see URL above

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/templates/
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3641 Author: ksprotte URL: http://bknr.net/trac/changeset/3641 sat-old is actually from 2002 U trunk/projects/bos/payment-website/templates/da/dictionary.xml U trunk/projects/bos/payment-website/templates/de/dictionary.xml U trunk/projects/bos/payment-website/templates/en/dictionary.xml Modified: trunk/projects/bos/payment-website/templates/da/dictionary.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/dictionary.xml 2008-07-25 13:16:36 UTC (rev 3640) +++ trunk/projects/bos/payment-website/templates/da/dictionary.xml 2008-07-25 13:54:25 UTC (rev 3641) @@ -8,7 +8,7 @@  <entry><key>Squaremetre Area</key><value></value></entry> <entry><key>Sat-Images</key><value>Satellitenbilder</value></entry> - <entry><key>sat-old</key><value>Satellitenbild von 2000</value></entry> + <entry><key>sat-old</key><value>Satellitenbild von 2002</value></entry> <entry><key>sat-2002</key><value>Satellitenbild von 2002</value></entry> <entry><key>sat-2007</key><value>Satellitenbild von 2007</value></entry> <entry><key>POIs</key><value>Points of Interest</value></entry> Modified: trunk/projects/bos/payment-website/templates/de/dictionary.xml =================================================================== --- trunk/projects/bos/payment-website/templates/de/dictionary.xml 2008-07-25 13:16:36 UTC (rev 3640) +++ trunk/projects/bos/payment-website/templates/de/dictionary.xml 2008-07-25 13:54:25 UTC (rev 3641) @@ -9,7 +9,7 @@  <entry><key>Squaremetre Area</key><value>Quadratmetergebiet</value></entry> <entry><key>Sat-Images</key><value>Satellitenbilder</value></entry> - <entry><key>sat-old</key><value>Satellitenbild von 2000</value></entry> + <entry><key>sat-old</key><value>Satellitenbild von 2002</value></entry> <entry><key>sat-2002</key><value>Satellitenbild von 2002</value></entry> <entry><key>sat-2007</key><value>Satellitenbild von 2007</value></entry> <entry><key>POIs</key><value>Interessante Orte</value></entry> Modified: trunk/projects/bos/payment-website/templates/en/dictionary.xml =================================================================== --- trunk/projects/bos/payment-website/templates/en/dictionary.xml 2008-07-25 13:16:36 UTC (rev 3640) +++ trunk/projects/bos/payment-website/templates/en/dictionary.xml 2008-07-25 13:54:25 UTC (rev 3641) @@ -1,7 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <dictionary> <entry><key>Sat-Images</key><value>Satellite Images</value></entry> - <entry><key>sat-old</key><value>Satellite Image 2000</value></entry> + <entry><key>sat-old</key><value>Satellite Image 2002</value></entry> <entry><key>sat-2002</key><value>Satellite Image 2002</value></entry> <entry><key>sat-2007</key><value>Satellite Image 2007</value></entry> <entry><key>POIs</key><value>Points of Interest</value></entry>

1 0

[bknr-cvs] ksprotte changed trunk/build.lisp
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3640 Author: ksprotte URL: http://bknr.net/trac/changeset/3640 temporarily disable flexi-stream tests U trunk/build.lisp Modified: trunk/build.lisp =================================================================== --- trunk/build.lisp 2008-07-25 13:13:02 UTC (rev 3639) +++ trunk/build.lisp 2008-07-25 13:16:36 UTC (rev 3640) @@ -197,6 +197,7 @@ #+(or) (cl-ppcre-run-no-failures-p) (cl-gd-run-no-failures-p) + #+(or) (flexi-streams-no-failures-p) (unit-test:run-all-tests) (rt:do-tests)

1 0

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

25 Jul '08

Revision: 3639 Author: ksprotte URL: http://bknr.net/trac/changeset/3639 allocate-m2s-for-sale uses again the allocate-cache with exact matches U trunk/projects/bos/m2/allocation.lisp Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-07-25 12:59:11 UTC (rev 3638) +++ trunk/projects/bos/m2/allocation.lisp 2008-07-25 13:13:02 UTC (rev 3639) @@ -195,13 +195,13 @@ (deftransaction activate-allocation-area (area) (warn "activating ~S" area) (setf (slot-value area 'active-p) t) - (bos.m2.allocation-cache::rebuild-cache) + (bos.m2.allocation-cache::rebuild-allocation-cache) area) (deftransaction deactivate-allocation-area (area) (warn "deactivating ~S" area) (setf (slot-value area 'active-p) nil) - (bos.m2.allocation-cache::rebuild-cache) + (bos.m2.allocation-cache::rebuild-allocation-cache) area) ;;; FIXME can be optimized @@ -358,17 +358,18 @@ "The main entry point to the allocation machinery. Will return a list of N m2 instances or NIL if the requested amount cannot be allocated." - (dolist (area (active-allocation-areas)) - (when (<= n (allocation-area-free-m2s area)) - (let ((m2s (allocate-in-area area n))) - (when m2s - (return-from allocate-m2s-for-sale m2s))))) - (dolist (area (inactive-nonempty-allocation-areas)) - (when (<= n (allocation-area-free-m2s area)) - (let ((m2s (allocate-in-area area n))) - (when m2s - (activate-allocation-area area) - (return-from allocate-m2s-for-sale m2s)))))) + (or (bos.m2.allocation-cache:find-exact-match n :remove t) + (dolist (area (active-allocation-areas)) + (when (<= n (allocation-area-free-m2s area)) + (let ((m2s (allocate-in-area area n))) + (when m2s + (return m2s))))) + (dolist (area (inactive-nonempty-allocation-areas)) + (when (<= n (allocation-area-free-m2s area)) + (let ((m2s (allocate-in-area area n))) + (when m2s + (activate-allocation-area area) + (return m2s))))))) (defgeneric return-contract-m2s (m2s) (:documentation "Mark the given square meters as free, so that

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3638 Author: ksprotte URL: http://bknr.net/trac/changeset/3638 removed allocation-cache-subsystem; rebuild-allocation-cache is now called via the initialization-subsystem invoke-transient-init-functions is more verbose U trunk/projects/bos/m2/allocation-cache.lisp U trunk/projects/bos/m2/initialization-subsystem.lisp U trunk/projects/bos/m2/m2.lisp U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/m2/allocation-cache.lisp =================================================================== --- trunk/projects/bos/m2/allocation-cache.lisp 2008-07-25 12:53:57 UTC (rev 3637) +++ trunk/projects/bos/m2/allocation-cache.lisp 2008-07-25 12:59:11 UTC (rev 3638) @@ -231,9 +231,9 @@ (unless (zerop count) (format t "~5D~10T~5D~%" size count)))))) -(defun rebuild-cache () - (assert (in-transaction-p) nil - "rebuild-cache may only be called in a transaction context") +(defun rebuild-allocation-cache () + (assert (or (in-transaction-p) (eql :snapshot (store-state *store*))) nil + "rebuild-allocation-cache may only be called in a transaction context") (unless *allocation-cache* (setq *allocation-cache* (make-allocation-cache))) (clear-cache) @@ -241,6 +241,8 @@ (when (allocation-area-active-p allocation-area) (add-area allocation-area)))) +(register-transient-init-function 'rebuild-allocation-cache) + (defun suggest-free-region-size () (iter (for regions in-vector (allocation-cache-index *allocation-cache*)) @@ -255,14 +257,3 @@ (index-push (length m2s) (make-cache-entry :area allocation-area :region m2s))))) -;;; subsystem -(defclass allocation-cache-subsystem () - ()) - -(defmethod bknr.datastore::restore-subsystem (store (subsystem allocation-cache-subsystem) - &key until) - (declare (ignore until)) - (rebuild-cache)) - -(defmethod bknr.datastore::snapshot-subsystem (store (subsystem allocation-cache-subsystem)) - ) \ No newline at end of file Modified: trunk/projects/bos/m2/initialization-subsystem.lisp =================================================================== --- trunk/projects/bos/m2/initialization-subsystem.lisp 2008-07-25 12:53:57 UTC (rev 3637) +++ trunk/projects/bos/m2/initialization-subsystem.lisp 2008-07-25 12:59:11 UTC (rev 3638) @@ -52,9 +52,11 @@ (defun invoke-transient-init-functions () (dolist (function-name *transient-init-functions*) + (format t "~&initialization-subsystem is calling ~A..." function-name) (with-simple-restart (skip-init-function "Skip transient-init-function ~A" function-name) - (funcall function-name)))) + (funcall function-name)) + (format t "done~%"))) ;;; initialization-subsystem (defclass initialization-subsystem () Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-07-25 12:53:57 UTC (rev 3637) +++ trunk/projects/bos/m2/m2.lisp 2008-07-25 12:59:11 UTC (rev 3638) @@ -710,8 +710,7 @@ :directory directory :subsystems (list (make-instance 'store-object-subsystem) (make-instance 'blob-subsystem - :n-blobs-per-directory 1000) - (make-instance 'bos.m2.allocation-cache:allocation-cache-subsystem) + :n-blobs-per-directory 1000) (make-instance 'initialization-subsystem))) (format t "~&; Startup der Quadratmeterdatenbank done.~%") (force-output)) Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-25 12:53:57 UTC (rev 3637) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-25 12:59:11 UTC (rev 3638) @@ -357,14 +357,12 @@ :name '*contract-tree*)) (dolist (contract (class-instances 'contract)) (when (contract-published-p contract) - (insert-contract *contract-tree* contract))) - (format t "~&rendering contract-tree images if needed...") (force-output) - (format t "done.~%") (force-output) + (insert-contract *contract-tree* contract))) (geometry:register-rect-subscriber geometry:*rect-publisher* *contract-tree* (list 0 0 +width+ +width+) #'contract-tree-changed)) (register-transient-init-function 'make-contract-tree-from-m2 - 'make-quad-tree - 'geometry:make-rect-publisher) + 'make-quad-tree + 'geometry:make-rect-publisher)

1 0

[bknr-cvs] hans changed trunk/thirdparty/u
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3637 Author: hans URL: http://bknr.net/trac/changeset/3637 FIxes for cmucl-20 U trunk/thirdparty/uffi-1.6.0/src/libraries.lisp U trunk/thirdparty/usocket/backend/cmucl.lisp Modified: trunk/thirdparty/uffi-1.6.0/src/libraries.lisp =================================================================== --- trunk/thirdparty/uffi-1.6.0/src/libraries.lisp 2008-07-25 12:53:31 UTC (rev 3636) +++ trunk/thirdparty/uffi-1.6.0/src/libraries.lisp 2008-07-25 12:53:57 UTC (rev 3637) @@ -95,22 +95,11 @@ (find filename *loaded-libraries* :test #'string-equal)) t ;; return T, but don't reload library (progn - #+cmu - (let ((type (pathname-type (parse-namestring filename)))) - (if (string-equal type "so") - (unless - (sys::load-object-file filename) - (load-failure)) - (alien:load-foreign filename - :libraries - (convert-supporting-libraries-to-string - supporting-libraries)))) - #+scl - (let ((type (pathname-type (parse-namestring filename)))) - (alien:load-foreign filename - :libraries - (convert-supporting-libraries-to-string - supporting-libraries))) + #+(or cmu scl) + (alien:load-foreign filename + :libraries + (convert-supporting-libraries-to-string + supporting-libraries)) #+sbcl (handler-case (sb-alien::load-1-foreign filename) (sb-int:unsupported-operator (c) Modified: trunk/thirdparty/usocket/backend/cmucl.lisp =================================================================== --- trunk/thirdparty/usocket/backend/cmucl.lisp 2008-07-25 12:53:31 UTC (rev 3636) +++ trunk/thirdparty/usocket/backend/cmucl.lisp 2008-07-25 12:53:57 UTC (rev 3637) @@ -166,6 +166,13 @@ (unix:unix-gethostname)) (defun wait-for-input-internal (sockets &key timeout) + #+MP + (progn + (unless (= 1 (length sockets)) + (error "can't wait for multiple file descriptors with multiprocessing enabled")) + (mp:process-wait-until-fd-usable (socket (car sockets)) :input timeout) + sockets) + #-MP (with-mapped-conditions () (alien:with-alien ((rfds (alien:struct unix:fd-set))) (unix:fd-zero rfds)

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-interpol-0.2.1/
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3636 Author: edi URL: http://bknr.net/trac/changeset/3636 Tag cl-interpol 0.2.1 A tags/thirdparty/cl-interpol-0.2.1/ Copied: tags/thirdparty/cl-interpol-0.2.1 (from rev 3635, trunk/thirdparty/cl-interpol)

1 0

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

25 Jul '08

Revision: 3635 Author: edi URL: http://bknr.net/trac/changeset/3635 Update to 0.2.1 U trunk/thirdparty/cl-interpol/CHANGELOG U trunk/thirdparty/cl-interpol/cl-interpol.asd U trunk/thirdparty/cl-interpol/doc/index.html Modified: trunk/thirdparty/cl-interpol/CHANGELOG =================================================================== --- trunk/thirdparty/cl-interpol/CHANGELOG 2008-07-25 12:00:52 UTC (rev 3634) +++ trunk/thirdparty/cl-interpol/CHANGELOG 2008-07-25 12:53:11 UTC (rev 3635) @@ -1,3 +1,7 @@ +Version 0.2.1 +2008-07-25 +Fixed typo in HTML documentation + Version 0.2.0 2008-07-24 Base Unicode support on CL-UNICODE Modified: trunk/thirdparty/cl-interpol/cl-interpol.asd =================================================================== --- trunk/thirdparty/cl-interpol/cl-interpol.asd 2008-07-25 12:00:52 UTC (rev 3634) +++ trunk/thirdparty/cl-interpol/cl-interpol.asd 2008-07-25 12:53:11 UTC (rev 3635) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-interpol/cl-interpol.asd,v 1.10 2008/07/23 16:10:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-interpol/cl-interpol.asd,v 1.11 2008/07/25 12:51:58 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. @@ -35,7 +35,7 @@ (in-package :cl-interpol-asd) (defsystem :cl-interpol - :version "0.2.0" + :version "0.2.1" :serial t :depends-on (:cl-unicode) :components ((:file "packages") Modified: trunk/thirdparty/cl-interpol/doc/index.html =================================================================== --- trunk/thirdparty/cl-interpol/doc/index.html 2008-07-25 12:00:52 UTC (rev 3634) +++ trunk/thirdparty/cl-interpol/doc/index.html 2008-07-25 12:53:11 UTC (rev 3635) @@ -86,7 +86,7 @@ CL-INTERPOL together with this documentation can be downloaded from <a href="http://weitz.de/files/cl-interpol.tar.gz">http://weitz.de/files/cl-interpol.tar.gz</a>. The -current version is 0.2.0. +current version is 0.2.1. CL-INTERPOL comes with a system definition for <a href="http://www.cliki.net/asdf">ASDF</a> so you can install the library with @@ -492,7 +492,7 @@ Beyond what has been explained above CL-INTERPOL can support Perl regular expression syntax. This feature is mainly intended for use with <a href="http://weitz.de/cl-ppcre/">CL-PPCRE</a> (version 0.7.0 or higher). The regular expression mode is switched on if the <a href="#outer">opening outer delimiter</a> is a <code class=yellow>/</code> (slash) - but see <a href="#*regex-delimiters*"><code>*REGEX-DELIMITERS*</code></a>. It is also on if there's an <code class=yellow>r</code> (lowercase or uppercase) in front of the opening outer delimiter. If there's also an <code class=yellow>x</code> (lowercase or uppercase) in front of the opening outer delimiter (but behind the <code class=yellow>r</code> if it's there), the string will be read in extended mode (see <code>man perlre</code> for a detailed explanation). In these modes the following things are different from what's described above: <ul> - <li><code class=yellow>\k</code>, <code class=yellow>\p</code>, <code class=yellow>\P</code>, <code class=yellow>\w</code>, <code class=yellow>\W</code>, <code class=yellow>\s</code>, + <li><code class=yellow>\p</code>, <code class=yellow>\P</code>, <code class=yellow>\w</code>, <code class=yellow>\W</code>, <code class=yellow>\s</code>, <code class=yellow>\S</code>, <code class=yellow>\d</code>, and <code class=yellow>\D</code> are never converted to their unescaped (backslash-less) counterparts because they have or can have a special meaning in regular expressions. @@ -713,7 +713,7 @@ book</a>!!! -$Header: /usr/local/cvsrep/cl-interpol/doc/index.html,v 1.38 2008/07/23 16:10:09 edi Exp $ +$Header: /usr/local/cvsrep/cl-interpol/doc/index.html,v 1.39 2008/07/25 12:52:00 edi Exp $ <a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> </body>

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-ppcre-2.0.0/cl-ppcre-test.asd
by BKNR Commits 25 Jul '08

25 Jul '08

Revision: 3634 Author: edi URL: http://bknr.net/trac/changeset/3634 Fix tagges version as well D tags/thirdparty/cl-ppcre-2.0.0/cl-ppcre-test.asd Deleted: tags/thirdparty/cl-ppcre-2.0.0/cl-ppcre-test.asd =================================================================== --- tags/thirdparty/cl-ppcre-2.0.0/cl-ppcre-test.asd 2008-07-25 12:00:02 UTC (rev 3633) +++ tags/thirdparty/cl-ppcre-2.0.0/cl-ppcre-test.asd 2008-07-25 12:00:52 UTC (rev 3634) @@ -1,34 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre-test.asd,v 1.14 2008/06/25 14:04:27 edi Exp $ - -;;; This ASDF system definition was kindly provided by Marco Baringer. - -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(asdf:defsystem :cl-ppcre-test - :depends-on (:cl-ppcre) - :components ((:file "ppcre-tests")))

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
33
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs July 2008