(loader '((title |llpatch.lo|)))
(setq #:sys-package:colon 'llpatch)
(if (not (typefn 'old-setfn)) (progn (synonymq old-setfn setfn)))
(loader'((fentry setfn subr3)
(entry setfn subr3)
(push a3)
(push a2)
(push a1)
(mov 'resetfn a2)
(jcall remprop)
(mov 'trace a2)
(mov (& 0) a1)
(jcall remprop)
(mov (cvalq #:trace:trace) a2)
(mov (& 0) a1)
(jcall delq)
(mov a1 (cvalq #:trace:trace))
(mov (& 2) a3)
(mov (& 1) a2)
(mov (& 0) a1)
(adjstk '3)
(jmp old-setfn)
))
(loader'((fentry eval-when dmsubr)
(entry eval-when dmsubr)
(mov (cdr a1) a4)
(mov (car a1) a1)
(push a4)
(push (@ 101))
(push 'when)
(push (@ 102))
(push 'memq)
(push ''eval)
(push (@ 103))
(push 'quote)
(push a1)
(mov '2 a4)
(jmp list)
103
(eval ())
(push a1)
(mov '3 a4)
(jmp list)
102
(eval ())
(push a1)
(push (& 3))
(mov '3 a4)
(jmp mcons)
101
(eval ())
(adjstk '1)
(return)
))
(loader '((end)))