Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
xcvb
cl-launch
Commits
80ff8b4f
Commit
80ff8b4f
authored
Aug 13, 2014
by
Francois-Rene Rideau
Browse files
4.0.8.2: fix :require.
Also, be more resilient vs bad packages: package-qualify cl:in-package
parent
b53ca7e0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
80ff8b4f
...
...
@@ -52,7 +52,7 @@ install_binary_with_include:
cl-shim
:
cl-shim.c
cc
-Os
-s
-W
-Wall
-Werror
-DCL_LAUNCH_SCRIPT
=
"
\"
${INSTALL_BIN}
/cl-launch
\"
"
-o
$@
$<
ifeq($(shell
uname),
Linux)
ifeq
($(shell uname), Linux)
install_cl
:
install_binary
ln
-s
cl-launch
${INSTALL_BIN}
/cl
else
...
...
cl-launch.sh
View file @
80ff8b4f
#!/bin/sh
#| cl-launch.sh -- shell wrapper for Common Lisp -*- Lisp -*-
CL_LAUNCH_VERSION
=
'4.0.8.
1
'
CL_LAUNCH_VERSION
=
'4.0.8.
2
'
license_information
()
{
AUTHOR_NOTE
=
"
\
# Please send your improvements to the author:
...
...
@@ -1031,7 +1031,7 @@ process_options () {
-q
|
--quiet
)
unset
CL_LAUNCH_VERBOSE
;;
-e
|
--eval
)
add_build_form
"(:eval
\"
(in-package :
$PACKAGE
)
$(
kwote
"
$1
"
)
\"
)"
;
shift
;;
add_build_form
"(:eval
\"
(
cl:
in-package :
$PACKAGE
)
$(
kwote
"
$1
"
)
\"
)"
;
shift
;;
-L
|
--load
)
add_build_form
"(:load
\"
$(
kwote
"
$1
"
)
\"
:
$PACKAGE
)"
;
shift
;;
-f
|
--file
)
...
...
@@ -1039,7 +1039,7 @@ process_options () {
-s
|
--system
|
--load-system
)
add_build_form
"(:load-system
\"
$1
\"
)"
;
shift
;;
--require
)
add_build_form
"(require
\"
$(
kwote
"
$1
"
)
\"
)"
;
shift
;;
add_build_form
"(
:
require
\"
$(
kwote
"
$1
"
)
\"
)"
;
shift
;;
-F
|
--final
)
add_final_form
"
$1
"
;
shift
;;
-i
|
--init
)
...
...
@@ -1158,7 +1158,7 @@ add_build_form () {
}
add_init_form
()
{
if
!
[
"
${
INIT_PACKAGE
}
"
=
"
$PACKAGE
"
]
;
then
package_form
=
"(in-package :
$PACKAGE
)"
package_form
=
"(
cl:
in-package :
$PACKAGE
)"
INIT_PACKAGE
=
"
$PACKAGE
"
else
package_form
=
""
...
...
@@ -1168,7 +1168,7 @@ add_init_form () {
}
add_final_form
()
{
if
!
[
"
${
FINAL_PACKAGE
}
"
=
"
$PACKAGE
"
]
;
then
package_form
=
"(in-package :
$PACKAGE
)"
package_form
=
"(
cl:
in-package :
$PACKAGE
)"
FINAL_PACKAGE
=
"
$PACKAGE
"
else
package_form
=
""
...
...
@@ -2168,7 +2168,7 @@ print_lisp_header () {
CL_HEADER
=
t
print_lisp_code
echo
";;;;; Return to the default package."
echo
"(in-package :cl-user)"
echo
"(
cl:
in-package :cl-user)"
print_lisp_code_bottom
}
print_lisp_launcher
()
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment