The scheduled-p function tests whether a given task is currently scheduled.
The task argument is the task which is to be checked. The task was originally created when a production fired, or when there was an explicit call to perform or schedule.
The scheduled-p function returns the queue containing task, or nil if task is not currently scheduled.
(setq t1 (schedule (move (fi box3))))
(scheduled-p t1) ==> (:HIGH |TASK|(MOVE |I|BOX3))
Last modified: Jun 1 1995