Fix PRINT-OBJECT method for protobuf-extension to actually print range

diff --git a/model-classes.lisp b/model-classes.lisp
index 9a7a130..7ac9178 100644 (file)
--- a/model-classes.lisp
+++ b/model-classes.lisp
@@ -672,7 +672,7 @@
 (defmethod print-object ((e protobuf-extension) stream)
   (print-unreadable-object (e stream :type t :identity t)
     (format stream "~D - ~D"
-            (proto-extension-from e) (proto-extension-from e))))
+            (proto-extension-from e) (proto-extension-to e))))
 
 
 ;; A Protobufs service