commit - 385d8c27124fbdf6686d98559ae01dc9c6a8acd0
commit + 721a55a9e57cebcde535bfaa77e3bbaae956d55b
blob - 89f55326edea41032c0eee14bd565226cf770ab9
blob + 124e85332fac9df40785f67e29e174aea69cc734
--- gemtext.lisp
+++ gemtext.lisp
(loop with label = (subseq line 3)
with content = nil
for line = (read-line in nil)
- unless line
- do (error "non-closed verbatim")
- when (markerp line)
+ when (or (not line)
+ (markerp line))
return (make-instance 'verbatim
- :alt label
+ :alt (unless (string-equal label "")
+ label)
:text (format nil "~{~A~%~^~}"
(nreverse content)))
do (push line content))