Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit e00b1187a6c1feec482191c3f742401abd4d9b83 1 parent ce62b88
@dklayer dklayer authored
Showing with 6 additions and 7 deletions.
  1. +6 −7 packages.cl
View
13 packages.cl
@@ -71,15 +71,14 @@ v5: version 1.2.50, Enhanced SSL client/server support."
(require :streamc)
(require :inflate))
+sys::
(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 :util.zip)
Please sign in to comment.
Something went wrong with that request. Please try again.