;;-*-Lisp-*-
(in-package goal)

;; definition of type los-control
(deftype los-control (structure)
  ((src-proc             handle)
   (dst-proc             handle)
   (have-los             time-frame)
   (have-no-los          time-frame)
   (check-interval       time-frame)
   (last-check-time      time-frame)
   (last-collide-result  collide-tri-result  :inline)
   (collide-with         collide-spec        :offset 144)
   )
  (:methods
    (los-control-method-9 (_type_ process-focusable vector float) none :behavior process)
    (check-los? (_type_ time-frame) symbol :behavior process)
    (skip-check-los? (_type_ int) symbol :behavior process)
    (set-dst-proc! (_type_ handle) none)
    (new-source! (_type_ process time-frame collide-spec) none)
    )
  )

;; definition for method 3 of type los-control
(defmethod inspect ((this los-control))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'los-control)
  (format #t "~1Tsrc-proc: ~D~%" (-> this src-proc))
  (format #t "~1Tdst-proc: ~D~%" (-> this dst-proc))
  (format #t "~1Thave-los: ~D~%" (-> this have-los))
  (format #t "~1Thave-no-los: ~D~%" (-> this have-no-los))
  (format #t "~1Tcheck-interval: ~D~%" (-> this check-interval))
  (format #t "~1Tlast-check-time: ~D~%" (-> this last-check-time))
  (format #t "~1Tlast-collide-result: #<collide-tri-result @ #x~X>~%" (-> this last-collide-result))
  (format #t "~1Tcollide-with: ~D~%" (-> this collide-with))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0