All source files converted to LF (#315)

* All source files converted to LF Also, HPRINT: EQUALALL knows about CL arrays FILEIO: STREAM record with fields for external format functions * Delete makeinit.dribble * Converted CR to LF on internal/library and docs/Documentation Tools
2026-01-26 12:21:52 +00:00 · 2021-04-28 15:36:03 -07:00
parent 179325c528
commit f0ad3c5f60
736 changed files with 532174 additions and 5581 deletions
--- a/sources/SETF-RUNTIME
+++ b/sources/SETF-RUNTIME
@@ -1 +1,54 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")
+(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