[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Compiler-macro error -- what is this?

From: Eric Abrahamsen
Subject: Compiler-macro error -- what is this?
Date: Thu, 13 Dec 2018 12:38:24 -0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux)

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... 
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:


(defun ebdb-migrate-parse-records ()
  "Parse an earlier (non-EIEIO) version of a BBDB database file."
      (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)
          (goto-char (point-min)) (insert "(\n")
          (goto-char (point-max)) (insert "\n)")
          (goto-char (point-min))
              (setq records (read (current-buffer)))
            (goto-char (point-min)) (delete-char 2)
            (goto-char (point-max)) (delete-char -2)
            (set-buffer-modified-p modp)))

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]