(mapcar #'funcall (loop for i in '(a b) collect #'(lambda () i)));; => (B B)(mapcar #'funcall (let (x) (dolist (i '(a b)) (push #'(lambda () i) x)) x));; => (B A)(mapcar #'funcall (mapcar #'(lambda (x) #'(lambda () x)) '(a b)));; => (A B)
0 件のコメント:
コメントを投稿