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

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 3162a7d..39ee349 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)))))