;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.20
;;; Reason:
;;;  SI:COMBINED-SDU-SERIAL-STREAM-FLAVOR had a FORMAT bug, and returned an
;;;  incorrect flavor name when :ASCII was T.
;;; Written 8-Aug-88 21:18:57 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 2
;;; with Experimental System 126.14, ZWEI 125.11, ZMail 73.2, Local-File 75.2, File-Server 24.1, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103.

; From modified file DJ: L.IO1; SDU-SERIAL.LISP#33 at 8-Aug-88 21:21:06
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO1; SDU-SERIAL  "

(defun combined-sdu-serial-stream-flavor(&key ascii xon-xoff)
  (declare (values symbol string))
  (let((name
	 (format nil "SDU-SERIAL-~@[~*ASCII-~]~@[~*XON-XOFF-~]STREAM" ascii xon-xoff)))
    (values (intern-soft name 'system-internals) name)))

))