[elpa] externals/bluetooth c719b1ebf8: use ash instead of lsh

[ELPA Syncer]

branch: externals/bluetooth
commit c719b1ebf80a21ba6618ba15fefac5c5886e4e55
Author: Alex McGrath <amk@amk.ie>
Commit: Alex McGrath <alex.mcgrath@goteleport.com>

    use ash instead of lsh
---
 bluetooth.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bluetooth.el b/bluetooth.el
index 5fbc8dd790..ec73e566b2 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -1569,7 +1569,7 @@ form by a call to ‘bluetooth-device-properties’."
   "Parse the CLASS property of a Bluetooth device."
   (cl-labels ((parse (field-def acc)
                                         (let-alist field-def
-                                          (let* ((m-field (lsh (logand class 
.mask) .shift))
+                                          (let* ((m-field (ash (logand class 
.mask) .shift))
                                                          (res (cons .name
                                                                                
 (list (funcall .fn m-field .data))))
                                                          (n-acc (cons res 
acc)))
@@ -1586,7 +1586,7 @@ form by a call to ‘bluetooth-device-properties’."
 (defun bluetooth--class-parse-bitfield (bitfield data)
   "Parse BITFIELD using DATA as specification."
   (or (delq nil (mapcar (lambda (x)
-                                                 (if (/= 0 (logand bitfield 
(lsh 1 (cl-first x))))
+                                                 (if (/= 0 (logand bitfield 
(ash 1 (cl-first x))))
                                                          (cl-rest x)
                                                        nil))
                                                data))