<div class="document" id="intersection-r5rs-cl-el"
     title="Intersection Common Lisp, Emacs Lisp and R5RS Scheme"
     description="BASIC in Common Lisp"
     author="Pascal J. Bourguignon"
     keywords="Intersection, Common Lisp, Emacs Lisp, R5RS, Scheme, Lisp"
     language="en">

  <h1>Intersection Common Lisp, Emacs Lisp and R5RS Scheme</h1>

  <p><a href="intersection-cl-el-r5rs.lisp">intersection-cl-el-r5rs.lisp</a></p>
  <p>This lisp source file can be loaded and run on:
    <ul>
      <li> any Common Lisp conforming implementation, </li>
      <li> any R5RS implementation,</li>
      <li> GNU emacs (tested with emacs-23 and emacs-24).</li>
    </ul>
  </p>

  <p>Example:
    <pre class="code">
        <span class="comint-highlight-prompt">[pjb@kuiper :0 intersection-r5rs-common-lisp-emacs-lisp]$ </span><span class="comint-highlight-input">make test-intersection-cl-el-r5rs</span>


;;======================================================================
;; Test intersection-cl-el-r5rs
;;

;; Common Lisp
clisp <span class="comment">-ansi</span> <span class="comment">-norc</span> <span class="comment">-q</span> intersection-cl-el-r5rs.lisp

(booted a lisp over common-lisp)
((fact 10) = 3628800)

;; Emacs Lisp
emacs <span class="comment">-Q</span> <span class="comment">--batch</span> <span class="comment">-l</span> intersection-cl-el-r5rs.lisp <span class="comment">-q</span>

(booted a lisp over emacs-lisp)
((fact 10) = 3628800)

;; Scheme
bigloo <span class="comment">-no-hello</span> <span class="comment">-q</span> <span class="comment">-w</span> <span class="comment">-load</span>  intersection-cl-el-r5rs.lisp <span class="comment">-eval</span> '(quit)'

(booted a lisp over scheme)
((fact 10) = 3628800)
<span class="comint-highlight-prompt">[pjb@kuiper :0 intersection-r5rs-common-lisp-emacs-lisp]$</span></pre>

</div>
ViewGit