История изменений

Исправление monk, 16.11.15 13:52 (текущая версия) :

(defmacro defun (name args &rest body)
  `(defun ,name ,args
     ,@(loop for a in args `(save-arg *state* ',a ,a ,name))
     (restart-case (progn ,@body)
        (do-smth (cont)
           (load-state *state*)
           (cont)))))

Исходная версия monk, 16.11.15 13:51:

(defmacro defun (name args &rest body)
  `(defun ,name ,args
     ,@(loop for a in args `(save-arg *state* ,a ,name))
     (restart-case (progn ,@body)
        (do-smth (cont)
           (load-state *state*)
           (cont)))))