44 lines
873 B
Plaintext
44 lines
873 B
Plaintext
$OpenBSD: patch-src_cmp_cmpmain_lsp,v 1.1 2013/06/11 10:30:54 sthen Exp $
|
|
--- src/cmp/cmpmain.lsp.orig Sun Jun 9 11:01:16 2013
|
|
+++ src/cmp/cmpmain.lsp Sun Jun 9 11:00:58 2013
|
|
@@ -269,7 +269,8 @@ void ~A(cl_object cblock)
|
|
Cblock->cblock.next = current;
|
|
}
|
|
~A
|
|
-}")
|
|
+}
|
|
+")
|
|
|
|
(defconstant +lisp-program-main+ "
|
|
extern int
|
|
@@ -282,7 +283,8 @@ main(int argc, char **argv)
|
|
~A
|
|
} ECL_CATCH_ALL_END;
|
|
si_exit(0);
|
|
-}")
|
|
+}
|
|
+")
|
|
|
|
(defconstant +lisp-library-main+ "
|
|
extern int
|
|
@@ -294,7 +296,8 @@ extern int
|
|
ecl_init_module(OBJNULL, ~A);
|
|
~A
|
|
} ECL_CATCH_ALL_END;
|
|
-}")
|
|
+}
|
|
+")
|
|
|
|
#+:win32
|
|
(defconstant +lisp-program-winmain+ "
|
|
@@ -312,7 +315,8 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
|
|
~A
|
|
} ECL_CATCH_ALL_END;
|
|
si_exit(0);
|
|
-}")
|
|
+}
|
|
+")
|
|
|
|
(defun guess-kind (pathname)
|
|
"Given a file name, guess whether it is an object file, a library, a program
|