From fddf91a3cda658639aa3ef77ea08640d4d618fa3 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 19 Jun 2004 11:42:45 +0000 Subject: [PATCH] Fixed a bug in rem-test --- ansi-tests/rt.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 9bce2e36..301e08e3 100644 --- a/ansi-tests/rt.lsp +++ b/ansi-tests/rt.lsp @@ -102,8 +102,9 @@ (defun rem-test (&optional (name *test*)) (let ((pred (gethash name *entries-table*))) (when pred - (when (eq (cdr pred) *entries-tail*) - (setq *entries-tail* pred)) + (if (null (cddr pred)) + (setq *entries-tail* pred) + (setf (gethash (name (caddr pred)) *entries-table*) pred)) (setf (cdr pred) (cddr pred)) (remhash name *entries-table*) name))) -- GitLab