[usocket-cvs] r541 - usocket/trunk

[Chun Tian (binghe)]

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 , at body)))