[nongnu] elpa/pacmacs 3cbd9508d8 089/472: Merge branch 'coverage-broken-68'. Close #68

[ELPA Syncer]

branch: elpa/pacmacs
commit 3cbd9508d8e1a8112f7255bb3648b2802fefbb8d
Merge: 6365c3db7b 427b4f823e
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Merge branch 'coverage-broken-68'. Close #68
---
 pacmacs-anim.el          |  4 ++--
 pacmacs-utils.el         |  2 +-
 pacmacs.el               | 22 +++++++++++-----------
 test/pacman-anim-test.el |  4 ++--
 4 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/pacmacs-anim.el b/pacmacs-anim.el
index 6704119354..ac4fc718b8 100644
--- a/pacmacs-anim.el
+++ b/pacmacs-anim.el
@@ -73,8 +73,8 @@
 (defun pacmacs-convert-aseprite-frame (aseprite-frame)
   (let* ((frame (cdr (assoc 'frame (cdr aseprite-frame))))
          (duration (cdr (assoc 'duration (cdr aseprite-frame)))))
-    (pacmacs-make-frame (mapcar (lambda (n)
-                                 (cdr (assoc n frame)))
+    (pacmacs-make-frame (mapcar #'(lambda (n)
+                                    (cdr (assoc n frame)))
                                '(x y w h))
                        duration)))
 
diff --git a/pacmacs-utils.el b/pacmacs-utils.el
index 8d0aea6147..a0631cdf51 100644
--- a/pacmacs-utils.el
+++ b/pacmacs-utils.el
@@ -33,7 +33,7 @@
 ;;; Code:
 
 (defmacro plist-bind (keys expr &rest body)
-  (declare (indent 2) (debug t))
+  (declare (indent 2) (debug (sexp form &rest form)))
   (let ((expr-name (gensym)))
     `(let* ((,expr-name ,expr)
             ,@(mapcar #'(lambda (key)
diff --git a/pacmacs.el b/pacmacs.el
index 00878a9740..c75260922f 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -154,11 +154,11 @@
 
 (defun pacmacs--object-at-p (row column objects)
   (member (cons row column)
-          (mapcar (lambda (object)
-                    (plist-bind ((row :row)
-                                 (column :column))
-                        object
-                      (cons row column)))
+          (mapcar #'(lambda (object)
+                      (plist-bind ((row :row)
+                                   (column :column))
+                          object
+                        (cons row column)))
                   objects)))
 
 (defun pacmacs--wall-at-p (row column)
@@ -284,12 +284,12 @@
           (when pill
             (setq pacmacs-score (+ pacmacs-score 10))
             (setq pacmacs-pills
-                  (remove-if (lambda (pill)
-                               (plist-bind ((p-row :row)
-                                            (p-column :column))
-                                   pill
-                                 (and (= row p-row)
-                                      (= column p-column))))
+                  (remove-if #'(lambda (pill)
+                                 (plist-bind ((p-row :row)
+                                              (p-column :column))
+                                     pill
+                                   (and (= row p-row)
+                                        (= column p-column))))
                              pacmacs-pills)))))
 
       (pacmacs--recalc-track-board)
diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index c26629cdf6..a55ffe85df 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -11,8 +11,8 @@
     (should (equal 3 (pacmacs-anim-get-frame anim)))))
 
 (ert-deftest pacmacs-anim-next-frame-test ()
-  (let ((anim (list :frames (mapcar (lambda (x)
-                                      (pacmacs-make-frame (+ 41 x) 100))
+  (let ((anim (list :frames (mapcar #'(lambda (x)
+                                        (pacmacs-make-frame (+ 41 x) 100))
                                     (number-sequence 1 4)) 
                     :current-frame 2
                     :duration-counter 0)))