;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.
-(sb!int:file-comment
- "$Header$")
-
(sb!int:/show0 "entering defsetfs.lisp")
;;; from alieneval.lisp
(in-package "SB!IMPL")
#-sb-xc-host (defsetf fdefinition %set-fdefinition)
-;;; from filesys.lisp
-(in-package "SB!IMPL")
-(defsetf default-directory %set-default-directory)
-
;;; from kernel.lisp
(in-package "SB!KERNEL")
(defsetf code-header-ref code-header-set)