removed unnecessary variable
This commit is contained in:
@@ -25,13 +25,11 @@
|
|||||||
|
|
||||||
(defun pt-build (source &rest params)
|
(defun pt-build (source &rest params)
|
||||||
"Build a pivot table
|
"Build a pivot table
|
||||||
|
|
||||||
TODO: more documentation"
|
TODO: more documentation"
|
||||||
(let* ((rows (plist-get params :rows))
|
(let* ((rows (plist-get params :rows))
|
||||||
(cols (plist-get params :cols))
|
(cols (plist-get params :cols))
|
||||||
(vals (plist-get params :vals))
|
(vals (plist-get params :vals))
|
||||||
(col-index (pt-get-columns source))
|
(col-index (pt-get-columns source))
|
||||||
(index (pt-column-names source))
|
|
||||||
src-cols
|
src-cols
|
||||||
(src-body (pt-get-body source))
|
(src-body (pt-get-body source))
|
||||||
(buckets (make-hash-table)))
|
(buckets (make-hash-table)))
|
||||||
|
|||||||
Reference in New Issue
Block a user