null+****@clear*****
null+****@clear*****
Wed Jun 27 11:11:24 JST 2012
yuta yamada 2012-06-27 11:11:24 +0900 (Wed, 27 Jun 2012) New Revision: 12ec3f67ae9d94ef6cf617ca2633ad22ac860f25 https://github.com/logaling/logalimacs/commit/12ec3f67ae9d94ef6cf617ca2633ad22ac860f25 Log: Use ",@" instead of loop function Modified files: logalimacs.el Modified: logalimacs.el (+1 -3) =================================================================== --- logalimacs.el 2012-06-27 10:21:07 +0900 (c16fe0b) +++ logalimacs.el 2012-06-27 11:11:24 +0900 (2c01bc6) @@ -312,9 +312,7 @@ finally return `(,source ,target ,note ,source-length ,target-length))) (defun loga-format-to-string (converted-list) - (let* ((striped-list (loop for (word) in converted-list - collect word))) - (mapconcat 'identity striped-list "\n"))) + `(mapconcat 'identity , at converted-list "\n")) (defun loga-format (words) (loop with formated-words = '() -------------- next part -------------- An HTML attachment was scrubbed...다운로드
