r9311: more header fixes

[clsql.git] / db-oracle / oracle-sql.lisp

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 072465eda7b56a530b75d96110271fdc8bd212a8..686f213a7b5e4d53c33539776fee4376d3e3581c 100644 (file)
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -1,14 +1,19 @@
-;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-sql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
-
-;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
-;;; This is copyrighted software.  See documentation for terms.
-;;; 
-;;; oracle-sql.lisp --- SQL-Interface implementation for Oracle
-;;;
-;;; derived from postgresql.lisp
-
-(in-package :clsql-oracle)
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          oracle-sql.lisp
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file is part of CLSQL.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
+
+(in-package #:clsql-oracle)
 
 (defmethod database-initialize-database-type
     ((database-type (eql :oracle)))
@@ -797,7 +802,9 @@ the length of that format.")))
     (prin1 (qc-db qc) stream)))
 
 
-(defmethod database-query-result-set (query-expression (database oracle-database) &optional full-set)
+(defmethod database-query-result-set ((query-expression string)
+                                     (database oracle-database) 
+                                     &key full-set types)
   )
 
 (defmethod database-dump-result-set (result-set (database oracle-database))