Skip to content

Instantly share code, notes, and snippets.

@death
Created February 27, 2020 00:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save death/736932ac3cd44b0541f1f4014484ac8e to your computer and use it in GitHub Desktop.
Save death/736932ac3cd44b0541f1f4014484ac8e to your computer and use it in GitHub Desktop.
cl-protobufs patch
From a261d730edad260276e5daa33ca6e534441089ef Mon Sep 17 00:00:00 2001
From: death <death@adeht.org>
Date: Thu, 27 Feb 2020 01:51:36 +0200
Subject: [PATCH] Fix typo in format control string
---
printer.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/printer.lisp b/printer.lisp
index 4545b2a..cb9bf63 100644
--- a/printer.lisp
+++ b/printer.lisp
@@ -811,7 +811,7 @@
(format stream (if (and (keywordp class) (not (eq class :bool)))
;; Keyword class means a primitive type, print default with ~S
"~&~@[~VT~](~A :type ~(~S~)~:[~*~; :default ~S~]~
- ~@[ :reader ~(~S~)~]~@[ :writer ~(~S~)~]~@[ :~packed ~(~S~)~]~
+ ~@[ :reader ~(~S~)~]~@[ :writer ~(~S~)~]~@[ :packed ~(~S~)~]~
~@[ :options (~{~/protobuf-option/~^ ~})~])~
~:[~2*~;~VT; ~A~]"
;; Non-keyword class means an enum type, print default with ~(~S~)
--
2.25.1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment