clear-queueQueue Managementfirst-queue-elementdo-queueGoTo Top

do-queue   (var queue) declaration* {tag | form}*[Macro]

Purpose
Iterate over each queue element on the specified queue.

Package   :gbbopen

Module   :queue

Arguments and values

var     A variable symbol
queue     A GBBopen queue
declaration     A declare expression (not evaluated)
tag     A go tag (not evaluated)
form     A form

Description
The iteration over queue elements is performed in queue order (first to last).

See also
    map-queue
    queue
    ordered-queue

Example
Count the number of pending KSAs that were triggered by hyp:

  > (let ((count 0))
      (do-queue (ksa pending-ksas)
        (when (memq hyp (collect-trigger-instances ksa))
          (incf& count)))
       count)
  31
  >


The GBBopen Project


clear-queueQueue Managementfirst-queue-elementdo-queueGoTo Top