Plaster
New
List
Login
common-lisp
default
anonymous
2021.04.29 07:27:12
(defmethod extract-field ((content string)) (subseq content (+ 3 (search "{{{" content)) (search "}}}" content)))
Raw
Annotate
Repaste
Edit
Annotations
common-lisp
default
anonymous
2021.04.29 07:43:04
(defmethod extract-field ((content string) &optional (errorp t) error-value) (let ((position (search "{{{" content))) (cond (position (let ((start (+ 3 position))) (subseq content start (search "}}}" content :start2 start)))) (errorp (error 'field-not-found :string content)) (t error-value))))
Raw
Repaste
Edit