X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fusql.cl;fp=sql%2Fusql.cl;h=c140fc40b6338f905a75d595b9830cb007c55fda;hb=611b2d3ab3ef5f80b29f5352af2e5a5bf551ce99;hp=85e7b7780a7404dba0893949d1fb109e19e0541e;hpb=5829838b970346a58f75683ecba005007414edb9;p=clsql.git diff --git a/sql/usql.cl b/sql/usql.cl index 85e7b77..c140fc4 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.4 2002/04/06 22:27:41 kevin Exp $ +;;;; $Id: usql.cl,v 1.5 2002/04/06 22:41:37 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and onShore Development Inc @@ -120,9 +120,6 @@ specifies the database to operation on, defaulting to (defvar *sql-stream* nil "stream which accumulates SQL output") -(defclass %sql-expression () - ()) - (defmethod output-sql ((expr %sql-expression) &optional (database *default-database*)) (declare (ignore database))