;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.187
;;; Reason:
;;;  Remove obsolete files from TCP-USER and TCP-SERVER systems.
;;; Written 20-Jan-88 14:21:31 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.184, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.SYS; SYSDCL.LISP#305 at 20-Jan-88 14:22:11
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; SYSDCL  "

(defsystem tcp-server
  (:name "TCP-SERVER")
  (:pathname-default "SYS: NETWORK; IP-TCP; SERVER;")
  (:module ftp "FTP")
  (:module udp-server-applications (#|"UDP-NAMESPACE-SERVER"|# "UDP-RWHO-SERVER"))
  (:module termcap "TERMCAP")
  (:module telnet-utilities "TELNET-UTILITIES")
  (:module telnet "TELNET")
  (:module smtp "SMTP")
  (:module disk "DISK")
  (:module time "TIME")
  (:module finger "FINGER")

  (:module all (telnet ftp smtp disk time finger))

  (:compile-load udp-server-applications)
  (:compile-load termcap)
  (:compile-load telnet-utilities (:fasload termcap) (:fasload termcap))
  (:compile-load all (:fasload telnet-utilities) (:fasload telnet-utilities))
  )

))

; From modified file DJ: L.SYS; SYSDCL.LISP#305 at 20-Jan-88 14:23:10
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; SYSDCL  "

(defsystem tcp-user
  (:name "TCP-USER")
  (:pathname-default "SYS: NETWORK; IP-TCP; USER;")
  (:module simple-user-applications (#|"QUICK-TELNET"|# "TCP-TEST" "IMAGEN"))
  (:module defs ("FTP-SYMS"))
  ;(:module telnet ("TELNET"))			;Obsolete now that System-T works
  (:module ftp ("FTP"))
  (:module chaos ("CHAOS-SERVER"))
  (:module smtp ("SMTP"))
  (:module interface ("FTP-ACCESS"))

  (:module all (#|telnet|# ftp chaos smtp))
  
  (:compile-load simple-user-applications)
  (:compile-load defs)
  (:compile-load all (:fasload defs) (:fasload defs))
  (:compile-load interface (:fasload all) (:fasload all)))

))