\begin{flushleft}
\hrulefill

\vspace*{-4mm}

\begin{alltt}
STk> (define-generic f){\em{
\#[undefined]} }
\end{alltt}
\begin{alltt}
STk> (define-method f ((a <collection<int*>>)) 'f){\em{
f} }
\end{alltt}
\begin{alltt}
STk> (f (mset-int 1 2)){\em{
f} }
\end{alltt}
\begin{alltt}
STk> (f (set-int 1 2)){\em{
f} }
\end{alltt}
\begin{alltt}
STk> (f (sequence-int 1 2)){\em{
f} }
\end{alltt}
\begin{alltt}
STk> (f (list-int 1 2)){\em{

*** Error:
No applicable method for \#[\(<\)generic\(>\) \#p50c454]
in call (f \#[\(<\)list\(<\)int*\(>\)\(>\) \#p4fd7a8])} }
\end{alltt}

\vspace*{-5mm}

\hrulefill
\end{flushleft}