  -*- Mode : LISP ; Syntax : ansi - common - lisp ; Package : http ; Base : 10 ; Patch - File : t -*-
  Patch file for CL - HTTP version 70.46
  Reason : Function ( CLOS : METHOD WWW - UTILS : FILE - LENGTH - IN - BYTES ( CL : PATHNAME ) ):   use probe stream and : GET : LENGTH - IN - BYTES .
;;; DEFINE-CONDITION HTTP::PROXY-BAD-GATEWAY:  -
;;; DEFINE-CONDITION HTTP::PROXY-UNRESOLVABLE-DOMAIN-NAME:  -
;;; DEFINE-CONDITION HTTP::PROXY-LOCAL-NETWORK-ERROR:  -
;;; DEFINE-CONDITION HTTP::PROXY-REMOTE-NETWORK-ERROR:  -
;;; DEFINE-CONDITION HTTP::PROXY-SERVICE-UNAVAILABLE:  -
;;; DEFINE-CONDITION HTTP::PROXY-CONNECTION-REFUSED:  -
;;; DEFINE-CONDITION HTTP::PROXY-CONNECTION-TIMEOUT:  -
  Written by JCMa , 5/14/00 19:28:05
  while running on FUJI - VLM from FUJI:/usr / lib / symbolics / ComLink-39 - 8 - F - MIT-8 - 5.vlod
  with Open Genera 2.0 , Genera 8.5 , Documentation Database 440.12 ,
  Logical Pathnames Translation Files NEWEST , CLIM 72.0 , Genera CLIM 72.0 ,
  PostScript CLIM 72.0 , MAC 414.0 , 8 - 5 - Patches 2.17 , Statice Runtime 466.1 ,
  Statice 466.0 , Statice Browser 466.0 , Statice Documentation 426.0 ,   ,
  CLIM Documentation 72.0 , Showable Procedures 36.3 , Binary Tree 34.0 ,
  Mailer 438.0 , Working LispM Mailer 8.0 , HTTP Server 70.45 ,
  W3 Presentation System 8.1 , CL - HTTP Server Interface 53.0 ,
  Symbolics Common Lisp Compatibility 4.0 , Comlink Packages 6.0 ,
  Comlink Utilities 10.2 , COMLINK Cryptography 2.0 , Routing Taxonomy 9.0 ,
  COMLINK Database 11.26 , Email Servers 12.0 , Comlink Customized LispM Mailer 7.1 ,
  Dynamic Forms 14.4 , Communications Linker Server 39.8 ,
  Lambda Information Retrieval System 22.3 , Jcma 42 , HTTP Proxy Server 5.8 ,
  HTTP Client Substrate 3.10 , Ivory Revision 5 , VLM Debugger 329 ,
  Genera program 8.11 , DEC OSF/1 V4.0 ( Rev. 110 ) ,
  1280x994 8 - bit PSEUDO - COLOR X Screen FUJI:0.0 with 224 Genera fonts ( DECWINDOWS Digital Equipment Corporation Digital UNIX V4.0 R1 ) ,
  Machine serial number -2141189585 ,
  Domain Fixes ( from CML : MAILER;DOMAIN - FIXES.LISP.33 ) ,
  Do n't force in the mail - x host ( from CML : MAILER;MAILBOX - FORMAT.LISP.24 ) ,
  Make Mailer More Robust ( from CML : MAILER;MAILER - FIXES.LISP.15 ) ,
;;; Patch TCP hang on close when client drops connection. (from HTTP:LISPM;SERVER;TCP-PATCH-HANG-ON-CLOSE.LISP.10),
  Add CLIM presentation and text style format directives . ( from FV : SCLC;FORMAT.LISP.20 ) ,
  Fix Statice Lossage ( from CML : LISPM;STATICE - PATCH.LISP.3 ) ,
  Make update schema work on set - value attributes with accessor names ( from CML : LISPM;STATICE - SET - VALUED - UPDATE.LISP.1 ) ,
  COMLINK Mailer Patches . ( from CML : LISPM;MAILER - PATCH.LISP.107 ) ,
  Clim patches ( from CML : DYNAMIC - FORMS;CLIM - PATCHES.LISP.48 ) .



(SCT:FILES-PATCHED-IN-THIS-PATCH-FILE 
  "HTTP:LISPM;SERVER;LISPM.LISP.462"
  "HTTP:SERVER;HTTP-CONDITIONS.LISP.173"
  "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:LISPM;SERVER;LISPM.LISP.462")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Package: WWW-UTILS; BASE: 10; Syntax: ANSI-Common-Lisp; Default-Character-Style: (:fix :roman :normal);-*-")

(defmethod file-length-in-bytes ((pathname pathname) &optional new-length)
  (declare (ignore new-length))
  (with-open-file (file-stream pathname :direction :probe)
    (scl:send file-stream :get :length-in-bytes)))


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.173")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-condition (server-condition) ())

;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-bad-gateway (bad-gateway proxy-condition) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-unresolvable-domain-name (proxy-bad-gateway) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-local-network-error (proxy-bad-gateway) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-remote-network-error (proxy-bad-gateway) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-service-unavailable (service-unavailable proxy-condition) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-connection-refused (proxy-service-unavailable) ())


