Commit fddf91a3 authored by pfdietz's avatar pfdietz
Browse files

Fixed a bug in rem-test

parent b408fda1
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment