;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
nil (ffi:parse-c-type c-function)))
(return-value-translator (from-alien-function return-type)))
(multiple-value-bind (arg-translators cleanup-funcs)
nil (ffi:parse-c-type c-function)))
(return-value-translator (from-alien-function return-type)))
(multiple-value-bind (arg-translators cleanup-funcs)
(lookup-method (type-spec)
(if (and (symbolp type-spec) (find-class type-spec nil))
(let ((class (find-class type-spec)))
(lookup-method (type-spec)
(if (and (symbolp type-spec) (find-class type-spec nil))
(let ((class (find-class type-spec)))
(unless (class-finalized-p class)
(finalize-inheritance class))
(search-method-in-cpl-order
(unless (class-finalized-p class)
(finalize-inheritance class))
(search-method-in-cpl-order