Changeset 5781

Timestamp:

Jan 23, 2007, 2:14:05 PM (18 years ago)

Author:

Gary Byers

Message:

FF-CALL implemented in terms of the new ftd hook.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -1320 +1320 @@
 Lisp object of type indicated by result-type-specifier), or NIL if
 result-type-specifer is :VOID or NIL"
+  (funcall (ftd-ff-call-expand-function *target-ftd*)
+           `(%ff-call ,entry) args)
+  #+nil          
   (let* ((monitor (eq (car args) :monitor-exception-ports)))
     (when monitor