\documentclass{beamer}
\usetheme{Singapore}
\mode<presentation>
\setbeamercovered{dynamic}
\usepackage{CJKutf8}
\newenvironment{changemargin}[2]{%
\begin{list}{}{%
\setlength{\topsep}{0pt}%
\setlength{\leftmargin}{#1}%
\setlength{\rightmargin}{#2}%
\setlength{\listparindent}{\parindent}%
\setlength{\itemindent}{\parindent}%
\setlength{\parsep}{\parskip}%
}%
\item[]}{\end{list}}

\usepackage{listings}

\AtBeginSection[]
{
   \begin{frame}
       \frametitle{Outline}
       \tableofcontents[currentsection]
   \end{frame}
}


\begin{document}
\lstset{basicstyle=\small,language=Lisp,linewidth=\textwidth,frame=single}
\begin{CJK}{UTF8}{min}

  \CJKfamily{min}%
  \CJKtilde
  \CJKnospace


\title{cl-irregsexp: faster and prettier regexps \\
高速で理解しやすい正規表現 }
\author{John Fremlin}
\institute{http://john.freml.in}
\date{2009 February 28}

\frame{\titlepage}

\frame{\frametitle{cl-irregsexp is a text matching library \\
textマッチ用ライブラリ}

Different syntax from boring old regular expressions.

  \begin{itemize}
  \item Easy to use 利用が簡単
  \item Fast 速い
  \item Fun 楽!
  \item Portable Common Lisp 多くのCommon Lispで動く 
  \end{itemize}

cl-irregsexp uses a generalisation of the Boyers-Moore string matching
algorithm. \\
cl-irregsexpはBoyers-Moore文字列マッチアルゴリズムの汎用化を使っている。
}

\defverbatim[colored]\exampleregexp{
  \begin{lstlisting}
/^([^ ]+)[ ]+([^ ]+)[ ]+HTTP/([0-9]+)\.([0-9]+)$/
  \end{lstlisting}}

\defverbatim[colored]\examplelisp{
  \begin{lstlisting}
(match-bind 
     (method (+ (space)) url (+ (space)) 
      "HTTP/" 
      (version-major (integer)) "." 
      (version-minor (integer)) 
      (last))  
          line 
	  . . .)
  \end{lstlisting}
}

\frame{\frametitle{Match ``GET / HTTP/1.1'' にマッチさせるには}

Old style regular expressions 普通の正規表現のスタイル

\exampleregexp

\pause

cl-irregsexp:

\examplelisp
}

\begin{frame}[plain]
\begin{changemargin}{-1cm}{-1cm}
\begin{center}
\includegraphics[width=\paperwidth,height=\paperheight,keepaspectratio]{search-graph}
\end{center}
\end{changemargin}
\end{frame}


\frame{\frametitle{A new name? 名前募集中}

名前募集中 \dots

\begin{center}
\bf{http://common-lisp.net/projects/cl-irregsexp/}

john@fremlin.org  
\end{center}

}

\end{CJK}
\end{document}