Compiler-macro error -- what is this?

[Eric Abrahamsen]

I got a compilation error report from someone compiling EBDB. These are
all the details so far:

Slackware-14.0 (32-bit)
GNU Emacs 25.3.1

Compiling /home/eric/.emacs.d/elpa/ebdb-0.6/ebdb-migrate.el... 
(ebdb-migrate-parse-records)
Compiler-macro error for cl--block-wrapper: (wrong-number-of-arguments (3 . 5) 
6) [3 times]

That doesn't look like anything familiar to me -- does anyone know
what's going wrong? I'm pasting the code for
`ebdb-migrate-parse-records' below:

Thanks,
Eric

(defun ebdb-migrate-parse-records ()
  "Parse an earlier (non-EIEIO) version of a BBDB database file."
  (save-excursion
    (save-restriction
      (widen)
      (goto-char (point-min))
      ;; look backwards for file-format, and convert if necessary.
      (let ((file-format
             (if (re-search-forward
                  "^;+[ \t]*file-\\(format\\|version\\):[ \t]*\\([0-9]+\\)[ 
\t]*$" nil t)
                 (string-to-number (match-string 2))))
            migrate records)
        (unless file-format ; current file-format, but no file-format: line.
          (error "BBDB corrupted: no file-format line"))
        (if (> file-format ebdb-file-format)
            (error "EBDB understands file format %s but not %s."
                   ebdb-file-format file-format)
          (setq migrate (< file-format ebdb-file-format)))
        (unless (re-search-forward "^\\[" nil t)
          (error "Unreadabe BBDB file: no contacts found"))
        (goto-char (point-at-bol))
        ;; narrow the buffer to skip over the rubbish before the first record.
        (narrow-to-region (point) (point-max))
        (let ((modp (buffer-modified-p))
              ;; Make sure those parens get cleaned up.
              ;; This code had better stay simple!
              (inhibit-quit t)
              (buffer-undo-list t)
              buffer-read-only)
          (goto-char (point-min)) (insert "(\n")
          (goto-char (point-max)) (insert "\n)")
          (goto-char (point-min))
          (unwind-protect
              (setq records (read (current-buffer)))
            (goto-char (point-min)) (delete-char 2)
            (goto-char (point-max)) (delete-char -2)
            (set-buffer-modified-p modp)))
        (widen)

        ;; Migrate if `bbdb-file' is outdated.
        (if migrate (setq records (ebdb-migrate records file-format)))

        records))))