Commit b9a27398 authored by Chun Tian (binghe)'s avatar Chun Tian (binghe)
Browse files

Make NS-TRY-AGAIN-CONDITION a sub-class of socket-condition (#61)

parent 58203ca2
......@@ -24,11 +24,11 @@ to continue.
:documentation "Indicates the minimal version of the
implementation required to support the requested feature."))
(:report (lambda (c stream)
(format stream "~A in ~A is unsupported."
(feature c) (context c))
(when (minimum c)
(format stream " Minimum version (~A) is required."
(minimum c)))))
(format stream "~A in ~A is unsupported."
(feature c) (context c))
(when (minimum c)
(format stream " Minimum version (~A) is required."
(minimum c)))))
(:documentation "Signalled when the underlying implementation
doesn't allow supporting the requested feature.
......@@ -37,8 +37,8 @@ When you see this error, go bug your vendor/implementation developer!"))
(define-condition unimplemented (insufficient-implementation)
()
(:report (lambda (c stream)
(format stream "~A in ~A is unimplemented."
(feature c) (context c))))
(format stream "~A in ~A is unimplemented."
(feature c) (context c))))
(:documentation "Signalled if a certain feature might be implemented,
based on the features of the underlying implementation, but hasn't
been implemented yet."))
......@@ -138,7 +138,7 @@ error available."))
(define-usocket-condition-classes
(ns-try-again-condition)
(ns-condition))
(socket-condition))
(define-condition ns-unknown-condition (ns-condition)
((real-condition :initarg :real-condition
......@@ -223,9 +223,9 @@ error available."))
(defmacro unsupported (feature context &key minimum)
`(cerror "Ignore it and continue" 'unsupported
:feature ,feature
:context ,context
:minimum ,minimum))
:feature ,feature
:context ,context
:minimum ,minimum))
(defmacro unimplemented (feature context)
`(signal 'unimplemented :feature ,feature :context ,context))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment