condition comparison (atomo vs. lisp)

cond-test.atomo.hs

test =
  { { res = { error: @foo } with-restarts: { @use-value -> { r | r } }
      res .. "?"
    } with-restarts: {
      @use-value -> { r | r }
    }
  } bind: {
    Error -> { e | restart: @use-value with: [e show .. "!"] }
  }

test print

-- output: @foo!?

cond-test.lisp

(defun test ()
  (handler-bind
    ((error #'(lambda (e) (invoke-restart 'use-value (format nil "~A!" e)))))
    (restart-case
      (format nil "~A?" (restart-case (error "foo") (use-value (v) v)))
      (use-value (v) v))))

(format t "~A~%" (test))

; output: foo!?