Version 6.4.1 debian-6.4.1-1 v6.4.1
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 18 Apr 2013 17:30:35 +0000 (11:30 -0600)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 18 Apr 2013 17:30:35 +0000 (11:30 -0600)
  Add support for CCL weak hash tables

ChangeLog
debian/changelog
debian/rules
sql/utils.lisp

index b305fa1..7e23b23 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
index f195097..bb6a915 100644 (file)
@@ -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
index 74d4500..b48c3ae 100755 (executable)
@@ -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
 
index 39ee349..a215a44 100644 (file)
@@ -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)
     ))