X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=8475f47f904883e96b31c5756d3fa07754579f2c;hp=87d1137ff910b29505c79c7fef7f83851224152d;hb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3;hpb=e567409d9fff3f7231c2a0bb69b345e19de2b246

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index 87d1137..8475f47 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -4,8 +4,6 @@
 ;;;;
 ;;;; Name:          oracle-sql.lisp
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; This file is part of CLSQL.
 ;;;;
 ;;;; CLSQL users are granted the rights to distribute and use this software
@@ -366,9 +364,9 @@ the length of that format.")
 ;; STREAM which has no more data, and QC is not a STREAM, we signal
 ;; DBI-ERROR instead.
 
-(uffi:def-type short-array (:array :short nil))
-(uffi:def-type int-array (:array :int nil))
-(uffi:def-type double-array (:array :double nil))
+(uffi:def-type short-array (* :short))
+(uffi:def-type int-array (* :int))
+(uffi:def-type double-array (* :double))
 (uffi:def-type int-pointer (* :int))
 (uffi:def-type double-pointer (* :double))