回答編集履歴
1
インデント修正、タブ文字が含まれてました。
test
CHANGED
|
@@ -24,15 +24,15 @@
|
|
|
24
24
|
|
|
25
25
|
(cond ((or (equal 'am be)
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
(equal 'is be)
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
(equal 'are be)
|
|
30
30
|
|
|
31
|
-
|
|
31
|
+
(equal 'was be)
|
|
32
32
|
|
|
33
|
-
|
|
33
|
+
(equal 'were be))
|
|
34
34
|
|
|
35
|
-
|
|
35
|
+
(setq arg (cons be (append (reverse a) arg)))))
|
|
36
36
|
|
|
37
37
|
(setq a (cons be a)))))
|
|
38
38
|
|