list try catch

2015-11-30-090511.lisp

(defun my-print (x)
  (print x)
  'nil)

(defun my-try-catch (flag)
  (my-print 1)
  (catch 'tag
    (progn (my-try-throw flag)
           (my-print 2)
           'finish))
  )

(defun my-try-throw (flag)
  (cond (flag (throw 'tag 'abort))))

(defun my-try-unwind-protect (flag)
  (catch 'tag
    (unwind-protect
        (progn
          (my-try-throw flag)
          (my-print 1))
      (my-print 2)
      (my-print 3))))