# HG changeset patch
# Parent 8a563d171d60955ac1f4cb90bf853cfd1b778c90
Working if :HUNCHENTOOT-NO-SSL is present in CL:*FEATURES*.

Conditionalize naming of SSL specific function based on the presence
of the :HUNCHENTOOT-NO-SSL in *FEATURES*.

<> patches <file:////home/user/quicklisp/dists/quicklisp/software/hunchentoot-1.2.2> .

diff -r 8a563d171d60 acceptor.lisp
--- a/acceptor.lisp	Wed Feb 22 16:33:56 2012 +0100
+++ b/acceptor.lisp	Thu Feb 23 17:00:48 2012 +0100
@@ -692,4 +692,3 @@
   (:documentation "Returns a string which can be used for 'Server' headers.")
   (:method ((acceptor acceptor))
     (format nil "Hunchentoot ~A" *hunchentoot-version*)))
-
diff -r 8a563d171d60 compat.lisp
--- a/compat.lisp	Wed Feb 22 16:33:56 2012 +0100
+++ b/compat.lisp	Thu Feb 23 17:00:48 2012 +0100
@@ -121,3 +121,4 @@
 
 (defun condition-variable-wait (condition-variable lock)
   (bt:condition-wait condition-variable lock))
+
diff -r 8a563d171d60 easy-handlers.lisp
--- a/easy-handlers.lisp	Wed Feb 22 16:33:56 2012 +0100
+++ b/easy-handlers.lisp	Thu Feb 23 17:00:48 2012 +0100
@@ -340,7 +340,9 @@
      when action return (funcall action)
      finally (call-next-method)))
 
+#-hunchentoot-no-ssl
 (defclass easy-ssl-acceptor (easy-acceptor ssl-acceptor)
   ()
   (:documentation "This is an acceptor that mixes the ``easy''
-  Hunchentoot with SSL connections."))
\ No newline at end of file
+  Hunchentoot with SSL connections."))
+