=> Bootstrap dependency digest>=20211023: found digest-20220214 ===> Skipping vulnerability checks. WARNING: No /usr/pkg/pkgdb/pkg-vulnerabilities file found. WARNING: To fix run: `/usr/sbin/pkg_admin -K /usr/pkg/pkgdb fetch-pkg-vulnerabilities'. ===> Building for flim-1.14.9nb5 --- elc --- /usr/pkg/bin/emacs -batch -q -no-site-file -l FLIM-MK -f compile-flim NONE NONE NONE Loading /tmp/devel/flim/work/flim-1.14.9/FLIM-CFG... Loading /tmp/devel/flim/work/flim-1.14.9/FLIM-ELS... Eager macro-expansion failure: (invalid-function `(let ((chr (,chr))) (cond ((and (<= 97 chr) (<= chr 102)) (+ (- chr 97) 10)) ((and (<= 65 chr) (<= chr 70)) (+ (- chr 65) 10)) ((and (<= 48 chr) (<= chr 57)) (- chr 48)) (t (error "Invalid hexadecimal digit `%c'" chr))))) Eager macro-expansion failure: (invalid-function `(aref "0123456789abcdef" (,num))) In toplevel form: sha1-el.el:131:26: Warning: ``(logxor (,D) (logand (,B) (logxor (,C) (,D))))' is a malformed function sha1-el.el:133:26: Warning: ``(logxor (,B) (,C) (,D))' is a malformed function sha1-el.el:141:26: Warning: ``(logior (logand (,B) (,C)) (logand (,D) (logior (,B) (,C))))' is a malformed function sha1-el.el:144:26: Warning: ``(logxor (,B) (,C) (,D))' is a malformed function sha1-el.el:147:30: Warning: ``(let ((W-high (,W-high)) (W-low (,W-low))) (setq S1W-high (+ (% (* W-high 2) 65536) (/ W-low (,(/ 65536 2))))) (setq S1W-low (+ (/ W-high (,(/ 65536 2))) (% (* W-low 2) 65536))))' is a malformed function sha1-el.el:154:30: Warning: ``(progn (setq S5A-high (+ (% (* (,A-high) 32) 65536) (/ (,A-low) (,(/ 65536 32))))) (setq S5A-low (+ (/ (,A-high) (,(/ 65536 32))) (% (* (,A-low) 32) 65536))))' is a malformed function sha1-el.el:160:30: Warning: ``(progn (setq S30B-high (+ (/ (,B-high) 4) (* (% (,B-low) 4) (,(/ 65536 4))))) (setq S30B-low (+ (/ (,B-low) 4) (* (% (,B-high) 4) (,(/ 65536 4))))))' is a malformed function sha1-el.el:167:22: Warning: ``(progn (sha1-S5 sha1-A-high sha1-A-low) (sha1-S30 sha1-B-high sha1-B-low) (setq sha1-A-low (+ ((,(intern (format "sha1-F%d" round))) sha1-B-low sha1-C-low sha1-D-low) sha1-E-low (,(symbol-value (intern (format "sha1-K%d-low" round)))) (aref block-low idx) (progn (setq sha1-E-low sha1-D-low) (setq sha1-D-low sha1-C-low) (setq sha1-C-low S30B-low) (setq sha1-B-low sha1-A-low) S5A-low))) (setq carry (/ sha1-A-low 65536)) (setq sha1-A-low (% sha1-A-low 65536)) (setq sha1-A-high (% (+ ((,(intern (format "sha1-F%d" round))) sha1-B-high sha1-C-high sha1-D-high) sha1-E-high (,(symbol-value (intern (format "sha1-K%d-high" round)))) (aref block-high idx) (progn (setq sha1-E-high sha1-D-high) (setq sha1-D-high sha1-C-high) (setq sha1-C-high S30B-high) (setq sha1-B-high sha1-A-high) S5A-high) carry) 65536)))' is a malformed function sha1-el.el:200:30: Warning: ``(progn (setq (,(intern (format "sha1-%s-low" H))) (+ (,(intern (format "sha1-%s-low" H))) (,(intern (format "sha1-%s-low" X))))) (setq carry (/ (,(intern (format "sha1-%s-low" H))) 65536)) (setq (,(intern (format "sha1-%s-low" H))) (% (,(intern (format "sha1-%s-low" H))) 65536)) (setq (,(intern (format "sha1-%s-high" H))) (% (+ (,(intern (format "sha1-%s-high" H))) (,(intern (format "sha1-%s-high" X))) carry) 65536)))' is a malformed function sha1-el.el:227:1: Error: Invalid function: `(let ((W-high (,W-high)) (W-low (,W-low))) (setq S1W-high (+ (% (* W-high 2) 65536) (/ W-low (,(/ 65536 2))))) (setq S1W-low (+ (/ W-high (,(/ 65536 2))) (% (* W-low 2) 65536)))) In toplevel form: hex-util.el:30:30: Warning: ``(let ((chr (,chr))) (cond ((and (<= 97 chr) (<= chr 102)) (+ (- chr 97) 10)) ((and (<= 65 chr) (<= chr 70)) (+ (- chr 65) 10)) ((and (<= 48 chr) (<= chr 57)) (- chr 48)) (t (error "Invalid hexadecimal digit `%c'" chr))))' is a malformed function hex-util.el:37:30: Warning: ``(aref "0123456789abcdef" (,num))' is a malformed function hex-util.el:40:1: Error: Invalid function: `(let ((chr (,chr))) (cond ((and (<= 97 chr) (<= chr 102)) (+ (- chr 97) 10)) ((and (<= 65 chr) (<= chr 70)) (+ (- chr 65) 10)) ((and (<= 48 chr) (<= chr 57)) (- chr 48)) (t (error "Invalid hexadecimal digit `%c'" chr)))) In define-hmac-function: hmac-def.el:32:54: Warning: ``(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))' is a malformed function In toplevel form: hmac-md5.el:88:1: Error: Invalid function: `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0)))) In toplevel form: hmac-sha1.el:81:1: Error: Invalid function: `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0)))) In toplevel form: mel-b-ccl.el:30:1: Warning: Package cl is deprecated mel-b-ccl.el:30:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mel-q-ccl.el:30:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mel-b-el.el:29:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: std11.el:752:2: Warning: make-obsolete called with 2 arguments, but requires 3 std11.el:752:42: Error: Wrong number of arguments: (3 . 3), 2 In lunit-generate-template: lunit.el:303:4: Warning: Use `with-current-buffer' rather than save-excursion+set-buffer In toplevel form: mime-def.el:278:2: Warning: make-obsolete-variable called with 2 arguments, but requires 3-4 In toplevel form: mel.el:28:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mel-q.el:28:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mel-u.el:28:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mel-g.el:35:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: eword-decode.el:36:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: eword-encode.el:28:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mime.el:28:1: Error: Wrong number of arguments: (3 . 3), 2 In toplevel form: mime-parse.el:28:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mmgeneric.el:30:13: Error: Wrong number of arguments: (3 . 4), 2 Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) In toplevel form: mmbuffer.el:27:1: Error: Wrong number of arguments: (3 . 4), 2 Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) In toplevel form: mmcooked.el:27:1: Error: Wrong number of arguments: (3 . 4), 2 Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) Eager macro-expansion failure: (wrong-number-of-arguments (3 . 4) 2) In toplevel form: mmexternal.el:27:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: mime-conf.el:30:1: Error: Wrong number of arguments: (3 . 4), 2 Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) In toplevel form: sasl-cram.el:29:1: Error: Invalid function: `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0)))) Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) In toplevel form: sasl-digest.el:36:1: Error: Invalid function: `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0)))) In md4-make-step: md4.el:90:31: Warning: ``(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)) (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)))' is a malformed function md4.el:107:1: Error: Invalid function: `(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)) (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))) Eager macro-expansion failure: (invalid-function `(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)) (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)))) Eager macro-expansion failure: (invalid-function `(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)) (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)))) In toplevel form: ntlm.el:66:1: Error: Invalid function: `(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)) (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))) Eager macro-expansion failure: (invalid-function `(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)) (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)))) Eager macro-expansion failure: (invalid-function `(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)) (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)))) In toplevel form: sasl-ntlm.el:33:1: Error: Invalid function: `(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)) (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))) Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) Eager macro-expansion failure: (invalid-function `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0))))) In toplevel form: sasl-scram.el:62:1: Error: Invalid function: `(defun (,name) (text key) (,(concat "Compute " (upcase (symbol-name name)) " over TEXT with KEY.")) (let ((key-xor-ipad (make-string (,B) 54)) (key-xor-opad (make-string (,B) 92)) (len (length key)) (pos 0)) (unwind-protect (progn (if (> len (,B)) (setq key ((,H) key) len (,L))) (while (< pos len) (aset key-xor-ipad pos (logxor (aref key pos) 54)) (aset key-xor-opad pos (logxor (aref key pos) 92)) (setq pos (1+ pos))) (setq key-xor-ipad (unwind-protect (concat key-xor-ipad text) (fillarray key-xor-ipad 0)) key-xor-ipad (unwind-protect ((,H) key-xor-ipad) (fillarray key-xor-ipad 0)) key-xor-opad (unwind-protect (concat key-xor-opad key-xor-ipad) (fillarray key-xor-opad 0)) key-xor-opad (unwind-protect ((,H) key-xor-opad) (fillarray key-xor-opad 0))) (,(if (and bit (< (/ bit 8) L)) (`(substring key-xor-opad 0 (,(/ bit 8)))) (`(concat key-xor-opad))))) (fillarray key-xor-ipad 0) (fillarray key-xor-opad 0)))) In toplevel form: smtp.el:39:1: Error: Wrong number of arguments: (3 . 4), 2 In toplevel form: qmtp.el:37:1: Error: Wrong number of arguments: (3 . 4), 2 PREFIX=/usr/pkg LISPDIR=/usr/pkg/share/emacs/site-lisp Converted: mime-en.texi.orig (JIS to EUC) Converted: mime-ja.texi.orig (JIS to EUC)