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))