Commit cb4735a8 authored by pfdietz's avatar pfdietz
Browse files

Fix checking of pathname equality

parent b91746ae
......@@ -210,7 +210,8 @@
(loop for i from 0 below size
always (equalp-with-case (my-row-major-aref x i)
(my-row-major-aref y i))))))
((typep x 'pathname)
(equal x y))
(t (eql x y))))
(defun do-entry (entry &optional
Supports Markdown
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