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

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