Raymond Toy pushed to branch issue-415-add-package-local-nicknames at cmucl / cmucl Commits: 7494d5bd by Raymond Toy at 2025-06-24T06:26:02-07:00 Fix a few typos in comments and strings. - - - - - 2 changed files: - src/code/package.lisp - src/code/print.lisp Changes: ===================================== src/code/package.lisp ===================================== @@ -2019,7 +2019,7 @@ (restart-case (error 'simple-package-error :package pkg - :format-control (intl:gettext "~A as already a local nickname for the package ~A in ~A") + :format-control (intl:gettext "~A is already a local nickname for the package ~A in ~A") :format-arguments (list local-nickname actual-pkg pkg)) (keep-old-nickname () :report (lambda (stream) ===================================== src/code/print.lisp ===================================== @@ -697,7 +697,7 @@ ;; from a package other than its home package. (unless (and accessible (eq symbol object)) ;; If the actual symbol package has a local nickname in - ;; *package*, use that as the symbol name instead of the + ;; *package*, use that as the package name instead of the ;; actual symbol package name. (let ((local-nicks (package-%local-nicknames *package*)) (pkg-name (package-name package))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7494d5bd07c9253c2464aa00... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7494d5bd07c9253c2464aa00... You're receiving this email because of your account on gitlab.common-lisp.net.