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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Oct 21 10:02:22 2008
New Revision: 438

Log:
Backport c437: Make UNSUPPORTED evaluate to a CERROR, for REPL users.

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 10:02:22 2008
@@ -193,7 +193,7 @@
 
 
 (defmacro unsupported (feature context &key minimum)
-  `(signal 'unsupported :feature ,feature
+  `(cerror 'unsupported :feature ,feature
     :context ,context :minimum ,minimum))
 
 (defmacro unimplemented (feature context)