Commit aca81698 authored by Robert Goldman's avatar Robert Goldman Committed by Elias Pipping
Browse files

Fix test bug.

parent d3768208
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -473,5 +473,5 @@
(progn
  (DBG "Checking CMUCL user-homedir-pathname issue.")
  (assert (pathname-match-p
	   (uiop/common-lisp:user-homedir-pathname)
	   (getenv-pathname "HOME"))))
           (uiop/common-lisp:user-homedir-pathname)
           (getenv-pathname "HOME" :want-directory t))))