Break 6 [7]> (asdf:load-system :lisp-critic)
0 errors, 0 warnings
0 errors, 0 warnings
T
Break 6 [7]> (critique (defun foo (x) (setq x (+ x 1))))

*** - EVAL: undefined function CRITIQUE
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of (FDEFINITION 'CRITIQUE).
RETRY          :R2      Retry
STORE-VALUE    :R3      Input a new value for (FDEFINITION 'CRITIQUE).
ABORT          :R4      Abort debug loop
ABORT          :R5      Abort debug loop
ABORT          :R6      Abort debug loop
ABORT          :R7      Abort debug loop
ABORT          :R8      Abort debug loop
ABORT          :R9      Abort debug loop
ABORT          :R10     Abort main loop