This code[1] doesn't work well in CCL. Calls upon warn-deprecated play out as so:

ps> (warn-deprecated 'forth 'lisp) 0> Calling (warn-deprecated forth lisp) ; Compiler warning: In a toplevel form: Nonspecific warning ; While executing: warn-deprecated, in process repl-thread(12). <0 warn-deprecated returned nil nil ps>

This can be resolved by adjusting the condition being defined:

ps> (define-condition simple-style-warning (simple-warning style-warning) ()) simple-style-warning ps> (warn-deprecated 'forth 'lisp) 0> Calling (warn-deprecated forth lisp) ; Compiler warning: FORTH is deprecated, use LISP instead ; While executing: warn-deprecated, in process repl-thread(12). <0 warn-deprecated returned nil nil ps>

WDYT?