[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/ssl.lisp

[BKNR Commits]

Revision: 4236
Author: edi
URL: http://bknr.net/trac/changeset/4236

More name fixes

U   trunk/thirdparty/hunchentoot/ssl.lisp

Modified: trunk/thirdparty/hunchentoot/ssl.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/ssl.lisp	2009-02-10 16:36:06 UTC (rev 4235)
+++ trunk/thirdparty/hunchentoot/ssl.lisp	2009-02-10 16:37:27 UTC (rev 4236)
@@ -60,7 +60,7 @@
          args))
 
 #+lispworks
-(defun make-ssl-acceptor-stream (socket-stream &key certificate-file privatekey-file privatekey-password)
+(defun make-ssl-server-stream (socket-stream &key certificate-file privatekey-file privatekey-password)
   "Given the acceptor socket stream SOCKET-STREAM attaches SSL to the
 stream using the certificate file CERTIFICATE-FILE and the private key
 file PRIVATEKEY-FILE.  Both of these values must be namestrings
@@ -88,11 +88,11 @@
   ;; attach SSL to the stream if necessary
   (call-next-method acceptor
                     #+:lispworks
-                    (make-ssl-acceptor-stream stream
+                    (make-ssl-server-stream stream
                                             :certificate-file (acceptor-ssl-certificate-file acceptor)
                                             :privatekey-file (acceptor-ssl-privatekey-file acceptor)
                                             :privatekey-password (acceptor-ssl-privatekey-password acceptor))
                     #-:lispworks
-                    (cl+ssl:make-ssl-acceptor-stream stream
+                    (cl+ssl:make-ssl-server-stream stream
                                                    :certificate (acceptor-ssl-certificate-file acceptor)
                                                    :key (acceptor-ssl-privatekey-file acceptor))))
\ No newline at end of file