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

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)