cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- moved macro definition on top of the file.

This commit is contained in:
cage 2022-12-29 17:34:44 +01:00
parent 685f4e4db7
commit a87ea3b2ae
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/gemini/gemini-parser.lisp
View File

@ -29,6 +29,14 @@
(defparameter *pre-alt-text* "")
(defmacro with-initialized-parser (&body body)
`(let ((gemini-parser:*pre-group-id* -1)
(gemini-parser:*header-group-id* -1)
(gemini-parser:*source-line-id* -1)
(gemini-parser:*pre-alt-text* "")
(gemini-parser:*raw-mode-data* nil))
,@body))
(defun-w-lock next-pre-group-id () *parser-lock*
(incf *pre-group-id*)
*pre-group-id*)
@ -790,14 +798,6 @@
(uri:scheme parsed))
(uri:host parsed)))))
(defmacro with-initialized-parser (&body body)
`(let ((gemini-parser:*pre-group-id* -1)
(gemini-parser:*header-group-id* -1)
(gemini-parser:*source-line-id* -1)
(gemini-parser:*pre-alt-text* "")
(gemini-parser:*raw-mode-data* nil))
,@body))
(defgeneric gemini-first-h1 (data))
(defmethod gemini-first-h1 ((data cons))