[Maxima-commits] CVS: maxima/share/contrib unwind_protect.lisp, NONE, 1.1

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv20596

Added Files:
	unwind_protect.lisp 
Log Message:
New function unwind_protect

--- NEW FILE: unwind_protect.lisp ---
(defmspec $unwind_protect (e)
  (setq e (margs e))
  (unwind-protect (meval (first e)) (mapcar #'meval (rest e))))