;========================
(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-connection-timeout (gateway-timeout proxy-condition) ())


 Syntax : ansi - common - lisp ; Package : http ; Base : 10 ; Patch - File : t -*-
 DEFINE-CONDITION HTTP::PROXY-BAD-GATEWAY:  -
 DEFINE-CONDITION HTTP::PROXY-UNRESOLVABLE-DOMAIN-NAME:  -
 DEFINE-CONDITION HTTP::PROXY-LOCAL-NETWORK-ERROR:  -
 DEFINE-CONDITION HTTP::PROXY-REMOTE-NETWORK-ERROR:  -
 DEFINE-CONDITION HTTP::PROXY-SERVICE-UNAVAILABLE:  -
 DEFINE-CONDITION HTTP::PROXY-CONNECTION-REFUSED:  -
 DEFINE-CONDITION HTTP::PROXY-CONNECTION-TIMEOUT:  -
DOMAIN - FIXES.LISP.33 ) ,
MAILBOX - FORMAT.LISP.24 ) ,
MAILER - FIXES.LISP.15 ) ,
 Patch TCP hang on close when client drops connection. (from HTTP:LISPM;SERVER;TCP-PATCH-HANG-ON-CLOSE.LISP.10),
FORMAT.LISP.20 ) ,
STATICE - PATCH.LISP.3 ) ,
STATICE - SET - VALUED - UPDATE.LISP.1 ) ,
MAILER - PATCH.LISP.107 ) ,
CLIM - PATCHES.LISP.48 ) .
========================
========================
========================
========================
========================
========================
========================
========================
========================
  Patch file for CL - HTTP version 70.46
  Reason : Function ( CLOS : METHOD WWW - UTILS : FILE - LENGTH - IN - BYTES ( CL : PATHNAME ) ):   use probe stream and : GET : LENGTH - IN - BYTES .
  Written by JCMa , 5/14/00 19:28:05
  while running on FUJI - VLM from FUJI:/usr / lib / symbolics / ComLink-39 - 8 - F - MIT-8 - 5.vlod
  with Open Genera 2.0 , Genera 8.5 , Documentation Database 440.12 ,
  Logical Pathnames Translation Files NEWEST , CLIM 72.0 , Genera CLIM 72.0 ,
  PostScript CLIM 72.0 , MAC 414.0 , 8 - 5 - Patches 2.17 , Statice Runtime 466.1 ,
  Statice 466.0 , Statice Browser 466.0 , Statice Documentation 426.0 ,   ,
  CLIM Documentation 72.0 , Showable Procedures 36.3 , Binary Tree 34.0 ,
  Mailer 438.0 , Working LispM Mailer 8.0 , HTTP Server 70.45 ,
  W3 Presentation System 8.1 , CL - HTTP Server Interface 53.0 ,
  Symbolics Common Lisp Compatibility 4.0 , Comlink Packages 6.0 ,
  Comlink Utilities 10.2 , COMLINK Cryptography 2.0 , Routing Taxonomy 9.0 ,
  COMLINK Database 11.26 , Email Servers 12.0 , Comlink Customized LispM Mailer 7.1 ,
  Dynamic Forms 14.4 , Communications Linker Server 39.8 ,
  Lambda Information Retrieval System 22.3 , Jcma 42 , HTTP Proxy Server 5.8 ,
  HTTP Client Substrate 3.10 , Ivory Revision 5 , VLM Debugger 329 ,
  Genera program 8.11 , DEC OSF/1 V4.0 ( Rev. 110 ) ,
  1280x994 8 - bit PSEUDO - COLOR X Screen FUJI:0.0 with 224 Genera fonts ( DECWINDOWS Digital Equipment Corporation Digital UNIX V4.0 R1 ) ,
  Machine serial number -2141189585 ,



(SCT:FILES-PATCHED-IN-THIS-PATCH-FILE 
  "HTTP:LISPM;SERVER;LISPM.LISP.462"
  "HTTP:SERVER;HTTP-CONDITIONS.LISP.173"
  "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:LISPM;SERVER;LISPM.LISP.462")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Package: WWW-UTILS; BASE: 10; Syntax: ANSI-Common-Lisp; Default-Character-Style: (:fix :roman :normal);-*-")

(defmethod file-length-in-bytes ((pathname pathname) &optional new-length)
  (declare (ignore new-length))
  (with-open-file (file-stream pathname :direction :probe)
    (scl:send file-stream :get :length-in-bytes)))


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.173")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-condition (server-condition) ())

(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-bad-gateway (bad-gateway proxy-condition) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-unresolvable-domain-name (proxy-bad-gateway) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-local-network-error (proxy-bad-gateway) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-remote-network-error (proxy-bad-gateway) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-service-unavailable (service-unavailable proxy-condition) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-connection-refused (proxy-service-unavailable) ())


(SCT:BEGIN-PATCH-SECTION)
(SCT:PATCH-SECTION-SOURCE-FILE "HTTP:SERVER;HTTP-CONDITIONS.LISP.175")
(SCT:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: http; Base: 10; Default-character-style: (:fix :roman :normal) -*-")

(define-condition proxy-connection-timeout (gateway-timeout proxy-condition) ())

