From 0b4df228392c37bfd520bab8efa9e293d1ce4a46 Mon Sep 17 00:00:00 2001 From: theemacsshibe Date: Thu, 19 Mar 2020 18:27:06 +1100 Subject: [PATCH] Rendering REFERENCE needs to convert the hash to base64 --- Code/Text-format/new-renderer.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Code/Text-format/new-renderer.lisp b/Code/Text-format/new-renderer.lisp index d9afdec..8f44a1d 100644 --- a/Code/Text-format/new-renderer.lisp +++ b/Code/Text-format/new-renderer.lisp @@ -130,7 +130,8 @@ string; but RENDER-OBJECT will emit Netfarm standard format text.")) (defgeneric render-to-stream (object stream) (:documentation "Render a Netfarm value to a stream.") (:method ((ref reference) stream) - (format stream "ref:~a" (reference-hash ref))) + (format stream "ref:~a" + (bytes->base64 (reference-hash ref)))) (:method ((object object) stream) (format stream "ref:~a" (bytes->base64 (hash-object object)))) (:method ((string integer) stream) -- GitLab