X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;fp=sql%2Ftime.lisp;h=751203334a3665e2079f73eece2460eb4d54cc78;hp=22fd87be14bee56b044ac62ce0df6f9dfc100a42;hb=9a3ce518152a2f74eda63d467ad9f8b8594da776;hpb=868b0433b0430c362da1d5fd1d7cba63757d07e1

diff --git a/sql/time.lisp b/sql/time.lisp
index 22fd87b..7512033 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -406,7 +406,9 @@
 );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