STATIC-COMPENSATOR-FLIPPER

Package FLIP contains a symbol FLIPPER-POS, which evaluates to NIL, but internally represents control axis of the device.

POS

With zero arguments, returns the last known position of the static compensator flipper. One argument must be number 1, 2 or 3, for positions mirror, ZnSe or Si (respectively).

>(flip::pos)
1
 
>(flip::pos 3)
3

MOVING?

Usual “busy” predicate. No arguments.