[求助]：请大家给看看问题出在哪？

c3a139

请问为什么会重复？
(SETQ LC-DATALIST (LIST))
   (WHILE
     (SETQ FPADATA (READ-LINE FP))
     (IF (WCMATCH FPADATA "LC *")      
    (SETQ FPBDATA (SUBSTR FPADATA 4))
       (SETQ LC-DATALIST (CONS FPBDATA LC-DATALIST))
       )
       )
数据：
LC 245400
35.3,-1.3
35.1,1
LC 245450
34.9,-1.4
36.4,0.8
结果：
("245450" "245450" "245400" "245400")
想要的结果
("245450" "245400")

zml84

2. 
   
3. (setq LC-DATALIST (list))
   
4. (while (setq FPADATA (read-line FP))
   
5.     (if        (wcmatch FPADATA "LC *")
   
6.         (setq FPBDATA          (substr FPADATA 4)
   
7.               LC-DATALIST (cons FPBDATA LC-DATALIST)
   
8.         )
   
9.     )
   
10. )
    

<br /> (setq LC-DATALIST (list))<br /> (while (setq FPADATA (read-line FP))<br />     (if        (wcmatch FPADATA "LC *")<br />         (setq FPBDATA          (substr FPADATA 4)<br />               LC-DATALIST (cons FPBDATA LC-DATALIST)<br />         )<br />     )<br /> )<br />

Underway

2. 
   
3. (WHILE  (SETQ FPADATA (READ-LINE FP))
   
4.   (IF (WCMATCH FPADATA "LC *")
   
5.     (progn
   
6.       (SETQ FPBDATA (SUBSTR FPADATA 4))
   
7.       (SETQ LC-DATALIST (CONS FPBDATA LC-DATALIST))
   
8.   ) )
   
9. )
   

<br /> (WHILE  (SETQ FPADATA (READ-LINE FP))<br />   (IF (WCMATCH FPADATA "LC *") <br />     (progn<br />       (SETQ FPBDATA (SUBSTR FPADATA 4))<br />       (SETQ LC-DATALIST (CONS FPBDATA LC-DATALIST))<br />   ) )<br /> )<br />

c3a139

谢谢两位，我已解决了
(IF (WCMATCH FPADATA "LC *")      
         (SETQ LC-DATALIST (CONS (SUBSTR FPADATA 4) LC-DATALIST))   
   )
还有个小问题，请问如何判断一个数是实数？

gysjy

(setq a 3.45
           b 3
           c "ABC"
)
则：(= (type a) 'REAL")     => T
          (= (type b) 'REAL")     => nil
          (= (type c) 'REAL")     => nil