From 93694f60cdee7892f88f772b54597963b1b0e139 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 21 May 2000 02:25:59 +0000 Subject: [PATCH] (ccl-compile-map-multiple): Don't quote lambda. --- lisp/international/ccl.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 3f5e83c7565..84ea32a4408 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -898,22 +898,22 @@ (defun ccl-compile-map-multiple (cmd) (if (/= (length cmd) 4) (error "CCL: Invalid number of arguments: %s" cmd)) - (let ((func '(lambda (arg mp) - (let ((len 0) result add) - (while arg - (if (consp (car arg)) - (setq add (funcall func (car arg) t) - result (append result add) - add (+ (-(car add)) 1)) - (setq result - (append result - (list (car arg))) - add 1)) - (setq arg (cdr arg) - len (+ len add))) - (if mp - (cons (- len) result) - result)))) + (let ((func (lambda (arg mp) + (let ((len 0) result add) + (while arg + (if (consp (car arg)) + (setq add (funcall func (car arg) t) + result (append result add) + add (+ (-(car add)) 1)) + (setq result + (append result + (list (car arg))) + add 1)) + (setq arg (cdr arg) + len (+ len add))) + (if mp + (cons (- len) result) + result)))) arg) (setq arg (append (list (nth 0 cmd) (nth 1 cmd) (nth 2 cmd)) (funcall func (nth 3 cmd) nil))) -- 2.39.5