                  (error "Right trim less than zero (%d) for `%s'"
                         trimr directive))
                 ((> (+ triml trimr) (length body))
-                 (error "Combined trim (%d + %d) greater than body length (%d) for `%s'"
+                 (error (concat "Combined trim (%d + %d) greater "
+                                "than body length (%d) for `%s'")
                         triml trimr (length body) directive)))
                (if this-new
                    (list (cl-mapcan resolve body))


;;; Code:

;; To see the outline of this file, run M-x occur with a query of four
;; semicolons followed by a space.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Libraries

(require 'subr-x)
(require 'cl-lib)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; User-facing variables

(defgroup el-patch nil

         (apply el-patch-require-function ',feature ',args))
       (add-hook 'el-patch-pre-validate-hook #',defun-name))))

;;;; Patch directives

;;;###autoload
