(defpackage :code-lookup
  (:use :cl :serapeum :alexandria :fw.lu)
  (:export ))
(in-package :code-lookup)


(defun call-with-auto-coercions (coercions cb)
  (handler-bind ((type-error (lambda (c)
                               (loop for ((from-type to-type) . coercion) in coercions
                                  when (and (subtypep to-type (type-error-expected-type c))
                                            (subtypep (type-of (type-error-datum c)) from-type))
                                  do (store-value (funcall coercion (type-error-datum c)))))))
    (funcall cb)))