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