(loader '((title |macedit.lo|)))
(if (not (>= (version) 15.2)) (progn (error 'load 'erricf 'macedit)))
(putprop 'buffer '(((vector #:edit:null-strg) 3 0 () () 0) buffer modif nolgn markx marky ldo) 'defstruct)
(if (featurep 'setf) (progn (progn (putprop '#:buffer:buffer '#:buffer:buffer 'setf-inverse) '#:buffer:buffer)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:buffer (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:buffer:modif '#:buffer:modif 'setf-inverse) '#:buffer:modif)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:modif (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:buffer:nolgn '#:buffer:nolgn 'setf-inverse) '#:buffer:nolgn)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:nolgn (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:buffer:markx '#:buffer:markx 'setf-inverse) '#:buffer:markx)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:markx (struct . valeur) (ifn valeur (list 'vref struct 3) (list 'vset struct 3 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:buffer:marky '#:buffer:marky 'setf-inverse) '#:buffer:marky)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:marky (struct . valeur) (ifn valeur (list 'vref struct 4) (list 'vset struct 4 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:buffer:ldo '#:buffer:ldo 'setf-inverse) '#:buffer:ldo)))
(if (featurep 'compiler) (progn (defmacro-open #:buffer:ldo (struct . valeur) (ifn valeur (list 'vref struct 5) (list 'vset struct 5 (car valeur))))))
(putprop 'edit '(((#:buffer:make) 0 0) pbuffer curx cury) 'defstruct)
(if (featurep 'setf) (progn (progn (putprop '#:edit:pbuffer '#:edit:pbuffer 'setf-inverse) '#:edit:pbuffer)))
(if (featurep 'compiler) (progn (defmacro-open #:edit:pbuffer (struct . valeur) (ifn valeur (list 'vref struct 0) (list 'vset struct 0 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:edit:curx '#:edit:curx 'setf-inverse) '#:edit:curx)))
(if (featurep 'compiler) (progn (defmacro-open #:edit:curx (struct . valeur) (ifn valeur (list 'vref struct 1) (list 'vset struct 1 (car valeur))))))
(if (featurep 'setf) (progn (progn (putprop '#:edit:cury '#:edit:cury 'setf-inverse) '#:edit:cury)))
(if (featurep 'compiler) (progn (defmacro-open #:edit:cury (struct . valeur) (ifn valeur (list 'vref struct 2) (list 'vset struct 2 (car valeur))))))
(loader '((end)))