cmucl-cvs December 2024

cmucl-cvs@common-lisp.net

1 participants
8 discussions

[Git][cmucl/cmucl][issue-361-herald-for-bug-tracker] Update release info with this issue
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed to branch issue-361-herald-for-bug-tracker at cmucl / cmucl Commits: 0cad64cb by Raymond Toy at 2024-12-16T09:12:57-08:00 Update release info with this issue - - - - - 1 changed file: - src/general-info/release-21f.md Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -87,6 +87,7 @@ public domain. * ~~#330~~ Fix typos in unicode.lisp * ~~#333~~ `load` doesn't accept generalized boolean for `:if-does-not-exist` arg + * ~~#361~~ Add herald item to mention where to report issues * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0cad64cb4b4f558850c6d0a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0cad64cb4b4f558850c6d0a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-362-simplify-library-search-list
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed new branch issue-362-simplify-library-search-list at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-362-simplify-librar… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-361-herald-for-bug-tracker] 2 commits: Forgot to put a linefeed after the new herald item.
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed to branch issue-361-herald-for-bug-tracker at cmucl / cmucl Commits: 0241192c by Raymond Toy at 2024-12-16T08:48:10-08:00 Forgot to put a linefeed after the new herald item. - - - - - ca120a47 by Raymond Toy at 2024-12-16T08:48:26-08:00 Update pot file for new herald message - - - - - 2 changed files: - src/code/save.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/save.lisp ===================================== @@ -449,6 +449,7 @@ stream) (write-string (intl:gettext "https://gitlab.common-lisp.net/cmucl/cmucl/-/issues") stream)) + terpri ,#'(lambda (stream) (write-string (intl:gettext "See <http://www.cmucl.org/> for support information.") stream)) terpri ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6897,6 +6897,14 @@ msgstr "" msgid " on " msgstr "" +#: src/code/save.lisp +msgid "Please report issues to " +msgstr "" + +#: src/code/save.lisp +msgid "https://gitlab.common-lisp.net/cmucl/cmucl/-/issues" +msgstr "" + #: src/code/save.lisp msgid "See <http://www.cmucl.org/> for support information." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e07fae4289ab152b0decea… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e07fae4289ab152b0decea… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-361-herald-for-bug-tracker
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed new branch issue-361-herald-for-bug-tracker at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-361-herald-for-bug-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #360: Add default-site-init file
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 28f24fa8 by Raymond Toy at 2024-12-16T16:11:03+00:00 Fix #360: Add default-site-init file - - - - - adac84ea by Raymond Toy at 2024-12-16T16:11:07+00:00 Merge branch 'issue-360-add-site-init' into 'master' Fix #360: Add default-site-init file Closes #360 See merge request cmucl/cmucl!257 - - - - - 4 changed files: - bin/make-main-dist.sh - bin/run-unit-tests.sh - src/code/generic-site.lisp → src/code/default-site-init.lisp - src/code/save.lisp Changes: ===================================== bin/make-main-dist.sh ===================================== @@ -148,7 +148,7 @@ install ${GROUP} ${OWNER} -m 0755 src/tools/load-foreign.csh src/tools/config \ $DESTDIR/lib/cmucl/lib/ install ${GROUP} ${OWNER} -m 0644 src/tools/config.lisp \ $DESTDIR/lib/cmucl/lib/ -install ${GROUP} ${OWNER} -m 0644 src/code/generic-site.lisp \ +install ${GROUP} ${OWNER} -m 0644 src/code/default-site-init.lisp \ $DESTDIR/lib/cmucl/lib/ install ${GROUP} ${OWNER} -m 0644 $TARGET/lisp/lisp.nm $TARGET/lisp/lisp.map \ $TARGET/lisp/internals.h $TARGET/lisp/internals.inc $DESTDIR/lib/cmucl/ ===================================== bin/run-unit-tests.sh ===================================== @@ -54,7 +54,7 @@ trap cleanup EXIT if [ $# -eq 0 ]; then # No args so run all the tests - $LISP -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)' + $LISP -nositeinit -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)' else # Run selected files. Convert each file name to uppercase and append "-TESTS" result="" @@ -63,6 +63,6 @@ else new=`echo $f | tr '[a-z]' '[A-Z]'` result="$result "\"$new-TESTS\" done - $LISP -noinit -load tests/run-tests.lisp -eval "(progn (cmucl-test-runner:load-test-files) (cmucl-test-runner:run-test $result))" + $LISP -nositeinit -noinit -load tests/run-tests.lisp -eval "(progn (cmucl-test-runner:load-test-files) (cmucl-test-runner:run-test $result))" fi ===================================== src/code/generic-site.lisp → src/code/default-site-init.lisp ===================================== @@ -5,28 +5,20 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: src/code/generic-site.lisp $") + "$Header: src/code/default-site-init.lisp $") ;;; ;;; ********************************************************************** ;;; -;;; This file is installed as "library:site-init" in binary -;;; distributions of CMUCL. +;;; This is the default site init file and should be installed as +;;; "library:default-site-init". This file is used only if +;;; "library:site-init" does not exist. + ;;; (in-package "SYSTEM") ;;; Put your site name here... -(setq *short-site-name* "Unknown") -(setq *long-site-name* "Site name not initialized") - -;;; We would appreciate it if each site establishes a local maintainer who can -;;; filter bug reports from novice users to make sure that they really have -;;; found a bug. Fill in the maintainer's address here.. -(when *herald-items* - (rplaca - (cdr (member :bugs *herald-items*)) - '("Send questions and bug reports to your local CMUCL maintainer, " terpri - "or see <http://www.cmucl.org/support.html>." terpri - "Loaded subsystems:" terpri))) +;; (setq *short-site-name* "Unknown") +;; (setq *long-site-name* "Site name not initialized") ;;; If you have sources installed on your system, un-comment the following form ;;; and change it to point to the source location. This will allow the Hemlock @@ -47,14 +39,6 @@ ;;; ;;; If your sources are located somewhere else, change this ;;; accordingly. -#| (setf (search-list "target:") - (list - (namestring - (make-pathname - :directory (pathname-directory - (merge-pathnames (make-pathname - :directory '(:relative :up :up - :up "src")) - (pathname lisp::*cmucl-core-path*))))))) -|# + '("library:../src/")) + ===================================== src/code/save.lisp ===================================== @@ -348,7 +348,8 @@ (when (and site-init (not (and process-command-line (find-switch "nositeinit")))) - (load site-init :if-does-not-exist nil :verbose nil)) + (or (load site-init :if-does-not-exist nil :verbose nil) + (load "library:default-site-init" :if-does-not-exist nil :verbose nil))) (when (and process-command-line (find-switch "edit")) (setf *editor-lisp-p* t)) (when (and load-init-file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f1f5768dd9f9d3d63f54e9… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f1f5768dd9f9d3d63f54e9… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-360-add-site-init] Update pot file due to removed herald item.
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed to branch issue-360-add-site-init at cmucl / cmucl Commits: 910dedd4 by Raymond Toy at 2024-12-15T18:30:37-08:00 Update pot file due to removed herald item. The herald item was removed in [814154] so we need to remove the entry in the pot file. - - - - - 1 changed file: - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6896,14 +6896,6 @@ msgstr "" msgid " on " msgstr "" -#: src/code/save.lisp -msgid "Please report issues to " -msgstr "" - -#: src/code/save.lisp -msgid "https://gitlab.common-lisp.net/cmucl/cmucl/-/issues" -msgstr "" - #: src/code/save.lisp msgid "See <http://www.cmucl.org/> for support information." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/910dedd406ca1c14c4d3267… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/910dedd406ca1c14c4d3267… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-360-add-site-init] 2 commits: Address review: Silently load site init file.
by Raymond Toy (＠rtoy) 16 Dec '24

