Added missing pathname support to EQUALP-WITH-CASE.

git-svn-id: file:///home/alex/svn/src/clweb/trunk@3078 1fe77fbb-760c-0410-9197-9ee16f777b24
plotnick · May 4, 2011 · b6a69dd · b6a69dd
1 parent fb1981c
commit b6a69dd
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/rt.lisp b/rt.lisp
@@ -144,6 +144,9 @@
            (loop for i from 0 below size
                  always (equalp-with-case (row-major-aref x i)
                                           (row-major-aref y i))))))
+   ((pathnamep x)
+    (and (pathnamep y)
+         (equal x y)))
    (t (eql x y))))
 
 (defun do-entry (entry &optional