(vl-echarpack code line col) → *
Function:
(defun vl-echarpack$inline (code line col) (declare (xargs :guard (and (unsigned-byte-p 8 code) (posp line) (natp col)))) (declare (type (unsigned-byte 8) code)) (let ((__function__ 'vl-echarpack)) (declare (ignorable __function__)) (if (and (< (the (integer 0 *) line) (expt 2 30)) (< (the (integer 0 *) col) (expt 2 22))) (let* ((line-shift (the (unsigned-byte 60) (ash (the (unsigned-byte 30) line) 30))) (col-shift (the (unsigned-byte 30) (ash (the (unsigned-byte 22) col) 8)))) (the (unsigned-byte 60) (logior (the (unsigned-byte 60) (logior (the (unsigned-byte 60) line-shift) (the (unsigned-byte 30) col-shift))) (the (unsigned-byte 8) code)))) (cons (cons line col) code))))
Theorem:
(defthm vl-echarpack-p-of-vl-echarpack (implies (and (force (unsigned-byte-p 8 code)) (force (posp line)) (force (natp col))) (vl-echarpack-p (vl-echarpack code line col))))