Plaster

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))))