null+****@clear*****
null+****@clear*****
Thu Jun 7 22:01:15 JST 2012
yuta yamada 2012-06-07 22:01:15 +0900 (Thu, 07 Jun 2012)
New Revision: bff597f93a1c646a90c6a9cb17c71716feda8e0f
Log:
var -> value
Modified files:
logalimacs.el
Modified: logalimacs.el (+4 -4)
===================================================================
--- logalimacs.el 2012-06-07 21:58:58 +0900 (d437df2)
+++ logalimacs.el 2012-06-07 22:01:15 +0900 (a351045)
@@ -258,11 +258,11 @@
(defun loga-extract-keywords-from (all-data)
(let* (keywords source target note)
(loop for column across all-data do
- (loop for (key . var) in column do
+ (loop for (key . value) in column do
(case key
- ('source (setq source var))
- ('target (setq target var))
- ('note (setq note var))))
+ ('source (setq source value))
+ ('target (setq target value))
+ ('note (setq note value))))
(push (list source target note) keywords)
finally return keywords)))