sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix function 'x:path' for unix

Browse source
This commit is contained in:
pls.153 2022-02-19 08:29:22 +01:00
parent 0bf4fbaf2e
commit da1285cace
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lisp/x.lisp
View file

@ -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)