Skip to content
Snippets Groups Projects
Commit fddf91a3 authored by pfdietz's avatar pfdietz
Browse files

Fixed a bug in rem-test

parent b408fda1
No related branches found
No related tags found
No related merge requests found
...@@ -102,8 +102,9 @@ ...@@ -102,8 +102,9 @@
(defun rem-test (&optional (name *test*)) (defun rem-test (&optional (name *test*))
(let ((pred (gethash name *entries-table*))) (let ((pred (gethash name *entries-table*)))
(when pred (when pred
(when (eq (cdr pred) *entries-tail*) (if (null (cddr pred))
(setq *entries-tail* pred)) (setq *entries-tail* pred)
(setf (gethash (name (caddr pred)) *entries-table*) pred))
(setf (cdr pred) (cddr pred)) (setf (cdr pred) (cddr pred))
(remhash name *entries-table*) (remhash name *entries-table*)
name))) name)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment