(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "16-Oct-88 17:26:27" ("compiled on " {ERIS}<LISPCORE>PATCHES>SOURCES>AR-10885-PATCH.\;2) 
"19-Sep-88 17:31:55" |brecompiled| |changes:| |nothing| |in| "Medley 19-Sep-88 ..." |dated| 
"19-Sep-88 18:07:58")
(FILECREATED "16-Oct-88 17:25:59" {ERIS}<LISPCORE>PATCHES>SOURCES>AR-10885-PATCH.\;2 2912 |changes| 
|to:| (VARS AR-10885-PATCHCOMS) |previous| |date:| "16-Oct-88 17:20:55" 
{ERIS}<LISPCORE>PATCHES>SOURCES>AR-10885-PATCH.\;1)
(PRETTYCOMPRINT AR-10885-PATCHCOMS)
(RPAQQ AR-10885-PATCHCOMS ((* |;;| "Patch file AR-10885-PATCH.  Contains fixes for the AR(s) (10885)."
) (ADDVARS (*FEATURES* :AR-10885)) (FUNCTIONS CL::DEFSTRUCT-SHARED-SETF-EXPANDER) (PROP FILETYPE 
AR-10885-PATCH)))
(ADDTOVAR *FEATURES* :AR-10885)
(CL::DEFINE-SHARED-SETF-MACRO CL::DEFSTRUCT-SHARED-SETF-EXPANDER CL::ACCESSOR (CL::DATUM) (CL::NEW-VALUE
) (* |;;| "Shared setf expander for all defstruct slot accessors ") (LET ((CL::SLOT-INFO (CL:GETHASH 
CL::ACCESSOR CL::*DEFSTRUCT-INFO-CACHE*))) (CL:WHEN (NULL CL::SLOT-INFO) (CL:SETQ CL::SLOT-INFO (
CL::CACHE-SLOT-INFO CL::ACCESSOR))) (DESTRUCTURING-BIND (TYPE CL::SLOT CL::FAST-ACCESSSOR-P) 
CL::SLOT-INFO (LET ((CL::DESCRIPTOR (CL::PSLOT-FIELD-DESCRIPTOR CL::SLOT))) (CL:ECASE TYPE (CL::DATATYPE
 (BQUOTE ((\\\, (CL:IF CL::FAST-ACCESSSOR-P (QUOTE FREPLACEFIELD) (QUOTE REPLACEFIELD))) (QUOTE (\\\, 
CL::DESCRIPTOR)) (\\\, CL::DATUM) (\\\, CL::NEW-VALUE)))) (LIST (BQUOTE (CL:SETF (CL:NTH (\\\, 
CL::DESCRIPTOR) (\\\, CL::DATUM)) (\\\, CL::NEW-VALUE)))) (CL:VECTOR (CL:MACROLET ((CL::SIMPLE-P (CL::X
) (BQUOTE (OR (CL:SYMBOLP (\\\, CL::X)) (CL:CONSTANTP (\\\, CL::X)))))) (CL:IF (AND (CL::SIMPLE-P 
CL::DATUM) (CL::SIMPLE-P CL::NEW-VALUE)) (BQUOTE (ASET (\\\, CL::NEW-VALUE) (\\\, CL::DATUM) (\\\, 
CL::DESCRIPTOR))) (LET ((CL::D (CL:GENSYM)) (CL::V (CL:GENSYM))) (BQUOTE (LET (((\\\, CL::D) (\\\, 
CL::DATUM)) ((\\\, CL::V) (\\\, CL::NEW-VALUE))) (ASET (\\\, CL::V) (\\\, CL::D) (\\\, CL::DESCRIPTOR)
))))))))))))
NIL