[Portableaserve-cvslog] CVS: portableaserve/aserve main.cl, 1.47, 1.48

[Kevin R. <kev...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21037/aserve

Modified Files:
	main.cl 
Log Message:
Patch from Lispworks Inc to add SSL support

Index: main.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/main.cl,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -w -r1.47 -r1.48
--- main.cl	15 Aug 2008 00:30:14 -0000	1.47
+++ main.cl	15 Aug 2008 00:35:05 -0000	1.48
@@ -988,7 +988,7 @@
   #+mswindows
   (declare (ignore setuid setgid))
   #-(or (and allegro (version>= 6 2 beta))
-			       (and :lispworks4.4 (not :cl-ssl)))
+			       (and :lispworks (not :cl-ssl)))
   (declare (ignore ssl-password))
 
   (declare (ignore debug))  ; for now
@@ -1016,9 +1016,9 @@
 		(funcall 'acl-compat.socket::make-ssl-server-stream socket
 			 :certificate ssl
 			 #+(or (and allegro (version>= 6 2 beta))
-			       (and :lispworks4.4 (not :cl-ssl))) :certificate-password
+			       (and :lispworks (not :cl-ssl))) :certificate-password
 			 #+(or (and allegro (version>= 6 2 beta))
-			       (and :lispworks4.4 (not :cl-ssl))) ssl-password)))
+			       (and :lispworks (not :cl-ssl))) ssl-password)))
 	  (setq chunking nil) ; doesn't work well through ssl
 	  (if* (not port-p)
 	     then ; ssl defaults to port 443