(let* ((args (parse-closure-arguments count-of-args args))
(function-id (foreign-slot-value closure 'lisp-closure :function-id))
(return-type (and (not (null-pointer-p return-value))
(let* ((args (parse-closure-arguments count-of-args args))
(function-id (foreign-slot-value closure 'lisp-closure :function-id))
(return-type (and (not (null-pointer-p return-value))