HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
f00b@R
[clinton/lisp-on-lines.git]
/
src
/
backend
/
clsql.lisp
diff --git
a/src/backend/clsql.lisp
b/src/backend/clsql.lisp
index
8d593dc
..
5eff8cc
100644
(file)
--- a/
src/backend/clsql.lisp
+++ b/
src/backend/clsql.lisp
@@
-53,7
+53,7
@@
(unless (member name *clsql-base-classes*)
(setf *clsql-base-classes* (cons name *clsql-base-classes*))))
(unless (member name *clsql-base-classes*)
(setf *clsql-base-classes* (cons name *clsql-base-classes*))))
-(defparameter *sql-type-map* '((:INT4 integer) (:TEXT string) (:VARCHAR string) (:TIMESTAMP clsql-sys::wall-time) (:NUMERIC number)(:BYTEA string)))
+(defparameter *sql-type-map* '((:INT4 integer) (:
BOOL boolean) (:
TEXT string) (:VARCHAR string) (:TIMESTAMP clsql-sys::wall-time) (:NUMERIC number)(:BYTEA string)))
(defun gen-type (table column)
(cadr (assoc
(defun gen-type (table column)
(cadr (assoc