(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "13-Jun-88 17:45:50" {ERIS}<TEST>MAIKO>HAND>MAIKO-UNWIND-TESTS.\;2
 1473   

      |changes| |to:|  (VARS MAIKO-UNWIND-TESTSCOMS)
                       (FUNCTIONS UNWIND-TEST UNWIND-TEST-2)

      |previous| |date:| "13-Jun-88 17:41:59" {ERIS}<TEST>MAIKO>HAND>MAIKO-UNWIND-TESTS.\;1)


(PRETTYCOMPRINT MAIKO-UNWIND-TESTSCOMS)

(RPAQQ MAIKO-UNWIND-TESTSCOMS
 ((FUNCTIONS UNWIND-TEST UNWIND-TEST-2)
                                   (VAR (UNWIND-SPECIAL-VAR NIL))
                                   (PROPS (MAIKO-UNWIND-TESTS FILETYPE))))

(CL:DEFUN UNWIND-TEST
 (&OPTIONAL (USER::LIMIT 20))

   (* |;;| "This function should compile so that the UNWIND opcode is emitted at TAG.  Runs thru the tagbody 'limit' times, defaulting to 20.")


   (CL:DOTIMES (USER::I USER::LIMIT)
       (CL:TAGBODY (+ 2 (UNWIND-TEST-2 #'(CL:LAMBDA NIL (GO TAG))))
              #'(CL:LAMBDA NIL (GO TAG))
              TAG
              (SETQ UNWIND-SPECIAL-VAR (DATE)))))

(CL:DEFUN UNWIND-TEST-2
 (CLOSURE)
   (CL:FUNCALL CLOSURE))

(RPAQQ UNWIND-SPECIAL-VAR
 NIL)

(PUTPROPS MAIKO-UNWIND-TESTS FILETYPE
 :COMPILE-FILE)
(PRETTYCOMPRINT MAIKO-UNWIND-TESTSCOMS)

(RPAQQ MAIKO-UNWIND-TESTSCOMS
 ((FUNCTIONS UNWIND-TEST UNWIND-TEST-2)
                                   (VARS (UNWIND-SPECIAL-VAR NIL))
                                   (PROPS (MAIKO-UNWIND-TESTS FILETYPE))))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP