;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-


(defvar a nil)
(defun foo (n)
  (tagbody
      repeat
	 (let ((a t))
	   (unless (zerop (decf n))
	     (go repeat)))))