Author: ctian Date: Sat Oct 20 05:57:56 2007 New Revision: 91

Modified: vendor/cl-http/lw/server/sysdcl.lisp vendor/cl-http/proxy/examples/configuration.lisp vendor/cl-http/server/variables.lisp vendor/cl-http/smtp/smtp.lisp Log: More fix for LW5

Modified: vendor/cl-http/lw/server/sysdcl.lisp ============================================================================== --- vendor/cl-http/lw/server/sysdcl.lisp (original) +++ vendor/cl-http/lw/server/sysdcl.lisp Sat Oct 20 05:57:56 2007 @@ -46,7 +46,7 @@ #+(or LispWorks4 LispWorks5) "HTTP:lw;server;tcp-stream-4" ; LispWorks 4 specific #-Genera "HTTP:mcl;server;www-utils" ; Some portable utils are there - #+(or LispWorks4.0 LispWorks4.1 LispWorks4.2 LispWorks4.3 LispWorks5) + #+(or LispWorks4.0 LispWorks4.1 LispWorks4.2 LispWorks4.3 LispWorks4.4 LispWorks5) "HTTP:lw;server;time-and-author" ; LispWorks 4 specific file properties #+(or UNIX Harlequin-PC-Lisp) "HTTP:lw;server;unix" ; add-ons for UNIX-like ports @@ -86,8 +86,8 @@ "PREFERENCES" ; Configuration Preference Facility "WEB-CONFIGURATION" ; Server Configuration via the Web #+LispWorks "HTTP:lw;server;tcp-interface" - #+LispWorks4 "http:smtp;smtp" ; Simple SMTP mailer - #+LispWorks4 "http:smtp;mail" ; Interfaces for sending email + #+(and LispWorks4 LispWorks5) "http:smtp;smtp" ; Simple SMTP mailer + #+(and LispWorks4 LispWorks5) "http:smtp;mail" ; Interfaces for sending email ))

#-Genera

Modified: vendor/cl-http/proxy/examples/configuration.lisp ============================================================================== --- vendor/cl-http/proxy/examples/configuration.lisp (original) +++ vendor/cl-http/proxy/examples/configuration.lisp Sat Oct 20 05:57:56 2007 @@ -54,7 +54,7 @@

;; The maximum size in bytes that a proxy cache is allows to consume in ;; storage. Use this parameter to control garbage collection. -(setq *proxy-cache-maximum-size* 20000000) ;20 megabytes for a small proxy +(setq *proxy-cache-maximum-size* 2000000000) ;20 Gigabytes for a common proxy

;; The minimum expiration time in seconds for an object to be cached. This ;; bounds resource expiration times. @@ -86,6 +86,23 @@ ;; Define default subnet security for proxy service to avoid a breach of your ;; site's IP security (define-proxy-subnets - #|"128.52.0.0"|# ; MIT AI Lab + "172.16.0.0" + "172.17.0.0" + "172.18.0.0" + "172.19.0.0" + "172.20.0.0" + "172.21.0.0" + "172.22.0.0" + "172.23.0.0" + "172.24.0.0" + "172.25.0.0" + "172.26.0.0" + "172.27.0.0" + "172.28.0.0" + "172.29.0.0" + "172.30.0.0" + "172.31.0.0" + "192.168.0.0" + "127.0.0.0" #.(local-host-ip-address) ;restrict proxy service to local host as default )

Modified: vendor/cl-http/server/variables.lisp ============================================================================== --- vendor/cl-http/server/variables.lisp (original) +++ vendor/cl-http/server/variables.lisp Sat Oct 20 05:57:56 2007 @@ -350,7 +350,7 @@ #+MCL (symbol-value 'ccl:*default-character-type*) #+LispWorks3.2 'base-character #+(or Allegro Lucid CMU LispWorks4) 'base-char - #+LispWorks5 (symbol-value 'lw:*default-character-element-type*) + #+LispWorks5 'base-char #-(or Genera Allegro ACLPC MCL LispWorks Lucid CMU) 'base-character)

(define-constant +standard-text-copy-mode+

Modified: vendor/cl-http/smtp/smtp.lisp ============================================================================== --- vendor/cl-http/smtp/smtp.lisp (original) +++ vendor/cl-http/smtp/smtp.lisp Sat Oct 20 05:57:56 2007 @@ -98,7 +98,7 @@ `(let ((,stream (scl:make-instance 'message-body-stream :output-stream ,output-stream))) . ,body))

-#-(or Genera LispWorks4) +#-(or Genera LispWorks4 LispWorks5) (defmacro with-message-body-encoding ((stream output-stream) &body body) `(let ((,stream ,output-stream)) . ,body))