X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;h=a215a446ed31cc903584ffc37cf1b18f275ad073;hp=3162a7d8a242e1fc3da6577fdfc136fdd5c60c27;hb=43971c970889fee2a4766ff8e33da292a239f1bc;hpb=ad3505e2f0d71c858425e4e13b7d9d00e633ba61

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 3162a7d..a215a44 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -17,6 +17,8 @@
 (in-package #:clsql-sys)
 
 (defmacro defaulting (&rest place-value-plist)
+  "for places and values (as an &rest plist)
+   if place-n is null set it to value-n"
   `(progn
     ,@(loop for (place value . rest) on place-value-plist by #'cddr
             collect `(unless ,place (setf ,place ,value)))))
@@ -406,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)
@@ -441,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
@@ -449,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)
     ))