From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 18 Apr 2013 17:30:35 +0000 (-0600)
Subject: Version 6.4.1
X-Git-Tag: v6.4.1^0
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=43971c970889fee2a4766ff8e33da292a239f1bc

Version 6.4.1
  Add support for CCL weak hash tables
---

diff --git a/ChangeLog b/ChangeLog
index b305fa1..7e23b23 100644
--- 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 f195097..bb6a915 100644
--- 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 74d4500..b48c3ae 100755
--- 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 39ee349..a215a44 100644
--- 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)
     ))