Lines Matching full:foreign
23 (new-inst (cl:make-instance '$lclass :foreign-address address)))
28 %typemap(lout) SWIGTYPE "(cl::let* ((address $body)\n (new-inst (cl::make-instance '$lclass :foreign-address address)))\n (cl::unless (cl::zerop address)\n (excl:schedule-finalization new-inst #'$ldestructor))\n (cl::setq ACL_ffresult new-inst))";
32 (new-inst (cl:make-instance '$lclass :foreign-address address)))
76 idea: add a constant-p slot to the base foreign-pointer class. For
436 ;; in the foreign setter function the new value will be the last argument
480 (ff:def-foreign-call (,mangle ,mangled-name) ,ffargs ,@kwargs))
506 (ff:def-foreign-call (,mangle ,mangled-name) ,ffargs ,@kwargs))
523 (t (cl::error "No applicable wrapper-methods for foreign call ~a with args ~a of classes ~a" ',symbol args (cl::mapcar #'(cl::lambda (x) (cl::class-name (cl::class-of x))) args)))
526 (defswig2 swig-def-foreign-stub (name)
530 (ff:def-foreign-type ,symbol (:class ))
531 (cl::defclass ,lsymbol (ff:foreign-pointer) ()))))
533 (defswig2 swig-def-foreign-class (name supers &rest rest)
537 (ff:def-foreign-type ,symbol ,@rest)
539 ((foreign-type :initform ',symbol :initarg :foreign-type
540 :accessor foreign-pointer-type))))))
542 (defswig2 swig-def-foreign-type (name &rest rest)
545 (ff:def-foreign-type ,symbol ,@rest))))
550 (ff:def-foreign-type ,ff-synonym (:struct ))))
581 (ff:def-foreign-variable (,symbol ,mangled-name) :type ,ftype))))
