gistfile1.lisp

;; DMATCH


(define-foreign-type dmatch ()
  ((garbage-collect :reader garbage-collect :initform nil :initarg 
                     :garbage-collect))
  (:actual-type :pointer)
  (:simple-parser dmatch))


(defclass cv-dmatch ()
  ((c-pointer :reader c-pointer :initarg :c-pointer)))


(defmethod translate-to-foreign ((lisp-value cv-dmatch) (c-type dmatch))
  (values (c-pointer lisp-value) lisp-value))


(defmethod translate-from-foreign (c-pointer (c-type dmatch))
  (let ((dmatch  (make-instance 'cv-dmatch :c-pointer c-pointer)))
    (when (garbage-collect c-type)
      (tg:finalize dmatch (lambda () (del-dmatch c-pointer))))
    dmatch))