[cl-net-snmp-cvs] r91 - in vendor/cl-http: lw/server proxy/examples server smtp

[ctian at common-lisp.net]

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))