On Fri, Jun 22, 2018 at 5:13 PM Robert Goldman <rpgold...@sift.info> wrote:

> I have a library that provides DEF-UNIMPLEMENTED as a macro for defining
> stub functions. When you compile a file with unimplemented functions, you
> get a warning of the type FOO:UNIMPLEMENTED-STUB in my library FOO.
> I'd like to put in an asdf system definition a file spec something like
> this:
> (:file "file-with-stubs"
>   :method (:around (o c) 
            (handler-bind ((foo:unimplemented-stub
>                               #'(lambda (c)
>                                   (print c)
>                                   (muffle-warning c))
>                 (call-next-method)))
> but, of course, the package foo doesn't exist when this is read (although
> I could put (asdf:load-system "foo") upstream of the enclosing defsystem).
> This isn't a case that's nicely consistent with Faré's hack for
> translating strings or keyword symbols, nor does it seem easy to use
> find-symbol for this purpose.
You could still use FIND-SYMBOL:
(handler-bind ((error (lambda (c) (when (typep c (find-symbol x :foo))))))

Reply via email to