Changeset 5742

Timestamp:

Jan 20, 2007, 6:16:05 PM (18 years ago)

Author:

Gary Byers

Message:

Remove the debugging FORMAT call.

File:

• trunk/ccl/library/parse-ffi.lisp (modified) (1 diff)

trunk/ccl/library/parse-ffi.lisp

@@ -645 +645 @@
       (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)