Added prolog facts for perception calls when querying for currently visible objs

Use it like this:
(crs:prolog `(currently-visible-objects ?template ?obj))

The `?template' parameter is an object designator holding the object description prototype to pass to the perception subplan. In case you don't want to specify a template, omit the parameter:
(crs:prolog `(currently-visible-objects ?obj))