defmodule setf files (setf) import () export (setf defsetf get-setf-method define-setf-method push-setf-inverse system-put push-setf-method push-setf-expander define-modify-macro #:setf:make-call) cpexport ((setf dmsubr ()) (get-setf-method subr1 ()) (defsetf dmsubr ()) ( define-setf-method dmsubr ()) (push-setf-inverse dmsubr ()) (system-put dmsubr ()) (push-setf-method dmsubr ()) (push-setf-expander dmsubr ()) ( define-modify-macro dmsubr ()) (#:setf:make-call nsubr ())) cpfunctions ((macro-function subr1)) cpimport ()