|
@@ -165,7 +165,7 @@ is replaced with replacement."
|
|
|
(mapcar (lambda (e) (string-trim '(#\Newline #\Space) (plump:text e)))
|
|
(mapcar (lambda (e) (string-trim '(#\Newline #\Space) (plump:text e)))
|
|
|
(get-by-tag row "td")))
|
|
(get-by-tag row "td")))
|
|
|
(format-data (data)
|
|
(format-data (data)
|
|
|
- (format nil "~{~A~^ ~}" (mapcar (lambda (n) (nth n data)) '(1 2 3 4 7))))
|
|
|
|
|
|
|
+ (format nil "~{~A~^ ~}" (mapcar (lambda (n) (nth n data)) '(1 2 3 4 7 6))))
|
|
|
(get-intresting (rows)
|
|
(get-intresting (rows)
|
|
|
(loop for row in rows
|
|
(loop for row in rows
|
|
|
for data = (row-data row)
|
|
for data = (row-data row)
|
