defmodule system files (defs) import (loader) export (macroexpand macroexpand1 with resetfn de df dm dmd defmacro defun ds letn slet for closure prog prog* do do* backtrack catch-all-but dynamic) cpexport ((macroexpand subr1 ()) (macroexpand1 subr1 ()) (with dmsubr ()) (resetfn subr3 ()) (de fsubr ()) (df fsubr ()) (dm fsubr ()) (dmd fsubr ()) (defmacro fsubr ()) (defun fsubr ()) (ds fsubr ()) (letn dmsubr ()) (slet dmsubr ()) ( for dmsubr () (#:system:var init step end res #:system:body)) (closure subr2 ( )) (prog dmsubr ()) (prog* dmsubr ()) (do dmsubr ()) (do* dmsubr ()) ( backtrack dmsubr ()) (catch-all-but dmsubr ()) (dynamic fsubr ())) cpfunctions ((#:system:resetfn subr3) (#:system:def-check-all subr2) (#:system: def-check-larg subr3 (lpar)) (#:system:def-check-larg-aux subr2) (#:system: generate-for subr2) (#:system:generate-block subr2) (#:system: generate-block-aux subr1) (#:system:generate-tagbody subr1)) cpimport ((loader (loader . nsubr))) cpenv (((defun #:ld68k:patch-cons-llitt () ())))