;; zone allocate a v4 from scalar val ;; v4val expects to be zone allocated (bind-func v4val (lambda (val:float) (let ((v4:/4,float/* (alloc))) (vfill! v4 val val val val) v4)))