Version 6.4.1

  Add support for CCL weak hash tables

diff --git a/ChangeLog b/ChangeLog
index b305fa1aa486a622f155b2a1451d29f03b83fb0d..7e23b237aeb84ac71f9868363e1ef5fbe5517875 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-17 Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 6.4.1
+       * sql/utils.lisp: Patch from Ben Hyde to add weak hash table
+       support for CCL.
+
 2013-03-07 Ryan Davis <ryan@acceleration.net>
        * db-postgresql-socket/postgresql-socket-api.lisp - bugfix to
        adapt to changes in md5:md5sum-sequence. CLSQL now requires a

diff --git a/debian/changelog b/debian/changelog
index f19509783af426e5541c2ebc5b8927d93085f393..bb6a915a40c589a8197fe8309fe583b491634ac4 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (6.4.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 18 Apr 2013 11:21:25 -0600
+
 cl-sql (6.4.0-1) unstable; urgency=low
 
   * New release

diff --git a/debian/rules b/debian/rules
index 74d450051afb07ddc0116befc80c58b0294b4efa..b48c3aedac591568468f4e5ee6792145192fb247 100755 (executable)
--- a/debian/rules
+++ b/debian/rules
@@ -69,6 +69,7 @@ lispdir-tests := $(clc-tests)/tests
 build-arch: build-arch-stamp
 build-arch-stamp:
        dh_testdir
+       # env LDFLAGS=`pkg-buildflags --get LDFLAGS` $(MAKE)
        $(MAKE)
        touch build-arch-stamp
 

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 39ee349387e2f437c2b7f88388e75fec1e1cb7a5..a215a446ed31cc903584ffc37cf1b18f275ad073 100644 (file)
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -408,7 +408,7 @@ list of characters and replacement strings."
   (setq cl:*features* (delete :clsql-lowercase-reader cl:*features*)))
 
 (defun replace-all (string part replacement &key (test #'char=) stream)
-  "Returns a new string in which all the occurences of the part 
+  "Returns a new string in which all the occurences of the part
 is replaced with replacement. [FROM http://cl-cookbook.sourceforge.net/strings.html#manip]"
   (let ((out (or stream (make-string-output-stream))))
     (loop with part-length = (length part)
@@ -443,7 +443,7 @@ removed. keys are searched with #'MEMBER"
     ;;clearing mechanism. If you are on an implementation that doesn't support
     ;;weak hash tables then you're memory may accumulate.
 
-    #-(or sbcl allegro clisp lispworks)
+    #-(or sbcl allegro clisp lispworks ccl)
     (warn "UNSAFE! use of weak hash on implementation without support. (see clsql/sql/utils.lisp to add)")
 
     (make-hash-table
@@ -451,6 +451,7 @@ removed. keys are searched with #'MEMBER"
       #+clisp     :weak      #+clisp :value
       #+lispworks :weak-kind #+lispworks :value
       #+sbcl :weakness #+sbcl :value
+      #+ccl :weak #+ccl :value
       ,@args)
     ))