Conflitto tra yfonts e sidebyside (e codice)

Ciao a tutti. Nei miei lavori uso estesamente gli ambienti personalizzati sidebyside e codice (vedi sotto), costruiti sulle fondamenta del pacchetto listings. Hanno sempre funzionato alla grande. Però con il pacchetto yfonts, che permette di scrivere in gotico, non funzionano: a sinistra di sidebyside (e nell’ambiente codice), non c’è il sorente, come dovrebbe, ma comprare il testo compilato. Esempio minimo:
`\documentclass{scrreprt}

\usepackage[applemac]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[german,italian]{babel}
\usepackage[writefile]{listings}
\usepackage{yfonts}

\makeatletter
\lstset{extendedchars}
\lstnewenvironment{sidebyside}{%
\global\let\lst@intname\@empty
\setbox\z@=\hbox\bgroup
\setkeys{lst}{columns=fullflexible,%
linewidth=0.45\linewidth,keepspaces=true,%
breaklines=true,%
breakindent=0pt,%
boxpos=t,%
basicstyle=\small\ttfamily
}%
\lst@BeginAlsoWriteFile{\jobname.tmp}%
}{%
\lst@EndWriteFile\egroup
\begin{center}%
\begin{minipage}{0.45\linewidth}%
\hbox to\linewidth{\box\z@\hss}
\end{minipage}%
\qquad
\begin{minipage}{0.45\linewidth}%
\setkeys{lst}{frame=none}%
\leavevmode \catcode`\^^M=5\relax
\small\input{\jobname.tmp}%
\end{minipage}%
\end{center}%
}
\makeatother

\lstnewenvironment{codice}%
{\setkeys{lst}{columns=fullflexible,keepspaces=true}%
\lstset{basicstyle=\small\ttfamily,escapeinside={£*}{*£}}%
}%
{}

\begin{document}

Prova.

\begin{sidebyside}
Questo ambiente funziona benissimo. Per esempio: \LaTeX.
\end{sidebyside}

\begin{codice}
Anche questo ambiente funziona benissimo. Per esempio: \LaTeX.
\end{codice}

\selectlanguage{german}
\frakfamily\Large\fraklines
\yinipar{D}ie \textswab{Orgel}, der \textswab{Fl*ugel}, das: \textswab{Fortepiano} und das: \textswab{Clavicord} sind die gebr*auchlichsten Clavierinstrumente zum Accompagnement. Es: ist Schade, da”s die sch*one Erfindung des: \textswab{Holfeldischen Bogenclaviers:} noch nicht gemeinn*utzig geworden ist; man kann dahero dessen besondere Vorz*uge hierinnen noch nicht genau bestimmen. Es: ist gewi”s zu glauben, da”s es: sich auch bey der Begleitung gut aus:nehmen werde.

\begin{sidebyside}
\frakfamily\Large\fraklines
\yinipar{D}ie \textswab{Orgel}, der \textswab{Fl*ugel}, das: \textswab{Fortepiano} und das: \textswab{Clavicord} sind die gebr*auchlichsten Clavierinstrumente zum Accompagnement. Es: ist Schade, da”s die sch*one Erfindung des: \textswab{Holfeldischen Bogenclaviers:} noch nicht gemeinn*utzig geworden ist; man kann dahero dessen besondere Vorz*uge hierinnen noch nicht genau bestimmen. Es: ist gewi”s zu glauben, da”s es: sich auch bey der Begleitung gut aus:nehmen werde.
\end{sidebyside}

\begin{codice}
\frakfamily\Large\fraklines
\yinipar{D}ie \textswab{Orgel}, der \textswab{Fl*ugel}, das: \textswab{Fortepiano} und das: \textswab{Clavicord} sind die gebr*auchlichsten Clavierinstrumente zum Accompagnement. Es: ist Schade, da”s die sch*one Erfindung des: \textswab{Holfeldischen Bogenclaviers:} noch nicht gemeinn*utzig geworden ist; man kann dahero dessen besondere Vorz*uge hierinnen noch nicht genau bestimmen. Es: ist gewi”s zu glauben, da”s es: sich auch bey der Begleitung gut aus:nehmen werde.
\end{codice}

\selectlanguage{italian}

Prova. Che succede?

\end{document}`
Come correggere gli ambienti sidebyside e codice affinché facciano il loro dovere?

Grazie mille,
L.