{make-class-type @<name> \&optional @<qualifiers> @> @<class-type>}
\end{describe}
-\begin{describe}{fun}
- {make-class-type @<name> \&optional @<qualifiers> @> @<class-type>}
-\end{describe}
-
\begin{describe}{fun}{find-sod-class @<name> @> @<class>}
\end{describe}
@> @<slot>}}
\end{describe*}
-\begin{describe}{fun}
- {find-instance-slot-by-name @<class> @<super-nick> @<slot-name>
- @> @<slot>}
-\end{describe}
-
\begin{describe}{cls}
{sod-class-slot (sod-slot) \\ \ind
\&key :name :location :pset :class :type
\end{describe}
\begin{describe}{gf}
- {make-sod-slot-initarg @<class> @<name> @<nick> @<slot-name> @<pset>
- \&optional @<floc>}
-\end{describe}
-
-\begin{describe}{gf}
{make-sod-slot-initarg-using-slot @<class> @<name> @<slot> @<pset>
\&optional @<floc>}
\end{describe}
\dhead{fun}{setf (p-seenp @<property>) @<boolean>}}
\end{describe*}
-\begin{describe}{gf}{decode-property @<raw-value> @> @<type> @<value>}
-\end{describe}
-
\begin{describe}{gf}
{coerce-property-value @<value> @<type> @<wanted> @> @<coerced-value>}
\end{describe}
\begin{describe}{gf}{parser-step @<context> @> @<form>}
\end{describe}
-\begin{describe}{sym}{it}
-\end{describe}
-
\begin{describe}{mac}
{if-parse (@[[ \=:result @<result-var> @!
:expected @<expected-var> @! \+\\
\begin{describe}[atom]{parse}{@<atom>}
\end{describe}
-\begin{describe}[string]{parse}{@<string>}
-\end{describe}
-
\begin{describe}{cls}{scanner-context () \&key :scanner}
\end{describe}