;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.21
;;; Reason:
;;;  I deleted resource fs:simple-art-16b-buffer from ftp-access because
;;;  it was no longer needed in that file -- but server FTP still needs
;;;  it.  Restored....
;;; Written 2-Jun-88 17:38:35 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 2
;;; with Experimental System 124.17, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.USER; FTP-ACCESS.LISP#49 at 2-Jun-88 17:38:51
#10R FILE-SYSTEM#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS  "

(defresource simple-art-16b-buffer (size)
  :constructor (make-array size :element-type '(unsigned-byte 16.))
  :matcher (<= size (array-length object)))

))