diff --git a/table.lisp b/table.lisp
index 3a3bad8..6d692e0 100644
--- a/table.lisp
+++ b/table.lisp
@@ -54,14 +54,14 @@ if it is excluded, `discover-variables' will be used to generate it."
   "Extract each expression from TABLE and return them as a list.
 NOTE: this just gets each expression from the first row, assuming each row has
 the same expressions."
-  (loop for (expr . value) in (car table)
-        collect expr))
+  (mapcar 'car (car table)))
 
 (defun extract-truth-table-values (table)
   "Return a new table, where each row consists of just the value of the
 expression that was originally in that spot in TABLE."
-  (loop for row in table
-        collect (mapcar 'cdr row)))
+  (mapcar (lambda (row)
+            (mapcar 'cdr row))
+          table))
 
 
 (defun combine-tables (table1 table2)