(loader '((title |module.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'module)))
(defvar #:sys-package:colon 'module)
(if (not (boundp '#:module:compiled-list)) (progn (defvar #:module:compiled-list ())))
(if (not (boundp '#:module:interpreted-list)) (progn (defvar #:module:interpreted-list ())))
(defvar #:module:errnmd "module inexistant")
(defvar #:module:errfpr "fichier protege")
(defvar #:module:warinm "chargement du module interprete")
(defvar #:module:list-of-user-key '(defmodule files import export include))
(defvar #:module:endofheader ";;; Added automatically, don't type beyond this line.")
(defvar #:module:header ())
(defvar #:module:in-user-part ())
(loader'((fentry readdefmodule subr1)
(entry readdefmodule subr1)
(push a1)
(jcall probepathm)
(push a1)
(bfnil a1 101)
(mov (& 1) a3)
(mov (cvalq #:module:errnmd) a2)
(mov 'readdefmodule a1)
(adjstk '2)
(jmp error)
101
(push (@ 103))
(mov '0 a4)
(jmp inchan)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(mov (& 5) a1)
(jcall openi)
(push a1)
(mov '1 a4)
(jmp inchan)
106
(eval ())
(mov (cvalq #:sys-package:itsoft) a2)
(mov 'module a1)
(jcall cons)
(push nil)
(push nil)
(push '#:module:header)
(push (cvalq #:sys-package:colon))
(push (cvalq #:sys-package:itsoft))
(mov a1 (cvalq #:sys-package:itsoft))
(push (cvalq #:sys-package:colon))
(mov (& 2) (cvalq #:sys-package:colon))
(push '2)
(push '(#:sys-package:itsoft #:sys-package:colon))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov nil (cvalq #:module:header))
(mov 't (cvalq #:module:in-user-part))
(push (@ 107))
(push 'eof)
(push dlink)
(push tag)
(stack dlink)
108
(push nil)
(push (cvalq #:system:read-case-flag))
(mov (& 1) (cvalq #:system:read-case-flag))
(push '1)
(push '(#:system:read-case-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(jcall read)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:read-case-flag))
(adjstk '8)
(push a1)
(push 't)
(push (cvalq #:system:read-case-flag))
(mov (& 1) (cvalq #:system:read-case-flag))
(push '1)
(push '(#:system:read-case-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(jcall read)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:read-case-flag))
(adjstk '8)
(mov a1 a2)
(pop a1)
(jcall cons)
(mov (& 15) a2)
(jcall cons)
(mov a1 (& 15))
(mov (car a1) a4)
(cabne (car a4) 'defmodule 111)
(mov (car a1) a3)
(mov (cdr a3) (cvalq #:sys-package:colon))
111
(mov (car a1) a1)
(mov (cvalq #:module:list-of-user-key) a2)
(mov (car a1) a1)
(jcall memq)
(btnil a1 112)
(btnil (cvalq #:module:in-user-part) 114)
(push (@ 116))
(push (cvalq #:module:header))
(push (& 16))
(mov '2 a4)
(jmp append)
116
(eval ())
(mov a1 (& 14))
(mov nil (cvalq #:module:header))
(bra 108)
114
(mov '#:module:deadheader (& 13))
(bra 108)
112
(mov nil (cvalq #:module:in-user-part))
(bra 108)
109
(mov (& 1) dlink)
(adjstk '4)
107
(eval ())
(mov (& 10) a1)
(jcall nreverse)
(mov (& 11) a3)
(mov a1 a2)
(mov (& 9) a1)
(jcall acons)
(jcall nreverse)
(mov a1 (& 11))
(mov (& 1) dlink)
(mov (& 6) (cvalq #:sys-package:colon))
(mov (& 7) (cvalq #:sys-package:itsoft))
(adjstk '12)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 117))
(push (& 4))
(mov '1 a4)
(jmp inchan)
117
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '3)
(return)
))
(loader'((fentry #:module:bol subr0)
(entry #:module:bol subr0)
(mov nil a3)
(mov 'bol a2)
(mov 'module a1)
(jcall super-itsoft)
(btnil (cvalq #:module:in-user-part) 101)
(push (@ 103))
(push (@ 104))
(mov '0 a4)
(jmp inbuf)
104
(eval ())
(push a1)
(push '0)
(push (@ 105))
(mov '0 a4)
(jmp inmax)
105
(eval ())
(diff '2 a1)
(push a1)
(mov '3 a4)
(jmp substring)
103
(eval ())
(mov (cvalq #:module:header) a2)
(jcall cons)
(mov a1 (cvalq #:module:header))
(return)
101
(mov nil a1)
(return)
))
(loader'((fentry getdefmodule subr2)
(entry getdefmodule subr2)
(push a2)
(mov a1 a2)
(pop a1)
(jmp cassq)
))
(loader'((fentry setdefmodule subr3)
(entry setdefmodule subr3)
(push a3)
(push a2)
(push a1)
(push a2)
(mov a1 a2)
(pop a1)
(jcall assq)
(bfcons a1 101)
(mov (& 2) (cdr a1))
(mov (& 0) a1)
(adjstk '3)
(return)
101
(mov (& 2) a2)
(mov (& 1) a1)
(jcall cons)
(mov a1 a2)
(mov (& 0) a1)
(adjstk '3)
(jmp nconc1)
))
(loader'((fentry printdefmodule subr2)
(entry printdefmodule subr2)
(push a2)
(push a1)
(mov a2 a1)
(jcall readdefmodule)
(push a1)
(mov '#:module:header a2)
(mov (& 1) a1)
(jcall getdefmodule)
(push a1)
(mov (& 2) a2)
(mov (& 1) a1)
(jcall equal)
(bfnil a1 102)
(push (@ 103))
(mov '0 a4)
(jmp outchan)
103
(eval ())
(push a1)
(mov (& 4) a1)
(jcall probepathm)
(push a1)
(bfnil a1 104)
(mov (& 5) a3)
(mov (cvalq #:module:errnmd) a2)
(mov 'printdefmodule a1)
(jcall error)
(bra 105)
104
(push nil)
(push '0)
(push nil)
(push (cvalq #:system:debug))
(mov (& 1) (cvalq #:system:debug))
(push (cvalq #:system:print-msgs))
(mov (& 3) (cvalq #:system:print-msgs))
(push (cvalq #:system:error-flag))
(mov (& 5) (cvalq #:system:error-flag))
(push '3)
(push '(#:system:debug #:system:print-msgs #:system:error-flag))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (@ 108))
(push '#:system:error-tag)
(push dlink)
(push tag)
(stack dlink)
(jcall openo)
(mov a1 (& 16))
(jcall ncons)
(mov (& 1) dlink)
(adjstk '4)
108
(eval ())
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:error-flag))
(mov (& 7) (cvalq #:system:print-msgs))
(mov (& 8) (cvalq #:system:debug))
(adjstk '12)
(bfnil a1 106)
(mov (& 0) a3)
(mov (cvalq #:module:errfpr) a2)
(mov 'printdefmodule a1)
(jcall error)
(bra 105)
106
(push (@ 109))
(push (& 1))
(mov '1 a4)
(jmp outchan)
109
(eval ())
(btnil (& 2) 110)
(push (cvalq #:module:list-of-user-key))
(push 't)
112
(bfcons (& 1) 113)
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(mov (& 0) a2)
(mov (& 7) a1)
(jcall getdefmodule)
(push a1)
(mov (& 1) a2)
(mov (& 7) a1)
(jcall getdefmodule)
(mov a1 a2)
(pop a1)
(jcall equal)
(adjstk '1)
(mov a1 (& 0))
(btnil a1 113)
(bra 112)
113
(mov (& 0) a4)
(adjstk '2)
(btnil a4 110)
(push (@ 114))
(mov '0 a4)
(jmp rmargin)
114
(eval ())
(push a1)
(push (@ 115))
(push dlink)
(push prot)
(stack dlink)
(push (@ 117))
(push (@ 118))
(mov '0 a4)
(jmp outbuf)
118
(eval ())
(hgsize a1 a1)
(jcall 1+)
(push a1)
(mov '1 a4)
(jmp rmargin)
117
(eval ())
(push nil)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push (& 14))
119
(bfcons (& 0) 120)
(push (@ 121))
(mov (& 1) a4)
(mov (cdr a4) (& 1))
(push (car a4))
(mov '1 a4)
(jmp print)
121
(eval ())
(bra 119)
120
(adjstk '1)
(push (@ 122))
(mov '0 a4)
(jmp print)
122
(eval ())
(push (@ 123))
(push (cvalq #:module:endofheader))
(mov '1 a4)
(jmp print)
123
(eval ())
(mov (cvalq #:module:list-of-user-key) a2)
(mov (& 16) a1)
(call #:module:print-rest-of-keys)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '8)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 116) a3)
115
(push a3)
(push a2)
(push (@ 124))
(push (& 4))
(mov '1 a4)
(jmp rmargin)
124
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
116
(eval ())
(adjstk '1)
(bra 105)
110
(mov '#:module:deadheader a2)
(mov (& 4) a1)
(jcall getdefmodule)
(btnil a1 126)
(push nil)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(mov '#:module:deadheader a2)
(mov (& 12) a1)
(jcall getdefmodule)
(push a1)
127
(bfcons (& 0) 128)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(push (@ 129))
(push '"; ")
(push (& 2))
(mov '2 a4)
(jmp print)
129
(eval ())
(adjstk '1)
(bra 127)
128
(adjstk '1)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '8)
126
(mov nil a2)
(mov (& 4) a1)
(call #:module:print-rest-of-keys)
105
(push (@ 130))
(push (@ 131))
(mov '0 a4)
(jmp outchan)
131
(eval ())
(push a1)
(mov '1 a4)
(jmp close)
130
(eval ())
(push (@ 132))
(push (& 2))
(mov '1 a4)
(jmp outchan)
132
(eval ())
(adjstk '2)
102
(adjstk '2)
(mov (& 1) a1)
(adjstk '2)
(return)
))
(loader'((entry #:module:print-rest-of-keys subr2)
(push a2)
(push 't)
(push (cvalq #:system:print-for-read))
(mov (& 1) (cvalq #:system:print-for-read))
(push '1)
(push '(#:system:print-for-read))
(push 'lambda)
(push llink)
(push dlink)
(push cbindn)
(stack dlink)
(push a1)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a4)
(push (car a4))
(mov (& 0) a3)
(cabeq a3 '#:module:header 104)
(cabeq a3 '#:module:deadheader 104)
(mov (& 11) a2)
(mov a3 a1)
(jcall memq)
(bfnil a1 104)
(push (@ 105))
(push (& 1))
(mov '1 a4)
(jmp print)
105
(eval ())
(push (@ 106))
(mov (& 2) a4)
(push (cdr a4))
(mov '1 a4)
(jmp print)
106
(eval ())
104
(adjstk '2)
(bra 101)
102
(mov nil a1)
(adjstk '1)
(mov (& 1) dlink)
(mov (& 6) (cvalq #:system:print-for-read))
(adjstk '9)
(return)
))
(loader'((fentry loadmodule nsubr)
(entry loadmodule nsubr)
(cnbge a4 '1 0)
(mov 'loadmodule a1)
(mov '1 a2)
(jmp #:llcp:errwna)
0
(diff '1 a4)
(jcall #:llcp:nlist)
(push a1)
(mov nil a2)
(mov nil a1)
(jcall cons)
(push a1)
(push (@ 101))
(push (@ 102))
(push (& 4))
(mov '1 a4)
(jmp concat)
102
(eval ())
(push a1)
(push (& 2))
(mov (& 4) a4)
(push (car a4))
(mov (cdr a4) a4)
(push (car a4))
(mov '4 a4)
(bra #:module:loadmodule-aux)
101
(eval ())
(mov (& 0) a4)
(push (car a4))
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (cvalq #:module:compiled-list) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:module:compiled-list))
(mov (cvalq #:module:interpreted-list) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:module:interpreted-list))
(mov (cvalq #:module:compiled-list) a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:module:compiled-list))
(adjstk '1)
(bra 103)
104
(adjstk '1)
(mov (& 0) a4)
(push (cdr a4))
105
(bfcons (& 0) 106)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (cvalq #:module:compiled-list) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:module:compiled-list))
(mov (cvalq #:module:interpreted-list) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:module:interpreted-list))
(mov a1 a2)
(mov (& 0) a1)
(jcall cons)
(mov a1 (cvalq #:module:interpreted-list))
(adjstk '1)
(bra 105)
106
(adjstk '1)
(mov (& 2) a1)
(adjstk '3)
(return)
))
(loader'((entry #:module:loadmodule-aux nsubr)
(mov (& 3) a1)
(jcall readdefmodule)
(push a1)
(mov (& 4) a1)
(jcall probepatho)
(push a1)
(btnil a1 101)
(bfnil (& 2) 101)
(mov (& 4) a2)
(mov (car a2) a2)
(mov (& 5) a1)
(jcall cons)
(mov (& 4) a4)
(mov a1 (car a4))
(bra 102)
101
(mov nil (& 0))
(mov (& 4) a2)
(mov (cdr a2) a2)
(mov (& 5) a1)
(jcall cons)
(mov (& 4) a4)
(mov a1 (cdr a4))
102
(push (cdr a4))
(mov 'import a2)
(mov (& 2) a1)
(jcall getdefmodule)
(push a1)
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 7) a2)
(mov (car a2) a2)
(mov (& 0) a1)
(jcall memq)
(bfnil a1 106)
(mov (& 7) a2)
(mov (cdr a2) a2)
(mov (& 0) a1)
(jcall memq)
(bfnil a1 106)
(bfnil (& 6) 107)
(mov (cvalq #:module:compiled-list) a2)
(mov (& 0) a1)
(jcall memq)
(bfnil a1 106)
107
(bfnil (& 6) 108)
(mov (cvalq #:module:interpreted-list) a2)
(mov (& 0) a1)
(jcall memq)
(btnil a1 108)
(mov 't (& 2))
(bra 106)
108
(push (@ 110))
(push (& 1))
(push (& 9))
(push (& 9))
(push (& 9))
(mov '4 a4)
(bra #:module:loadmodule-aux)
110
(eval ())
106
(adjstk '1)
(bra 103)
104
(adjstk '1)
(btnil (& 1) 112)
(mov (& 5) a4)
(cabne (cdr a4) (& 0) 113)
(mov 'loader a1)
(jcall featurep)
(bfnil a1 112)
113
(mov nil (& 1))
(mov (& 5) a2)
(mov (car a2) a2)
(mov (& 6) a1)
(jcall delq)
(mov (& 5) a4)
(mov a1 (car a4))
(push a4)
(mov (cdr a4) a2)
(mov (& 7) a1)
(jcall cons)
(pop a4)
(mov a1 (cdr a4))
112
(adjstk '1)
(btnil (& 0) 114)
(push (@ 116))
(mov '0 a4)
(jmp #:system:ccode)
116
(eval ())
(push a1)
(push (@ 117))
(push dlink)
(push prot)
(stack dlink)
(mov (& 9) a1)
(jcall loadobjectfile)
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 118) a3)
117
(push a3)
(push a2)
(push (@ 119))
(mov '0 a4)
(jmp #:system:ccode)
119
(eval ())
(mov a1 a2)
(mov (& 3) a1)
(jcall cons)
(mov '#:module:limit a3)
(mov a1 a2)
(mov (& 9) a1)
(jcall putprop)
(pop a2)
(pop a3)
(pop a1)
(bri a3)
118
(eval ())
(adjstk '7)
(return)
114
(push (@ 120))
(push '";; ")
(push (cvalq #:module:warinm))
(push '" : ")
(push (& 9))
(mov '4 a4)
(jmp print)
120
(eval ())
(mov 'files a2)
(mov (& 1) a1)
(jcall getdefmodule)
(push a1)
121
(bfcons (& 0) 122)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov 't a2)
(mov (& 0) a1)
(jcall libloadfile)
(adjstk '1)
(bra 121)
122
(mov nil a1)
(adjstk '7)
(return)
))
(loader'((entry filegetdef subr2)
(push a2)
(push a1)
(jcall probepathf)
(push a1)
(bfnil a1 101)
(mov (& 1) a3)
(mov 'errfile a2)
(mov 'filegetdef a1)
(adjstk '3)
(jmp error)
101
(push nil)
(push nil)
(push (@ 103))
(mov '0 a4)
(jmp inchan)
103
(eval ())
(push a1)
(push (@ 104))
(push dlink)
(push prot)
(stack dlink)
(push (@ 106))
(mov (& 7) a1)
(jcall openi)
(push a1)
(mov '1 a4)
(jmp inchan)
106
(eval ())
(push (@ 107))
(push 'eof)
(push dlink)
(push tag)
(stack dlink)
108
(jcall read)
(mov a1 (& 9))
(bfcons a1 108)
(mov (car a1) a1)
(cabeq a1 'de 114)
(cabeq a1 'defun 114)
(cabeq a1 'df 114)
(cabeq a1 'defmacro 114)
(cabeq a1 'dm 114)
(cabne a1 'dmd 108)
114
(mov (& 9) a4)
(mov (cdr a4) a4)
(cabne (car a4) (& 12) 108)
(push (@ 117))
(push (@ 118))
(mov '0 a4)
(jmp inchan)
118
(eval ())
(push a1)
(mov '1 a4)
(jmp close)
117
(eval ())
(mov (& 9) (& 8))
(mov (& 9) a1)
(mov 'eof a2)
(jmp #:llcp:exit)
109
(mov nil a1)
(mov (& 1) dlink)
(adjstk '4)
107
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 105) a3)
104
(push a3)
(push a2)
(push (@ 120))
(push (& 4))
(mov '1 a4)
(jmp inchan)
120
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
105
(eval ())
(adjstk '1)
(mov (& 0) a1)
(adjstk '5)
(return)
))
(loader'((fentry autoloadmodule fsubr)
(entry autoloadmodule fsubr)
(push a1)
101
(bfcons (& 0) 102)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov (& 0) a1)
(jcall readdefmodule)
(push a1)
(mov 'export a2)
(jcall getdefmodule)
(push a1)
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(bfsymb (& 0) 106)
(mov 'files a2)
(mov (& 2) a1)
(jcall getdefmodule)
(mov a1 a3)
(mov (& 3) a2)
(mov (& 0) a1)
(call #:module:makeautoload)
106
(adjstk '1)
(bra 103)
104
(adjstk '3)
(bra 101)
102
(mov nil a1)
(adjstk '1)
(return)
))
(loader'((entry #:module:makeautoload subr3)
(push a3)
(push a2)
(push a1)
(push nil)
(push nil)
101
(bfnil (& 1) 102)
(btnil (& 4) 102)
(mov (& 4) a1)
(mov (cdr a1) (& 4))
(mov (& 2) a2)
(mov (car a1) a1)
(call filegetdef)
(mov a1 (& 1))
(bra 101)
102
(bfnil (& 1) 103)
(mov (& 2) a3)
(mov '"can't find definition of" a2)
(mov 'autoload a1)
(adjstk '5)
(jmp error)
103
(mov (& 1) a1)
(mov (car a1) a1)
(cabeq a1 'de 107)
(cabne a1 'defun 106)
107
(push (@ 108))
(push '#:module:args)
(push (@ 109))
(push '#:module:std-autoload)
(push (@ 110))
(push 'quote)
(push (& 8))
(mov '2 a4)
(jmp list)
110
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
109
(eval ())
(push a1)
(push (@ 111))
(push 'apply)
(push (@ 112))
(push 'quote)
(push (& 9))
(mov '2 a4)
(jmp list)
112
(eval ())
(push a1)
(push '(#:module:args))
(mov '3 a4)
(jmp mcons)
111
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
108
(eval ())
(mov a1 (& 1))
(mov 'expr (& 0))
(bra 105)
106
(cabne a1 'df 113)
(push (@ 114))
(push '#:module:args)
(push (@ 115))
(push '#:module:std-autoload)
(push (@ 116))
(push 'quote)
(push (& 8))
(mov '2 a4)
(jmp list)
116
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
115
(eval ())
(push a1)
(push (@ 117))
(push 'apply)
(push (@ 118))
(push 'quote)
(push (& 9))
(mov '2 a4)
(jmp list)
118
(eval ())
(push a1)
(push '(#:module:args))
(mov '3 a4)
(jmp mcons)
117
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
114
(eval ())
(mov a1 (& 1))
(mov 'fexpr (& 0))
(bra 105)
113
(cabeq a1 'defmacro 120)
(cabne a1 'dmd 119)
120
(push (@ 121))
(push '#:module:args)
(push (@ 122))
(push '#:module:std-autoload)
(push (@ 123))
(push 'quote)
(push (& 8))
(mov '2 a4)
(jmp list)
123
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
122
(eval ())
(push a1)
(push (@ 124))
(push 'cons)
(push (@ 125))
(push 'quote)
(push (& 9))
(mov '2 a4)
(jmp list)
125
(eval ())
(push a1)
(push '(#:module:args))
(mov '3 a4)
(jmp mcons)
124
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
121
(eval ())
(mov a1 (& 1))
(mov 'dmacro (& 0))
(bra 105)
119
(cabne a1 'dm 126)
(push (@ 127))
(push '#:module:args)
(push (@ 128))
(push '#:module:std-autoload)
(push (@ 129))
(push 'quote)
(push (& 8))
(mov '2 a4)
(jmp list)
129
(eval ())
(push a1)
(mov '2 a4)
(jmp list)
128
(eval ())
(push a1)
(push '(#:module:args))
(mov '3 a4)
(jmp mcons)
127
(eval ())
(mov a1 (& 1))
(mov 'macro (& 0))
(bra 105)
126
(mov (& 1) a3)
(mov '"Bad definition" a2)
(mov 'autoload a1)
(jcall error)
105
(mov (& 1) a3)
(mov (& 0) a2)
(mov (& 2) a1)
(jcall setfn)
(mov (& 3) a2)
(bfnil a2 131)
(mov (& 4) a2)
131
(mov 'autoload a3)
(mov (& 2) a1)
(adjstk '5)
(jmp putprop)
))
(loader'((fentry #:module:std-autoload subr1)
(entry #:module:std-autoload subr1)
(push a1)
(jcall valfn)
(push a1)
(mov 'autoload a2)
(mov (& 1) a1)
(jcall getprop)
(push nil)
(push a1)
(bfcons a1 101)
(push a1)
103
(bfcons (& 0) 104)
(mov (& 0) a4)
(mov (cdr a4) (& 0))
(push (car a4))
(mov 't a2)
(mov (& 0) a1)
(jcall libloadfile)
(adjstk '1)
(bra 103)
104
(adjstk '1)
(bra 102)
101
(push (@ 105))
(push a1)
(mov '1 a4)
(jmp loadmodule)
105
(eval ())
102
(mov (& 3) a1)
(jcall valfn)
(cabne a1 (& 2) 106)
(mov (& 0) a2)
(mov (& 3) a1)
(jcall cons)
(mov a1 a3)
(mov '"definition not found" a2)
(mov 'autoload a1)
(adjstk '4)
(jmp error)
106
(mov nil a1)
(adjstk '4)
(return)
))
(loader'((fentry autoloadp subr1)
(entry autoloadp subr1)
(mov 'autoload a2)
(jmp getprop)
))
(loader '((end)))