[nongnu] elpa/pacmacs e44bade6bf 087/472: Fix lambda expressions (#68)

[ELPA Syncer]

branch: elpa/pacmacs
commit e44bade6bf5095fcf1622726936dc84d3fe5c961
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Fix lambda expressions (#68)
---
 pacmacs-anim.el          |  4 ++--
 pacmacs.el               | 22 +++++++++++-----------
 test/pacman-anim-test.el |  4 ++--
 3 files changed, 15 insertions(+), 15 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.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)))