diff --git a/uiop/contrib/debug.lisp b/uiop/contrib/debug.lisp index d10d01ee4b6a2b41db64a6fdf590d58c707fbfcc..276055acbe367dbc76833634cfcf013302d5f48b 100644 --- a/uiop/contrib/debug.lisp +++ b/uiop/contrib/debug.lisp @@ -55,9 +55,9 @@ but can be an arbitrary expression returning a tag to be princ'ed first; if the expression returns NIL, nothing is printed. EXPRS are expressions, which when the TAG was not NIL are evaluated in order, with their source code then their return values being printed each time. -The last expresion is *always* evaluated and its multiple values are returned, +The last expression is *always* evaluated and its multiple values are returned, but its source and return values are only printed if TAG was not NIL; -previous expressions are not evaluated at all if TAG returned NIL. +previous expressions are not evaluated at all if TAG was NIL. The macro expansion has relatively low overhead in space or time." (let* ((last-expr (car (last exprs))) (other-exprs (butlast exprs))