Author: ctian Date: Mon Jul 12 05:47:05 2010 New Revision: 541
Log: Condition: ignore-unsupported-warnings
Modified: usocket/trunk/condition.lisp
Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Mon Jul 12 05:47:05 2010 @@ -204,22 +204,17 @@ ((64 112) . host-down-error) ((65 113) . host-unreachable-error)))
- (defun map-errno-condition (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member)))
- (defun map-errno-error (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member)))
- (defparameter +unix-ns-error-map+ `((1 . ns-host-not-found-error) (2 . ns-try-again-condition) (3 . ns-no-recovery-error)))
- - (defmacro unsupported (feature context &key minimum) `(cerror "Ignore it and continue" 'unsupported :feature ,feature @@ -228,3 +223,11 @@
(defmacro unimplemented (feature context) `(signal 'unimplemented :feature ,feature :context ,context)) + + +;;; People may want to ignore all unsupported warnings, here it is. +(defmacro ignore-unsupported-warnings (&body body) + `(handler-bind ((unsupported + #'(lambda (c) + (declare (ignore c)) (continue)))) + (progn ,@body)))