(vl-print x) prints text with automatic encoding.
Note: this function ignores ps's print-base and always prints in base 10!
Macro:
(defmacro vl-print (x) (cond ((equal x "") 'ps) ((stringp x) (if (vl-string-needs-html-encoding-p x 0 (length x)) (cons 'vl-print-str (cons x 'nil)) (cons 'vl-print-raw-fast (cons x (cons (length x) 'nil))))) ((natp x) (cons 'vl-print-nat (cons x 'nil))) (t (cons 'vl-print-main (cons x 'nil)))))