Browse files

rfe10416: tweak warn text, turn into 'note'

Can't warn here because it will kill the ACL build (which
stops for warnings).  Also, the best thing is to pass on the text
of the condition, rather than a canned message.

Change-Id: I3d05265bc587a79c847ce4940f87f59184310875
  • Loading branch information...
1 parent ce62b88 commit e00b1187a6c1feec482191c3f742401abd4d9b83 @dklayer dklayer committed Feb 18, 2011
Showing with 6 additions and 7 deletions.
  1. +6 −7
@@ -71,15 +71,14 @@ v5: version 1.2.50, Enhanced SSL client/server support."
(require :streamc)
(require :inflate))
(eval-when (compile load eval)
- (handler-case
- (require :deflate)
+ (defvar *user-warned-about-deflate* nil)
+ (handler-case (require :deflate)
(error (c)
- c
- (warn "deflate module could not be loaded, server compression disabled"))))
+ (when (null *user-warned-about-deflate*)
+ (format t "~&NOTE: ~a~%" c)
+ (setq *user-warned-about-deflate* t)))))
(defpackage :net.aserve
(:use :common-lisp :excl :net.html.generator :net.uri

0 comments on commit e00b118

Please sign in to comment.