- ;; 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