projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2c14c42
)
r8941: add functions, not yet used
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 11 Apr 2004 10:05:18 +0000
(10:05 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 11 Apr 2004 10:05:18 +0000
(10:05 +0000)
sql/classes.lisp
patch
|
blob
|
history
diff --git
a/sql/classes.lisp
b/sql/classes.lisp
index 8f75cbf7a1c91f6ceb49244487cb68d7e1bf6e4d..a2ca8577727d6ac81a996514b935a30cb4b09639 100644
(file)
--- a/
sql/classes.lisp
+++ b/
sql/classes.lisp
@@
-202,6
+202,16
@@
(format *sql-stream* "~s" alias))))
t)
+#|
+(defmethod database-output-sql ((self duration) database)
+ (declare (ignore database))
+ (format nil "'~a'" (duration-timestring self)))
+
+(defmethod database-output-sql ((self money) database)
+ (database-output-sql (slot-value self 'odcl::units) database))
+|#
+
+
(defmethod output-sql-hash-key ((expr sql-ident-table) &optional
(database *default-database*))
(declare (ignore database))