Infinite width vector, all Xes.
Definition: *4vec-x*
(defconst *4vec-x* (make-honsed-4vec :upper -1 :lower 0))
Macro: 4vec-x
(defmacro 4vec-x nil (cons 'quote (cons *4vec-x* 'nil)))
