Intersection Common Lisp, Emacs Lisp and R5RS Scheme

This lisp source file can be loaded and run on:

any Common Lisp conforming implementation,
any R5RS implementation,
GNU emacs (tested with emacs-23 and emacs-24).

Example:

        [pjb@kuiper :0 intersection-r5rs-common-lisp-emacs-lisp]$ make test-intersection-cl-el-r5rs


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

;; Common Lisp
clisp -ansi -norc -q intersection-cl-el-r5rs.lisp

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

;; Emacs Lisp
emacs -Q --batch -l intersection-cl-el-r5rs.lisp -q

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

;; Scheme
bigloo -no-hello -q -w -load  intersection-cl-el-r5rs.lisp -eval '(quit)'

(booted a lisp over scheme)
((fact 10) = 3628800)
[pjb@kuiper :0 intersection-r5rs-common-lisp-emacs-lisp]$