defmodule
microceyx
files
(microceyx)
import
(abbrev)
export
(deftclass defrecord tclass-namep record-namep field-list defmake omakeq ogetq
oputq omatchq demethod send-error sendq sendf sendfq plink <=p)
cpexport
((deftclass dmsubr ()) (tclass-namep subr1 ()) (defrecord dmsubr ()) (
record-namep subr1 ()) (field-list subr1 ()) (defmake dmsubr ()) (omakeq 
dmsubr ()) (ogetq dmsubr ()) (oputq dmsubr ()) (omatchq dmsubr ()) (demethod 
dmsubr ()) (send-error subr2 ()) (sendq dmsubr ()) (sendf dmsubr ()) (sendfq 
dmsubr ()) (plink nsubr ()) (<=p dmsubr ()))
cpfunctions
((#:microceyx:make-field-access nsubr) (#:microceyx:make-access subr3) (#:
microceyx:make-single-field-access subr3) (#:microceyx:check-record-or-tclass 
subr2) (#:microceyx:tclass-field-list subr2) (#:microceyx:check-field subr3) (
#:microceyx:check-tclass subr2))
cpimport
((abbrev (abbrevp . subr1) (get-abbrev . subr1) (put-abbrev . subr2)))