fixed pt-get-columns

pivot-table.el

@@ -44,11 +44,11 @@ TODO: more documentation"
   "Extract the column names from a table"
   (let (result)
     (dolist (row source)
-      (unless (and (listp row) (eq "!" (car row)))
+      (when (and (listp row) (equal "!" (car row)))
         (let ((n 2))
           (dolist (cell (cdr row))
-            (unless (eq cell "")
-              (setq result (((format "%s" cell) . n) . result)))
+            (unless (equal cell "")
+              (push (cons (format "%s" cell) n) result))
             (setq n (1+ n))))))
     result))