Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
External wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
cmucl
cmucl
Compare revisions
68ef4c5b2708fd3c26e93d3f59ec2e733a9fb389 to 3f4e2d0c5d14f1484ecf086297ec7a2ccefeb256
Compare revisions
Changes are shown as if the
source
revision was being merged into the
target
revision.
Learn more about comparing revisions.
Source
cmucl/cmucl
Select target project
No results found
3f4e2d0c5d14f1484ecf086297ec7a2ccefeb256
Select Git revision
Swap
Target
cmucl/cmucl
Select target project
cmucl/cmucl
pfominykh/cmucl
yitzchak/cmucl
rkreuter/cmucl
cshapiro/cmucl
5 results
68ef4c5b2708fd3c26e93d3f59ec2e733a9fb389
Select Git revision
Show changes
Only incoming changes from source
Include changes to target since source was created
Compare
Commits on Source (2)
Fix
#163
: Add -version command line switch
· ca9b6e0c
Raymond Toy
authored
2 years ago
ca9b6e0c
Merge branch 'issue-163-add-command-line-version' into 'master'
· 3f4e2d0c
Raymond Toy
authored
2 years ago
Fix
#163
: Add -version command line switch Closes
#163
See merge request
!112
3f4e2d0c
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
src/code/commandline.lisp
+14
-0
14 additions, 0 deletions
src/code/commandline.lisp
src/code/save.lisp
+6
-2
6 additions, 2 deletions
src/code/save.lisp
src/i18n/locale/cmucl.pot
+4
-0
4 additions, 0 deletions
src/i18n/locale/cmucl.pot
with
24 additions
and
2 deletions
src/code/commandline.lisp
View file @
3f4e2d0c
...
...
@@ -394,3 +394,17 @@
(
defswitch
"-help"
#'
help-switch-demon
"Same as -help."
)
(
defun
version-switch-demon
(
switch
)
(
declare
(
ignore
switch
))
(
format
t
"~A~%"
(
lisp-implementation-version
))
(
ext:quit
))
(
defswitch
"version"
#'
version-switch-demon
"Prints the cmucl version and exits"
)
;; Make --version work for the benefit of those who are accustomed to
;; GNU software.
(
defswitch
"-version"
#'
version-switch-demon
"Prints the cmucl version and exits; same as -version"
)
This diff is collapsed.
Click to expand it.
src/code/save.lisp
View file @
3f4e2d0c
...
...
@@ -336,8 +336,12 @@
*gc-verbose*
nil
))
(
when
(
and
process-command-line
(
or
(
find-switch
"help"
)
(
find-switch
"-help"
)))
;; Don't load any init files if -help or --help is given
(
find-switch
"-help"
)
(
find-switch
"version"
)
(
find-switch
"-version"
)))
;; Don't load any init files if -help, --help,
;; -version, or --version is given. These exit right
;; away, so loading the init file is wasteful.
(
setf
site-init
nil
)
(
setf
load-init-file
nil
))
(
when
(
and
site-init
...
...
This diff is collapsed.
Click to expand it.
src/i18n/locale/cmucl.pot
View file @
3f4e2d0c
...
...
@@ -6149,6 +6149,10 @@ msgstr ""
msgid "Same as -help."
msgstr ""
#: src/code/commandline.lisp
msgid "Prints the cmucl version and exits"
msgstr ""
#: src/code/env-access.lisp
msgid ""
"Returns information about the symbol VAR in the lexical environment ENV.\n"
...
...
This diff is collapsed.
Click to expand it.