Packed up LINE, COL, and CHAR-CODE in a single fixnum.
(vl-echarpack-p x) → *
Function:
(defun vl-echarpack-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-echarpack-p)) (declare (ignorable __function__)) (if (integerp x) (and (<= 0 x) (< 0 (ash x -30)) (< x (expt 2 60))) (and (consp x) (consp (car x)) (posp (caar x)) (natp (cdar x)) (unsigned-byte-p 8 (cdr x))))))