[usocket-cvs] r447 - usocket/branches/0.4.x

[Chun Tian (binghe)]

Author: ctian
Date: Tue Oct 21 15:25:12 2008
New Revision: 447

Log:
bugfix: CERROR syntax need a string as its first argument (only SCL compiler find it).

Modified:
   usocket/branches/0.4.x/condition.lisp

Modified: usocket/branches/0.4.x/condition.lisp
==============================================================================
--- usocket/branches/0.4.x/condition.lisp	(original)
+++ usocket/branches/0.4.x/condition.lisp	Tue Oct 21 15:25:12 2008
@@ -208,8 +208,10 @@
 
 
 (defmacro unsupported (feature context &key minimum)
-  `(cerror 'unsupported :feature ,feature
-    :context ,context :minimum ,minimum))
+  `(cerror "Ignore it and continue" 'unsupported
+	   :feature ,feature
+	   :context ,context
+	   :minimum ,minimum))
 
 (defmacro unimplemented (feature context)
   `(signal 'unimplemented :feature ,feature :context ,context))