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) (defun path (name)
"Needed because ECL uses base strings (not Unicode) for pathnames internally." "Needed because ECL uses base strings (not Unicode) for pathnames internally."
#+(or darwin linux) #+unix
(funcall (intern "QUTF8" :eql) name) (funcall (intern "QUTF8" :eql) name)
#+win32 #+win32
(if (< (funcall (intern "%WINDOWS-VERSION" :eql)) #xa0) (if (< (funcall (intern "%WINDOWS-VERSION" :eql)) #xa0)