(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "26-Jan-98 13:37:01" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>SETF-RUNTIME.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "17-May-90 11:18:40" IL:|{DSK}local>lde>lispcore>sources>SETF-RUNTIME.;2| 1829 IL:|changes| IL:|to:| (IL:VARS IL:SETF-RUNTIMECOMS) IL:|previous| IL:|date:| " 5-Oct-87 12:13:18" IL:|{DSK}local>lde>lispcore>sources>SETF-RUNTIME.;1|) (IL:RPAQQ IL:SETF-RUNTIMECOMS ((IL:* IL:|;;;| "Run time support for setf.") (IL:FUNCTIONS SET-SETF-METHOD-EXPANDER SET-SETF-INVERSE SET-SHARED-SETF-INVERSE) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:SETF-RUNTIME))) SET-SETF-METHOD-EXPANDER :D8 (IL:L (1 EXPANDER 0 NAME)) /@g @g @g @gA (44 IL:PUTPROP 32 REMPROP 21 REMPROP 10 REMPROP) (38 :SETF-METHOD-EXPANDER 27 :SHARED-SETF-INVERSE 16 :SETF-INVERSE 5 IL:SETF-INVERSE) () SET-SETF-INVERSE :D8 (IL:L (1 UPDATE-FN 0 NAME)) $@g @g @gA (33 IL:PUTPROP 21 REMPROP 10 REMPROP) (27 :SETF-INVERSE 16 :SETF-METHOD-EXPANDER 5 IL:SETF-METHOD-EXPANDER) () SET-SHARED-SETF-INVERSE :D8 (IL:L (1 SHARED-UPDATE-FN 0 NAME)) /@g @g @g @gA (44 IL:PUTPROP 32 REMPROP 21 REMPROP 10 REMPROP) (38 :SHARED-SETF-INVERSE 27 :SETF-INVERSE 16 :SETF-METHOD-EXPANDER 5 IL:SETF-METHOD-EXPANDER) () (IL:PUTPROPS IL:SETF-RUNTIME IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:SETF-RUNTIME IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:SETF-RUNTIME IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1990)) NIL