anchor.diff:          (add-to-table new-row result)))))
   
   (defun distinct (table column)
  -  "Returns the unique elements from the given column in the given table."
  +  "Returns the unique elements from the given column in the given table as a new table."
     (let ((added (make-hash-table :test #'equal))
           (result (make-table)))
       (with-rows (table row result)
  
positive.code: (in-package :cl-simple-table)
  
  (defun select (table &rest columns)
    "Selects the given columns from the table."
    (let ((result (make-table)))
      (with-rows (table row result)
        (let ((new-row (make-row)))
  
negative.code:             (add-to-table new-row result)))))))
  
  (defun top (table n)
    "Returns a new table with the top n rows from the given table."
    (let ((how-many (min n (num-rows table))))
      (subseq table 0 how-many)))
  
  (defun order-by (table col op)
    "Returns a new table sorted by the value in the given column and table using op."
    (sort table op :key (lambda (row) (get-row-column col row))))
  
  (defun where (table filter)
  