Changed default server-product-info to include the Lisp implementation

as a comment.

src/main/server.cl

@@ -119,8 +119,12 @@ Server Response-Header."))
 
 (defmethod server-product-info (server)
   (declare (ignore server))
-  ;; Default for people to lazy to adjust
+  ;; Default for people too lazy to adjust
-  '("CLASH/1.0"))
+  (load-time-value
+   (list "CLASH/1.0"
+	 (format nil "(~A)"
+		 (delete #\( (remove #\) (lisp-implementation-type)))))
+   t))
 
 ;;; Simple Server