r9777: 15 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / db-oracle / oracle-sql.lisp

diff --git a/db-oracle/oracle-sql.lisp b/db-oracle/oracle-sql.lisp
index d4d0cdc4f8209971d117fdc81d899efa2863b15e..5ee5ce4e1290f99fd7baa588d7f8d305ce20fea7 100644 (file)
--- 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