X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-oracle%2Foracle-sql.lisp;h=5ee5ce4e1290f99fd7baa588d7f8d305ce20fea7;hb=8fa38a6c189dc8b42611c4ee3c31facd5fe00635;hp=d4d0cdc4f8209971d117fdc81d899efa2863b15e;hpb=e4c78f5d2a426c666480fd2636ca262663b170ab;p=clsql.git

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index d4d0cdc..5ee5ce4 100644
--- a/db-oracle/oracle-sql.lisp
+++ b/db-oracle/oracle-sql.lisp
@@ -729,18 +729,6 @@ the length of that format.")
       ;; error-handling mechanism themselves) so we just assert they
       ;; work.
 
-      ;; Using (SETF DEREF-VP) to initialize this pointer fails in OpenMCL
-      ;; due to incorrect evaluation of the :POINTER-VOID argument to
-      ;; UFFI:DEREF-POINTER:
-      ;;
-      ;; > Error in process listener(1): Unknown foreign type: :g10
-      ;; > While executing: ccl::%parse-foreign-type
-      ;;
-      ;; The following works around this for OpenMCL as I'm not
-      ;; certain where the actual problem is. -- JJB 20040713
-      #+openmcl
-      (setf (uffi:deref-pointer envhp :pointer-void) +null-void-pointer+)
-      #-openmcl
       (setf (deref-vp envhp) +null-void-pointer+)
 
       #-oci7