16 Dec '24

Raymond Toy pushed to branch issue-360-add-site-init at cmucl / cmucl Commits: 98bd9a4b by Raymond Toy at 2024-12-15T18:14:43-08:00 Address review: Silently load site init file. This is how the site init file used to be loaded. Continue silently loading it. - - - - - 814154aa by Raymond Toy at 2024-12-15T18:18:39-08:00 Address review: Remove new herald item about reporting bugs Remove the new herald item saying where to report issues. That should be done in a different issue. - - - - - 1 changed file: - src/code/save.lisp Changes: ===================================== src/code/save.lisp ===================================== @@ -347,8 +347,8 @@ (when (and site-init (not (and process-command-line (find-switch "nositeinit")))) - (or (load site-init :if-does-not-exist nil :verbose t) - (load "library:default-site-init" :if-does-not-exist nil :verbose t))) + (or (load site-init :if-does-not-exist nil :verbose nil) + (load "library:default-site-init" :if-does-not-exist nil :verbose nil))) (when (and process-command-line (find-switch "edit")) (setf *editor-lisp-p* t)) (when (and load-init-file @@ -444,13 +444,7 @@ (setf (getf *herald-items* :bugs) `(,#'(lambda (stream) - (write-string (intl:gettext "Please report issues to ") - stream) - (write-string (intl:gettext "https://gitlab.common-lisp.net/cmucl/cmucl/-/issues") - stream)) - terpri - ,#'(lambda (stream) - (write-string (intl:gettext "See <http://www.cmucl.org/> for support information.") stream)) + (write-string (intl:gettext "See <http://www.cmucl.org/> for support information.") stream)) terpri ,#'(lambda (stream) (write-string (intl:gettext "Loaded subsystems:") stream)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6120d2c9e0e57b768a631b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6120d2c9e0e57b768a631b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Update docstring to mention library:default-site-init.
by Raymond Toy (＠rtoy) 13 Dec '24

13 Dec '24

Raymond Toy pushed to branch master at cmucl / cmucl Commits: cf7777cf by Raymond Toy at 2024-12-13T11:41:12-08:00 Update docstring to mention library:default-site-init. - - - - - f1f5768d by Raymond Toy at 2024-12-13T11:47:49-08:00 Update cmucl.pot file for changed docstring for default-site-init - - - - - 2 changed files: - src/code/save.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/save.lisp ===================================== @@ -236,7 +236,8 @@ :site-init If true, then the name of the site init file to load. The default is - library:site-init. No error if this does not exist. + library:site-init if it exists. If not, library:default-site-init + is used if it exists. No error if these files do not exist. :print-herald If true (the default), print out the lisp system herald when starting. ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6821,7 +6821,8 @@ msgid "" "\n" " :site-init\n" " If true, then the name of the site init file to load. The default is\n" -" library:site-init. No error if this does not exist.\n" +" library:site-init if it exists. If not, library:default-site-init\n" +" is used if it exists. No error if these files do not exist.\n" "\n" " :print-herald\n" " If true (the default), print out the lisp system herald when " View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c8020846e9730177d0475c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c8020846e9730177d0475c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs December 2024