From 352f8b811322893015d85f77050b462a03649e07 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Wed, 7 Feb 2001 13:19:06 +0000
Subject: [PATCH] Changed default server-product-info to include the Lisp
 implementation as a comment.

---
 src/main/server.cl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/main/server.cl b/src/main/server.cl
index 4a2c66c..f80698c 100644
--- a/src/main/server.cl
+++ b/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
-  '("CLASH/1.0"))
+  ;; Default for people too lazy to adjust
+  (load-time-value
+   (list "CLASH/1.0"
+	 (format nil "(~A)"
+		 (delete #\( (remove #\) (lisp-implementation-type)))))
+   t))
 
 ;;; Simple Server