mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 18:23:37 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo

Browse source
This commit is contained in:
jgarcia 2007-06-03 17:41:54 +00:00
parent fea321f623
commit ab7c605fc9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

@ -60,7 +60,7 @@
(defmacro fix-for-mingw (directory-namestring)
directory-namestring)
#+minwg32
#+mingw32
(defun fix-for-mingw (directory-namestring)
(let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
(if (zerop (length x)) "/" x)))