Commit 158b3332 authored by Antoine Martin's avatar Antoine Martin
Browse files

Fix edge case with columns length computation

parent ee59a686
......@@ -45,11 +45,12 @@
(print (get-primary-system-name (ql-dist:name release)))))
(defun get-columns-length (size)
(multiple-value-bind (split remainder) (floor size 3)
(case remainder
(0 (values split split split))
(1 (values (+ split 1) (+ split 1) (- split 1)))
(2 (values (+ split 1) (+ split 1) split)))))
(if (equal size 1) (values 1 0 0)
(multiple-value-bind (split remainder) (floor size 3)
(case remainder
(0 (values split split split))
(1 (values (+ split 1) (+ split 1) (- split 1)))
(2 (values (+ split 1) (+ split 1) split))))))
(defun print-columns (l size file)
(multiple-value-bind (lfirst lsecond lthird)
......
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