diff --git a/uiop/utility.lisp b/uiop/utility.lisp index 618e81833a35833a440eec183cbbd770cfa699da..1bb65b4d55e26bd8d74e055e6b473c7044de636e 100644 --- a/uiop/utility.lisp +++ b/uiop/utility.lisp @@ -82,7 +82,7 @@ to supersede any previous definition." (defvar *uiop-debug-utility* '(or (ignore-errors (symbol-call :asdf :system-relative-pathname :uiop "contrib/debug.lisp")) - (symbol-call :uiop/pathname :subpathname (user-homedir-pathname) "cl/asdf/uiop/contrib/debug.lisp")) + (symbol-call :uiop/pathname :subpathname (user-homedir-pathname) "common-lisp/asdf/uiop/contrib/debug.lisp")) "form that evaluates to the pathname to your favorite debugging utilities") (defmacro uiop-debug (&rest keys)