This is a bytecode compiler for scheme in Common Lisp.
-
Clone this project into your ASDF system
-
Load the ASDF system with quicklisp or ASDF:
(asdf::load-system :lisp-in-small-pieces)
(in-package :lisp)
(%eval
'((lambda (fact)
(begin (set! fact (lambda (n)
(if (< n 2) 1
(* n (fact (- n 1))))))
(fact 5)))
'fact))
=> 120
(in-package :lisp)
(scheme7d)
(in-package :lisp)
(test-scheme7d)