Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
07c10f99
Commit
07c10f99
authored
Jan 15, 2014
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add :compression support for dump-image on SBCL. Fix dump-image for SBCL/Windows.
parent
8d5d7acf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
4 deletions
+8
-4
uiop/image.lisp
uiop/image.lisp
+8
-4
No files found.
uiop/image.lisp
View file @
07c10f99
...
...
@@ -291,6 +291,7 @@ by setting appropriate variables, running various hooks, and calling any specifi
(
postlude
*image-postlude*
)
(
dump-hook
*image-dump-hook*
)
#+
clozure
prepend-symbols
#+
clozure
(
purify
t
)
#+
sbcl
compression
#+
(
and
sbcl
windows
)
application-type
)
"Dump an image of the current Lisp environment at pathname FILENAME, with various options"
;; Note: at least SBCL saves only global values of variables in the heap image,
...
...
@@ -353,10 +354,13 @@ by setting appropriate variables, running various hooks, and calling any specifi
(
setf
sb-ext::*gc-run-time*
0
)
(
apply
'sb-ext:save-lisp-and-die
filename
:executable
t
;--- always include the runtime that goes with the core
(
when
executable
(
list
:toplevel
#'
restore-image
:save-runtime-options
t
))
;--- only save runtime-options for standalone executables
#+
(
and
sbcl
windows
)
;; passing :application-type :gui will disable the console window.
;; the default is :console - only works with SBCL 1.1.15 or later.
(
when
application-type
(
list
:application-type
application-type
))))
(
append
(
when
compression
(
list
:compression
compression
))
;;--- only save runtime-options for standalone executables
(
when
executable
(
list
:toplevel
#'
restore-image
:save-runtime-options
t
))
#+
(
and
sbcl
windows
)
;; passing :application-type :gui will disable the console window.
;; the default is :console - only works with SBCL 1.1.15 or later.
(
when
application-type
(
list
:application-type
application-type
)))))
#-
(
or
allegro
clisp
clozure
cmu
gcl
lispworks
sbcl
scl
)
(
error
"Can't ~S ~S: UIOP doesn't support image dumping with ~A.~%"
'dump-image
filename
(
nth-value
1
(
implementation-type
))))
...
...
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