(DO ((CURRENT L #) (# NIL)) (WHEN (EQ # E) (RETURN CURRENT)) )
caught ERROR: (during macroexpansion)
-error in function LISP::DO-DO-BODY:
+error in function LISP::FROB-DO-BODY:
DO step variable is not a symbol: (ATOM CURRENT)</screen>
</para>
_ \code{*print-length*} are used.
_ \end{defvar}
_
-_ \begin{defmac}{extensions:}{def-source-context}{%
+_ \begin{defmac}{extensions:}{define-source-context}{%
_ \args{\var{name} \var{lambda-list} \mstar{form}}}
_
_ This macro defines how to extract an abbreviated source context from