define-proto: refactor DEFINE-EXTEND

[cl-protobufs.git] / conditions.lisp

diff --git a/conditions.lisp b/conditions.lisp
index 012c3bb45ae91af3f47bb31eca1b9d25ff3a6e58..5ea0b970344b861bdc9118ae07ebd3fb352f4153 100644 (file)
--- a/conditions.lisp
+++ b/conditions.lisp
@@ -10,6 +10,7 @@
 
 (in-package "PROTO-IMPL")
 
+
 ;;; Protocol buffers conditions
 
 (define-condition undefined-type (simple-error)
@@ -31,7 +32,7 @@
   (:documentation "Indicates that a schema contains a message with a field whose type is not a
                    primitive type and is not a known message (or extend) or enum.")
   (:report (lambda (condition stream)
-             (format stream "~? Field ~S in message ~S has unknown type ~S"
+             (format stream "~? Field ~A in message ~A has unknown type ~A"
                      (simple-condition-format-control condition)
                      (simple-condition-format-arguments condition)
                      (error-field condition)
@@ -58,7 +59,7 @@
                    that a schema contains a service with a method whose input, output, or stream
                    type is not a known message (or extend).")
   (:report (lambda (condition stream)
-             (format stream "~? ~A type for RPC ~S in service ~S has unknown type ~S"
+             (format stream "~? ~A type for RPC ~A in service ~A has unknown type ~A"
                      (simple-condition-format-control condition)
                      (simple-condition-format-arguments condition)
                      (error-where condition)