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
481b3b63
Commit
481b3b63
authored
Jul 29, 2014
by
Francois-Rene Rideau
Browse files
4.0.7.3: fix output location for image-op.
parent
566efcec
Changes
1
Show whitespace changes
Inline
Side-by-side
cl-launch.sh
View file @
481b3b63
#!/bin/sh
#| cl-launch.sh -- shell wrapper generator for Common Lisp software -*- Lisp -*-
CL_LAUNCH_VERSION
=
'4.0.7.
2
'
CL_LAUNCH_VERSION
=
'4.0.7.
3
'
license_information
()
{
AUTHOR_NOTE
=
"
\
# Please send your improvements to the author:
...
...
@@ -2511,11 +2511,12 @@ Returns two values: the fasl path, and T if the file was (re)compiled"
,@build (:load ,footer-file :cl-user))
:do (setf r (make-dependency fun arg pkg r))
:finally (return r)))
(op (if (getenvp "CL_LAUNCH_STANDALONE") 'program-op 'image-op))
(program-sys
(make-temporary-system
"program" dependencies
`(:serial t
:build-operation
program-
op
:build-operation
,
op
:build-pathname ,(when dump (ensure-absolute-pathname dump #'getcwd))
;; Provide a sensible timestamp
;; For SBCL and other platforms that die on dump-image, clean before the end:
...
...
@@ -2523,7 +2524,7 @@ Returns two values: the fasl path, and T if the file was (re)compiled"
(load-sys program-sys) ;; Give quicklisp a chance to download things
(when dump
(setf *features* (remove :cl-launched *features*))
(operate
(if (getenvp "CL_LAUNCH_STANDALONE") 'program-op 'image-op)
program-sys)))
(operate
op
program-sys)))
(cleanup-temporary-files))
(unless dump
(restore-image))
...
...
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