;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.69
;;; Reason:
;;;  FORMAT bugs:
;;;    - ~:@P didn't back up an argument
;;;    - ~0& did a fresh-line
;;; Written 17-Jun-88 14:04:56 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Cthulhu from band 1
;;; with Experimental System 124.65, Experimental Local-File 74.2, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, microcode 1760, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.IO; FORMAT.LISP#274 at 17-Jun-88 14:05:20
#10R FORMAT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FORMAT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FORMAT  "

(DEFFORMAT P (:MULTI-ARG) (ARGS IGNORE)
  (WHEN *COLON-FLAG*
    (LET ((*ATSIGN-FLAG* NIL))
      (SETQ ARGS (FORMAT-CTL-IGNORE ARGS NIL))))
  (IF *ATSIGN-FLAG* (IF (EQUAL (CAR ARGS) 1)
			(SEND *STANDARD-OUTPUT* :TYO #\y)
		      (SEND *STANDARD-OUTPUT* :STRING-OUT "ies"))
    (OR (EQUAL (CAR ARGS) 1) (SEND *STANDARD-OUTPUT* :TYO #\s)))
  (CDR ARGS))

; skip arguments

))

; From modified file DJ: L.IO; FORMAT.LISP#274 at 17-Jun-88 14:05:22
#10R FORMAT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FORMAT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FORMAT  "

(DEFFORMAT & (:NO-ARG) (PARAMS &AUX (COUNT (OR (CAR PARAMS) 1)))
  (when (plusp count)
    (SEND *STANDARD-OUTPUT* :FRESH-LINE)
    (DOTIMES (I (1- COUNT))
      (SEND *STANDARD-OUTPUT* :TYO #\NEWLINE))))

;(DEFPROP X #\SPACE FORMAT-CTL-REPEAT-CHAR)

))