null+****@clear*****
null+****@clear*****
Thu Jun 7 22:11:39 JST 2012
yuta yamada 2012-06-07 22:11:39 +0900 (Thu, 07 Jun 2012) New Revision: 432803fbf86e93800fafe2ad88727ba94d525264 Log: content-of-list -> converted-list Modified files: logalimacs.el Modified: logalimacs.el (+2 -2) =================================================================== --- logalimacs.el 2012-06-07 22:05:53 +0900 (1468617) +++ logalimacs.el 2012-06-07 22:11:39 +0900 (46b6270) @@ -266,8 +266,8 @@ (push (list source target note) keywords) finally return keywords))) -(defun loga-format-to-string (content-of-list) - (let* ((striped-list (loop for (word) in content-of-list +(defun loga-format-to-string (converted-list) + (let* ((striped-list (loop for (word) in converted-list collect word))) (mapconcat 'identity striped-list "\n")))