with-mirroring-disabledStreamingwith-queued-streamingwith-mirroring-enabledGoTo Top

with-mirroring-enabled   (option*) declaration* form* => result*[Macro]

Purpose
Restore mirroring during evaluation of forms.

Package   :gbbopen

Module   :streaming

Arguments and values

option     No options are currently supported
declaration     A declare expression (not evaluated)
forms     An implicit progn of forms to be evaluated
results     The values returned by evaluating the last form

Returns
The values returned by evaluating the last form.

See also
    add-mirroring
    remove-mirroring
    with-mirroring-disabled

Example
Create a hyp without mirroring, then add supporting-hypothesis links with mirroring:

  > (with-mirroring-disabled
       (let ((hyp (make-instance 'hyp 
                     :location (list x y)
                     :classification '(:car :truck)
                     :color ':red
                     :belief .85
                     :velocity-range '(5 35))))
          (with-mirroring-enabled ()
             (linkf (supporting-hyps-of hyp) supporting-hyps))
          hyp))
  #<hyp 419 (1835 4791) 0.85 [5..35]>
  >


The GBBopen Project


with-mirroring-disabledStreamingwith-queued-streamingwith-mirroring-enabledGoTo Top