Naive, ordinary implementation of mapping f.
(map-spec x) → *
Function:
(defun map-spec (x) (declare (xargs :guard t)) (let ((acl2::__function__ 'map-spec)) (declare (ignorable acl2::__function__)) (if (atom x) nil (cons (f (car x)) (map-spec (cdr x))))))