Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; lib/organ/util.lisp --- Organ Utils

2

3

;;

4

5

;;; Code:

6

(in-package :organ)

7

8

(defun read-org-lines (&optional stream)

9

(apply #'vector

10

(loop for l = (read-line stream nil)

11

until (not l)

12

collect l)))

13

14

(defun read-org-lines-from-string (str)

15

(with-input-from-string (s str) (read-org-lines s)))

16

17

;; (sym-to-org-class-name 'headline)

18

(eval-always

19

(defun sym-to-org-class-name (sym)

20

"Convert keyword or symbol SYM to a symbol which could designate an ORG- object type."

21

(intern (format nil "~:@(~a~a~)" "org-" sym) :organ)))