projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved documentation of normalized classes and changelog entry
[clsql.git]
/
sql
/
utils.lisp
diff --git
a/sql/utils.lisp
b/sql/utils.lisp
index 3162a7d8a242e1fc3da6577fdfc136fdd5c60c27..39ee349387e2f437c2b7f88388e75fec1e1cb7a5 100644
(file)
--- a/
sql/utils.lisp
+++ b/
sql/utils.lisp
@@
-17,6
+17,8
@@
(in-package #:clsql-sys)
(defmacro defaulting (&rest place-value-plist)
(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)))))
`(progn
,@(loop for (place value . rest) on place-value-plist by #'cddr
collect `(unless ,place (setf ,place ,value)))))