From 03f9b6f139fed2ba05df5bc2471555346e075bff Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 3 Mar 2010 16:43:23 -0500 Subject: [PATCH] Restoring &optional lambda-list flag that looks to have been dropped on accident in fe6d36c1 --- db-oracle/oracle-sql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.34.1