Index: /trunk/ccl/library/parse-ffi.lisp
===================================================================
--- /trunk/ccl/library/parse-ffi.lisp	(revision 5741)
+++ /trunk/ccl/library/parse-ffi.lisp	(revision 5742)
@@ -645,11 +645,9 @@
       (setq args (butlast args)))
     (when (ffi-record-type-p retval)
-      (if *ffi-struct-return-explicit*
-        (format t "~& explicit struct return for ~s" ffi-function)
-        (progn
-          (push retval args)
-          (push `(:pointer ,retval) (ffi-function-arglist ffi-function))
-          (setf (ffi-function-return-value ffi-function) *ffi-void-reference*)
-          (setq retval *ffi-void-reference*))))
+      (unless *ffi-struct-return-explicit*
+        (push retval args)
+        (push `(:pointer ,retval) (ffi-function-arglist ffi-function))
+        (setf (ffi-function-return-value ffi-function) *ffi-void-reference*)
+        (setq retval *ffi-void-reference*)))
     (dolist (arg args) (ensure-referenced-type-defined arg))
     (ensure-referenced-type-defined retval)