Corrected server-product-info to show real CLASH version number.

This commit is contained in:
2001-04-06 01:40:25 +00:00
parent 995fbf131b
commit d432e89e49

View File

@ -122,7 +122,7 @@ Server Response-Header."))
(declare (ignore server)) (declare (ignore server))
;; Default for people too lazy to adjust ;; Default for people too lazy to adjust
(load-time-value (load-time-value
(list "CLASH/1.0" (list (format nil "CLASH/~A" (clash-version-string))
(format nil "(~A)" (format nil "(~A)"
(delete #\( (remove #\) (lisp-implementation-type))))) (delete #\( (remove #\) (lisp-implementation-type)))))
t)) t))