Bladeren bron

Add minor comment.

Brit Butler 11 jaren geleden
bovenliggende
commit
a8a2a391ca
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  1. 2 0
      src/content.lisp

+ 2 - 0
src/content.lisp

@@ -60,6 +60,8 @@
60 60
         (setf (getf meta :tags) (read-tags (getf meta :tags)))
61 61
         (append meta (list :text content))))))
62 62
 
63
+;; Helper Functions
64
+
63 65
 (defun tag-p (tag obj)
64 66
   "Test if OBJ is tagged with TAG."
65 67
   (let ((tag (if (typep tag 'tag) tag (make-tag tag))))