Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found

Target

Select target project
  • cmucl/cmucl
  • pfominykh/cmucl
  • yitzchak/cmucl
  • rkreuter/cmucl
  • cshapiro/cmucl
5 results
Show changes
Commits on Source (2)
......@@ -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")
......@@ -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
......
......@@ -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"
......