From: Nathan Bird <nathan@acceleration.net>
Date: Wed, 3 Mar 2010 21:43:23 +0000 (-0500)
Subject: Restoring &optional lambda-list flag that looks to have been dropped on accident... 
X-Git-Tag: v5.0.5~4
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=03f9b6f139fed2ba05df5bc2471555346e075bff

Restoring &optional lambda-list flag that looks to have been dropped on accident in fe6d36c1
---

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 976dd19..7aa40e7 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -405,7 +405,7 @@ the length of that format.")
                                         ; from it after that..
 
 
-(defun fetch-row (qc (eof-errorp t) eof-value encoding)
+(defun fetch-row (qc &optional (eof-errorp t) eof-value encoding)
   (declare (optimize (speed 3)))
   (cond ((zerop (qc-n-from-oci qc))
          (if eof-errorp