r9137: add defgenerics

[clsql.git] / base / time.lisp

diff --git a/base/time.lisp b/base/time.lisp
index 44f10e15bd8b6be35fe2481871a9f4112a38a1bc..80e5bed24120e9b504e2e8405c4db89df674f2e1 100644 (file)
--- a/base/time.lisp
+++ b/base/time.lisp
@@ -785,6 +785,9 @@ with the given options"
         (t
          (values hours "AM"))))
 
+(defgeneric to-string (val &rest keys)
+  )
+
 (defmethod to-string ((time wall-time) &rest keys)
   (destructuring-bind (&key (style :daytime) &allow-other-keys)
       keys