EXT package created containing the original set of symbols (not yet filtered) and re-exported from SYS

This commit is contained in:
Juan Jose Garcia Ripoll 2011-02-27 23:20:12 +01:00
parent 152e221cc4
commit 1523ae8a5c
24 changed files with 97 additions and 85 deletions

View file

@ -68,7 +68,7 @@
and ext:*bytecodes-compiler* = t
for form = (read sin nil :EOF)
until (eq form :EOF)
do (let ((bytecodes (ext:eval-with-env form nil nil nil)))
do (let ((bytecodes (si:eval-with-env form nil nil nil)))
(with-standard-io-syntax
(write `(FUNCALL ,bytecodes) :stream sout :circle t
:escape t :readably t :pretty nil)