null+****@clear*****
null+****@clear*****
Thu Jun 7 21:06:50 JST 2012
yuta yamada 2012-06-07 21:06:50 +0900 (Thu, 07 Jun 2012)
New Revision: fd8b897d0fb2c4109bb9d67ea67489d795408210
Log:
loga-compute-format-for-string -> loga-format-for-string
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 21:03:41 +0900 (8988278)
+++ logalimacs.el 2012-06-07 21:06:50 +0900 (12c64eb)
@@ -253,7 +253,7 @@
content-of-list (loga-compute-format words-list loga-current-max-length))
(if loga-cascade-output
content-of-list
- (loga-compute-format-for-string content-of-list))))
+ (loga-format-for-string content-of-list))))
(defun loga-extract-words-list-from (json)
(let* (words-list source target note)
@@ -266,7 +266,7 @@
(push (list source target note) words-list)
finally return words-list)))
-(defun loga-compute-format-for-string (content-of-list)
+(defun loga-format-for-string (content-of-list)
(let* ((striped-list (loop for (word) in content-of-list
collect word)))
(mapconcat 'identity striped-list "\n")))