r11407: 28 Dec 2006 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))
-  (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