(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")

(IL:FILECREATED "17-May-90 11:18:40" IL:|{DSK}<usr>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}<usr>local>lde>lispcore>sources>SETF-RUNTIME.;1|)


; Copyright (c) 1987, 1990 by Venue & Xerox Corporation.  All rights reserved.

(IL:PRETTYCOMPRINT IL:SETF-RUNTIMECOMS)

(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)))



(IL:* IL:|;;;| "Run time support for setf.")



(DEFUN SET-SETF-METHOD-EXPANDER
 (NAME EXPANDER)
   (REMPROP NAME 'IL:SETF-INVERSE)
   (REMPROP NAME ':SETF-INVERSE)
   (REMPROP NAME ':SHARED-SETF-INVERSE)
   (SETF (GET NAME ':SETF-METHOD-EXPANDER)
         EXPANDER))

(DEFUN SET-SETF-INVERSE
 (NAME UPDATE-FN)
   (REMPROP NAME 'IL:SETF-METHOD-EXPANDER)
   (REMPROP NAME ':SETF-METHOD-EXPANDER)
   (SETF (GET NAME ':SETF-INVERSE)
         UPDATE-FN))

(DEFUN SET-SHARED-SETF-INVERSE
 (NAME SHARED-UPDATE-FN)
   (REMPROP NAME 'IL:SETF-METHOD-EXPANDER)
   (REMPROP NAME ':SETF-METHOD-EXPANDER)
   (REMPROP NAME ':SETF-INVERSE)
   (SETF (GET NAME ':SHARED-SETF-INVERSE)
         SHARED-UPDATE-FN))

(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))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP