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. ...@@ -24,11 +24,11 @@ to continue.
:documentation "Indicates the minimal version of the :documentation "Indicates the minimal version of the
implementation required to support the requested feature.")) implementation required to support the requested feature."))
(:report (lambda (c stream) (:report (lambda (c stream)
(format stream "~A in ~A is unsupported." (format stream "~A in ~A is unsupported."
(feature c) (context c)) (feature c) (context c))
(when (minimum c) (when (minimum c)
(format stream " Minimum version (~A) is required." (format stream " Minimum version (~A) is required."
(minimum c))))) (minimum c)))))
(:documentation "Signalled when the underlying implementation (:documentation "Signalled when the underlying implementation
doesn't allow supporting the requested feature. doesn't allow supporting the requested feature.
...@@ -37,8 +37,8 @@ When you see this error, go bug your vendor/implementation developer!")) ...@@ -37,8 +37,8 @@ When you see this error, go bug your vendor/implementation developer!"))
(define-condition unimplemented (insufficient-implementation) (define-condition unimplemented (insufficient-implementation)
() ()
(:report (lambda (c stream) (:report (lambda (c stream)
(format stream "~A in ~A is unimplemented." (format stream "~A in ~A is unimplemented."
(feature c) (context c)))) (feature c) (context c))))
(:documentation "Signalled if a certain feature might be implemented, (:documentation "Signalled if a certain feature might be implemented,
based on the features of the underlying implementation, but hasn't based on the features of the underlying implementation, but hasn't
been implemented yet.")) been implemented yet."))
...@@ -138,7 +138,7 @@ error available.")) ...@@ -138,7 +138,7 @@ error available."))
(define-usocket-condition-classes (define-usocket-condition-classes
(ns-try-again-condition) (ns-try-again-condition)
(ns-condition)) (socket-condition))
(define-condition ns-unknown-condition (ns-condition) (define-condition ns-unknown-condition (ns-condition)
((real-condition :initarg :real-condition ((real-condition :initarg :real-condition
...@@ -223,9 +223,9 @@ error available.")) ...@@ -223,9 +223,9 @@ error available."))
(defmacro unsupported (feature context &key minimum) (defmacro unsupported (feature context &key minimum)
`(cerror "Ignore it and continue" 'unsupported `(cerror "Ignore it and continue" 'unsupported
:feature ,feature :feature ,feature
:context ,context :context ,context
:minimum ,minimum)) :minimum ,minimum))
(defmacro unimplemented (feature context) (defmacro unimplemented (feature context)
`(signal 'unimplemented :feature ,feature :context ,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