defmodule llcp files (cpmac llcp peephole) import (files loader pretty) export (dont-compile compile compiler compilefiles compile-all-in-core defmacro-open make-macro-open macro-openp remove-macro-open #:compiler:peephole #:compiler: macroexpand) cpexport ((dont-compile fsubr ()) (compile dmsubr ()) (compiler nsubr () (#:llcp:xrefnt ) (#:llcp:all-p #:llcp:talkp)) (#:compiler:macroexpand subr1 ()) (#:compiler: peephole subr1 ()) (compilefiles subr2 () () (llist)) (compile-all-in-core nsubr () () () (subr1) (()) (subr1) (())) (defmacro-open fsubr ()) ( make-macro-open subr2 ()) (macro-openp subr1 ()) (remove-macro-open subr1 ())) cpfunctions ((#:llcp:compileready subr0) (#:llcp:compilindic subr1) (#:llcp:compilindicaux subr3) (#:llcp:warning subr3) (#:llcp:compiledef subr1 () (aux1 aux2 aux3)) ( #:llcp:compilefnt nsubr () (#:llcp:gencount)) (#:llcp:progn-last subr3) (#: llcp:progn subr3) (#:llcp:exp subr3 (l dest #:llcp:effectp)) (#:llcp:dirop subr1) (#:llcp:diropreg subr1) (#:llcp:mov subr2) (#:llcp:cr subr2) (#:llcp: error nsubr) (#:llcp:app-lambda subr3) (#:llcp:add-code subr1) (#:llcp:push subr1) (#:llcp:expush subr2) (#:llcp:diroporany subr2) (#:compiler: macroexpand-internal subr2) (#:compiler:macroexpand-internal-open subr2) (#: compiler:macroexpand-internal-close subr2) (#:compiler:mc:cond subr1) (#: compiler:mc:dynamic-let subr1) (#:compiler:mc:dynamic subr1) (#:compiler:map subr3) (#:compiler:map-result subr3) (#:compiler:map-while subr3) (#:compiler: map-next-res subr3) (#:compiler:map-funcall subr2) (#:compiler:map-next-arg subr2) (#:compiler:mapvector subr1) (#:compiler:mc:catcherror subr1) (#: compiler:mc:errset subr1) (#:compiler:mc:eval-when subr1) (#:compiler:mc:time subr1) (#:compiler:macro-expand-error subr1) (#:llcp:rerror subr1) (#:llcp: cr-any-reg subr1) (#:llcp:movq subr2) (#:llcp:cr-all-nil subr0) (#:llcp:parano nsubr) (#:llcp:pushq subr1) (#:llcp:pred nsubr (l ind etiq dest)) (#:llcp: quotep subr1) (#:llcp:pred-list subr2 (fnt larg)) (#:llcp:cr-list subr0) (#: llcp:cr-intersect-list subr1) (#:llcp:cr-intersect subr1) (#:llcp: pred-list-aux2 subr2) (#:llcp:pred-list-aux3 subr2) (#:llcp:exp-2 subr3) (#: llcp:pop subr1) (#:llcp:selectq subr0) (#:llcp:eqp subr1) (#:llcp:diropordest subr2) (#:llcp:cr-forget subr1) (#:llcp:expsubr-open subr3) (#:llcp:exp-any subr3) (#:llcp:cr-forget-cons subr0) (#:llcp:exp-3 subr3) (#:llcp: specforminter subr2) (#:llcp:expsubr subr0) (#:llcp:call subr1) (#:llcp: compilefile-intrf subr1) (#:llcp:compilerout nsubr (#:llcp:xrefnt #:llcp:all-p #:llcp:talkp) () () (#:llcp:xrefnt))) cpimport ((pretty (pprint . subr1)) (files (featurep . subr1)) (loader (loader . nsubr) ))