anchor.diff:  	      (format client "CL+SSL running in ~A ~A~%"
   		      (lisp-implementation-type)
   		      (lisp-implementation-version)))
  -	  (close client)
  -	  (close socket))))))
  +	  (close client))))))
  
positive.code: 	  (loop :for line = (read-line-crlf https nil)
  			    :while line :do
  			    (format t "HTTPS> ~a~%" line)))
  	  (close https)
  	  (close socket))))
  
  ;; start a simple HTTPS server. See the mod_ssl documentation at
  ;; <URL:http://www.modssl.org/> for information on generating the
  
negative.code: 		      server
  		      :element-type '(unsigned-byte 8)))
  	     (client (cl+ssl:make-ssl-server-stream
  		      socket
  		      :external-format '(:iso-8859-1 :eol-style :lf)
  		      :certificate cert
  		      :key key)))
  