;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Readtable:CL; Base:10 -*-

(defspecialk testerx (&quote a &rest body)
  (print a)
  (gobble-declarations-from-body (vars body)
    (eval-body body)))