;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*-
;;; Patch directory for System version 130
;;; Written 23-Nov-88 12:09:19 by smh at site Gigamos Cambridge
;;; while running on Harpo from band 1
;;; with Experimental System 130.11, Experimental ZWEI 128.8, Experimental ZMail 75.0, Experimental Local-File 77.0, Experimental File-Server 26.0, Experimental Unix-Interface 16.0, Experimental Tape 27.0, Experimental Lambda-Diag 19.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/18 Falcon System Loaded.

(:EXPERIMENTAL
 ((0 "System Loaded" "keith" NIL 2804112244)
  (1 "Once again, import some SI symbols into GC.  This has been necessary the
last 3 times after a cold load.  I think I fixed the source, with
Steve's help, in a way that will work from now on..." "keith" NIL 2804274101)
  (2 "GC:STATUS now reports (SI:ESTIMATED-DUMP-SIZE).

Some things that were printed on *error-output* are now done with WARN.

Also doc-string improvements." "keith" NIL 2804276887)
  (3 "Fix package whoops which caused COMPILER:DUMP-FORMS-TO-FILE to shadow GLOBAL symbol.
This also defines the GLOBAL function.  If this works, the next patch I do will
redefine all the callers of COMPILER:DUMP-FORMS-TO-FILE." "keith" NIL 2804530072)
  (4 "Redefine two callers to ZL:DUMP-FORMS-TO-FILE after package lossage." "keith" NIL 2804531815)
  (5 "New defsystem keyword: :CTS-CONTROLLED
Declaring this will make ZWEI remind you to add CTS comments
when you edit files in that system." "smh" NIL 2804799194)
  (6 "Pretty-printing of arrays was very badly broken, causing infinite loop
within GRIND-PRINT-IO.  Now we just PRIN1 or PRINC as appropriate.
Someday someone should figure this one out and really fix it.

   -keith+smh" "keith" NIL 2804807276)
  (7 "Avoid strange array subscript error that occurs printing messed-up array.
It's possible to create an array for which some element(s) can not be
accessed.  (Hint: use ADJUST-ARRAY.) With *PRINT-ARRAY* and
*PRINT-CIRCLE* non-NIL, this caused a subscript error when the
circularity-detector tripped on an un-accessible element.  The message was truly obscure.
You will still get the error, but during the process of printing.
The array code should be fixed to avoid the screw cases!" "keith" NIL 2804871328)
  (8 "Avoid error in COMPILER:P1 doing CAR on atom.  For example, compiling
(COND (FLAG)), form gets transformed into just FLAG.  Just avoid further
processing that assumed form was still a cons." "keith" NIL 2805141197)
  (9 "Optimize (COERCE x 'RATIONAL) into (RATIONAL X).  This also avoids
foolish compiler warnings compiling such forms.  Note that calls in the
form (COERCE X '(RATIONAL ...)) are not optimized." "keith" NIL 2805146142)
  (10 "When recording source file names, don't query about redefinitions
between two files with same generic name, e.g. \"FOO.LISP\" and
\"FOO.FDEF\".  (Eliminates warnings while loading Falcon FDEF files.)" "keith" NIL 2805233382)
  (11 "The cross compiler now understands DEFAFUN both in files and editor buffers.
For the present it only understands COMPILER::DEFAFUN, but the symbol will
presently be made available in other packages." "smh" NIL 2805235208)
  (12 "The :SOURCE-PATHNAME operation on a generic pathname will no longer
return completely unreasonable answers such as FDEF.  As it is impossible
to make the pathname system work correctly, this is implemented by a simple
*KNOWN-NON-SOURCE-FILE-TYPES* list of unacceptable results, for which :LISP
is unconditionally substituted." "smh" NIL 2805296461)
  ))