From: dmaus <dmaus>
Date: Mon, 16 May 2011 19:14:09 +0000 (+0000)
Subject: Use new style backquotes in md4.el
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3403b0c34e29a2eebcc7159b3245ae01e51120d8;p=elisp%2Fflim.git

Use new style backquotes in md4.el

	* md4.el (md4-make-step): Use new style backquotes.
---

diff --git a/ChangeLog b/ChangeLog
index fcc677b..75f0e16 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-16  David Maus  <dmaus@ictsoc.de>
+
+	* md4.el (md4-make-step): Use new style backqoutes. Slipped
+	through 2010-11-14.
+
 2010-11-14  HAMANO Kiyoto  <khiker.mail@gmail.com>
 
 	* sha1-el.el (sha1-F0, sha1-F1, sha1-F2, sha1-F3, sha1-S1)
diff --git a/md4.el b/md4.el
index 43af2ae..b3c1e66 100644
--- a/md4.el
+++ b/md4.el
@@ -88,21 +88,20 @@ bytes long.  N is required to handle strings containing character 0."
 (defsubst md4-H (x y z) (logxor x y z))
 
 (defmacro md4-make-step (name func)
-  (`
-   (defun (, name) (a b c d xk s ac)
-     (let*
-         ((h1 (+ (car a) ((, func) (car b) (car c) (car d)) (car xk) (car ac)))
-          (l1 (+ (cdr a) ((, func) (cdr b) (cdr c) (cdr d)) (cdr xk) (cdr ac)))
-          (h2 (logand 65535 (+ h1 (lsh l1 -16))))
-          (l2 (logand 65535 l1))
-	  ;; cyclic shift of 32 bits integer
-          (h3 (logand 65535 (if (> s 15)
-                                (+ (lsh h2 (- s 32)) (lsh l2 (- s 16)))
-                              (+ (lsh h2 s) (lsh l2 (- s 16))))))
-          (l3 (logand 65535 (if (> s 15)
-                                (+ (lsh l2 (- s 32)) (lsh h2 (- s 16)))
-                              (+ (lsh l2 s) (lsh h2 (- s 16)))))))
-       (cons h3 l3)))))
+  `(defun ,name (a b c d xk s ac)
+    (let*
+	((h1 (+ (car a) (,func (car b) (car c) (car d)) (car xk) (car ac)))
+	 (l1 (+ (cdr a) (,func (cdr b) (cdr c) (cdr d)) (cdr xk) (cdr ac)))
+	 (h2 (logand 65535 (+ h1 (lsh l1 -16))))
+	 (l2 (logand 65535 l1))
+	 ;; cyclic shift of 32 bits integer
+	 (h3 (logand 65535 (if (> s 15)
+			       (+ (lsh h2 (- s 32)) (lsh l2 (- s 16)))
+			     (+ (lsh h2 s) (lsh l2 (- s 16))))))
+	 (l3 (logand 65535 (if (> s 15)
+			       (+ (lsh l2 (- s 32)) (lsh h2 (- s 16)))
+			     (+ (lsh l2 s) (lsh h2 (- s 16)))))))
+      (cons h3 l3))))
 
 (md4-make-step md4-round1 md4-F)
 (md4-make-step md4-round2 md4-G)