From: Kevin M. Rosenberg Date: Sun, 7 Apr 2002 15:11:21 +0000 (+0000) Subject: r1768: moved high-level types from interface level X-Git-Tag: v3.8.6~1158 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f20148d7d403810a2a6e3c3f16674c940998b1f1 r1768: moved high-level types from interface level --- diff --git a/ChangeLog b/ChangeLog index fa48676..9e74ad4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +07 Apr 2002 Kevin Rosenberg (kevin@rosenberg.net) + * src/postgresql-socket/postgresql-socket-api.cl: + Fixed find-foreign-function call, eliminated crypt warning + * Makefiles: + Multiple improvements + * sql/usql.cl: + Moved functionality from low-level interfaces to this file + via generic functions + 06 Apr 2002 Kevin Rosenberg (kevin@rosenberg.net) * src/usql.cl: Reinstated commented out sections diff --git a/VERSION b/VERSION index 907140c..e209ab8 100644 --- a/VERSION +++ b/VERSION @@ -1,4 +1,5 @@ -0.6.5 +0.6.6 + diff --git a/sql/usql.cl b/sql/usql.cl index c140fc4..d2a53ec 100644 --- a/sql/usql.cl +++ b/sql/usql.cl @@ -8,7 +8,7 @@ ;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: usql.cl,v 1.5 2002/04/06 22:41:37 kevin Exp $ +;;;; $Id: usql.cl,v 1.6 2002/04/07 15:11:21 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and onShore Development Inc @@ -130,3 +130,16 @@ specifies the database to operation on, defaulting to (self stream :type t) (write-string (sql-output self) stream))) + +;; Methods for translating high-level table classes to low-level functions + +(defmethod database-list-attributes ((table sql-ident) database) + (database-list-attributes (string-downcase + (symbol-name (slot-value table 'name))) + database) + ) + +(defmethod database-attribute-type (attribute (table sql-ident) database) + (database-attribute-type attribute (string-downcase + (symbol-name (slot-value table 'name))) + database))