X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql.lisp;h=2cbd602fc4a77c17290254c955b1b8dd1548a80a;hb=647d539c69157228c414905a06253e5d3b193718;hp=a16b6f8f4a18f2ca07642569369ba9c0de2e9fe3;hpb=b2823748750430fbeb14f46d06ec6c1477b31471;p=hyperobject.git

diff --git a/sql.lisp b/sql.lisp
index a16b6f8..2cbd602 100644
--- a/sql.lisp
+++ b/sql.lisp
@@ -7,10 +7,9 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: sql.lisp,v 1.3 2003/03/29 04:04:21 kevin Exp $
+;;;; $Id: sql.lisp,v 1.5 2003/05/14 05:29:48 kevin Exp $
 ;;;;
-;;;; This file, part of Hyperobject-SQL, is
-;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
 
 (in-package :hyperobject)
@@ -36,7 +35,7 @@
 	(define-inverse cl esd))))
   )
 
-(defgeneric sql-name ((cl hyperobject-class))
+(defgeneric sql-name (cl)
   )
 
 (defmethod sql-name ((cl hyperobject-class))