null+****@clear*****
null+****@clear*****
Thu Jun 7 21:54:58 JST 2012
yuta yamada 2012-06-07 21:54:58 +0900 (Thu, 07 Jun 2012)
New Revision: a7c3769c22b44262bc99ed992fc9076383d0ecca
Log:
json -> all-data
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -2)
===================================================================
--- logalimacs.el 2012-06-07 21:51:21 +0900 (77fa2c9)
+++ logalimacs.el 2012-06-07 21:54:58 +0900 (db8e72d)
@@ -255,9 +255,9 @@
converted-list
(loga-format-to-string converted-list))))
-(defun loga-extract-keywords-from (json)
+(defun loga-extract-keywords-from (all-data)
(let* (keywords source target note)
- (loop for record across json do
+ (loop for record across all-data do
(loop for (key . var) in record do
(case key
('source (setq source var))