From 9e35fed164c82a578ce90013ad61e311b234b36a Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Wed, 4 Sep 2024 12:33:12 -0700 Subject: [PATCH] Cleanup some functions in table.lisp --- table.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)