Macro for issuing a sequence of printer commands.
The macro
(vl-ps-seq (vl-print "foo") (vl-println "bar") ...)
Is short for:
(let* ((ps (vl-print "foo")) (ps (vl-println "bar")) ...) ps)
Function:
(defun vl-ps-seq-pairs (x) (if (consp x) (cons (cons 'ps (cons (car x) 'nil)) (vl-ps-seq-pairs (cdr x))) nil))