Commit 871049bb authored by Antoine Martin's avatar Antoine Martin
Browse files

Handle one column in print-columns

parent 158b3332
......@@ -60,13 +60,17 @@
(s (nthcdr lfirst l) (cdr s))
(th (nthcdr (+ lfirst lsecond) l) (cdr th)))
((= n lfirst) nil)
(if (>= n lthird)
(if (>= n lsecond)
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s))
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s) (car th))))))
"<tr><td></td><td>~a</td></tr>~%"
(car f))
(if (>= n lthird)
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s))
(format file
"<tr><td></td><td>~a</td><td></td><td>~a</td><td></td><td>~a</td></tr>~%"
(car f) (car s) (car th)))))))
(defun get-directory-list (path)
(loop for dir in (directory path)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment