From da1285cace779d4cefc0770a9dd19ddaa0e0285f Mon Sep 17 00:00:00 2001 From: "pls.153" Date: Sat, 19 Feb 2022 08:29:22 +0100 Subject: [PATCH] fix function 'x:path' for unix --- src/lisp/x.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lisp/x.lisp b/src/lisp/x.lisp index 68645d4..4f73c7d 100644 --- a/src/lisp/x.lisp +++ b/src/lisp/x.lisp @@ -151,7 +151,7 @@ (defun path (name) "Needed because ECL uses base strings (not Unicode) for pathnames internally." - #+(or darwin linux) + #+unix (funcall (intern "QUTF8" :eql) name) #+win32 (if (< (funcall (intern "%WINDOWS-VERSION" :eql)) #xa0)