(defstruct Missing [id i32])

(defn load [n i32] i32
  (restart-case
    (do (error (Missing {.id n}))   ; Never — only a transfer gets past
        0)
    (use-placeholder [] -1)
    (retry           [] 7)))

(defn main []
  (print (load 1))
  (println ""))