projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11761: 20 Jul 2007 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
sql
/
time.lisp
diff --git
a/sql/time.lisp
b/sql/time.lisp
index 22fd87be14bee56b044ac62ce0df6f9dfc100a42..751203334a3665e2079f73eece2460eb4d54cc78 100644
(file)
--- a/
sql/time.lisp
+++ b/
sql/time.lisp
@@
-406,7
+406,9
@@
);eval-when
(defmacro wrap-time-for-date (time-func &key (result-func))
);eval-when
(defmacro wrap-time-for-date (time-func &key (result-func))
- (let ((date-func (intern (replace-string (symbol-name time-func) "TIME" "DATE"))))
+ (let ((date-func (intern (replace-string (symbol-name time-func)
+ (symbol-name-default-case "TIME")
+ (symbol-name-default-case "DATE")))))
`(defun ,date-func (number &rest more-numbers)
(let ((result (apply #',time-func (mapcar #'date->time (cons number more-numbers)))))
,(if result-func
`(defun ,date-func (number &rest more-numbers)
(let ((result (apply #',time-func (mapcar #'date->time (cons number more-numbers)))))
,(if result-func