X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket3%2Fsql.lisp;h=3172e6dbd7b2881aaebc1f9c2008fe1aa6aa1eeb;hb=da9282a5c0ce927c613f1706f1c51796c75e16e4;hp=db3ba86e8942660c51e73779d5645a4a1251742e;hpb=f1d668746523a72a6893a46380468a9e033545e4;p=clsql.git diff --git a/db-postgresql-socket3/sql.lisp b/db-postgresql-socket3/sql.lisp index db3ba86..3172e6d 100644 --- a/db-postgresql-socket3/sql.lisp +++ b/db-postgresql-socket3/sql.lisp @@ -109,6 +109,7 @@ (etypecase host (null "localhost") + (keyword "unix") (pathname (namestring host)) (string host)) (when port @@ -325,12 +326,3 @@ (clsql-sys:initialize-database-type :database-type :postgresql-socket3)) -;; Type munging functions - -(defmethod read-sql-value (val (type (eql 'boolean)) (database postgresql-socket3-database) db-type) - (declare (ignore database db-type)) - val) - -(defmethod read-sql-value (val (type (eql 'generalized-boolean)) (database postgresql-socket3-database) db-type) - (declare (ignore database db-type)) - val)