From ab7c605fc9682f797917141a30ec8c8136e5321c Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sun, 3 Jun 2007 17:41:54 +0000 Subject: [PATCH] Fixed typo --- src/cmp/cmpmain.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index d4a28a299..0be74cc48 100644 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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)))