Commit 1024d7dc authored by Russ Tyndall's avatar Russ Tyndall

fixed bug where mapcan was destructively modifying data

parent cc5db13d
......@@ -299,7 +299,8 @@ the Y axis")
(defmethod finalize-parameter ((key (eql :chxr)) val)
(let ((all-data (mapcan #'data (chart-elements *current-chart*))))
(let ((all-data (loop for i in (chart-elements *current-chart*)
append (data i))))
(format nil "~{~a~^|~}"
(loop for (idx valfn formatfn draw-zero-p) in val
collect (format nil "~D,~{~,2F~^,~}" idx
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment