X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=6b558364af0d66c1f9850d77f39699cfb6eb4286;hb=5691bb90517d7c565a141d131da76c3de1f8d566;hp=072465eda7b56a530b75d96110271fdc8bd212a8;hpb=7d50938ba2db52a713498e49aa1679deae6f0b6b;p=clsql.git

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 072465e..6b55836 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id: oracle-sql.lisp,v 1.1 2002/09/30 10:19:23 kevin Exp $
+;;; $Id$
 
 ;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases
 ;;; This is copyrighted software.  See documentation for terms.
@@ -8,7 +8,7 @@
 ;;;
 ;;; derived from postgresql.lisp
 
-(in-package :clsql-oracle)
+(in-package #:clsql-oracle)
 
 (defmethod database-initialize-database-type
     ((database-type (eql :oracle)))
@@ -797,7 +797,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))