home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / glisp / tt0.gl < prev    next >
Encoding:
Text File  |  1993-10-23  |  413 b   |  17 lines
  1. "catch/throw/unwind-protect test. Should print :
  2. debut c1 c2 le-throw fin-unwind-protect fin-progn"
  3. (progn
  4.   (print "debut")
  5.   (catch :c1
  6.      (print "c1")
  7.      (unwind-protect
  8.        (catch :c2
  9.          (print "c2")
  10.          (throw :c1
  11.             (print "le-throw")
  12.             999)
  13.          (print "fin-c2"))
  14.         (print "fin-unwind-protect"))
  15.      (print "fin-c1"))
  16.    (print "fin-progn"))
  17.