Commit Diff

Commit:
272dc9db9f9b4d4aec058228fd28d94f1bff82b4
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
~% instead of terpri we need to terminate the line on the given stream, not on *standard-output*!
Actions:
Patch | Tree
commit - eecee47c28c6961c0848e5e985346efa11d88cd9
commit + 272dc9db9f9b4d4aec058228fd28d94f1bff82b4
blob - bbe76f528a0364ebb1880c80b3e1e2d7371e5d87
blob + 5a2b37cc93d488f5247334b73ec02d94b9fe1170
--- gemtext.lisp
+++ gemtext.lisp
@@ -112,13 +112,11 @@
 
 (defmethod unparse ((item item) stream)
   (with-slots (text) item
-    (format stream "* ~a" text)
-    (terpri)))
+    (format stream "* ~a~%" text)))
 
 (defmethod unparse ((p paragraph) stream)
   (with-slots (text) p
-    (format stream "~a" text)
-    (terpri)))
+    (format stream "~a~%" text)))
 
 (defmethod unparse ((v verbatim) stream)
   (with-slots (alt text) v