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