May 2023 - cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][master] 2 commits: Fix #216: enough-namestring with relative pathname fails
by Raymond Toy (＠rtoy) 31 May '23

31 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 648c1127 by Raymond Toy at 2023-05-31T03:55:52+00:00 Fix #216: enough-namestring with relative pathname fails - - - - - 660ab4c5 by Raymond Toy at 2023-05-31T03:56:07+00:00 Merge branch 'issue-216-enough-namestring-relative-dir' into 'master' Fix #216: enough-namestring with relative pathname fails Closes #216 See merge request cmucl/cmucl!152 - - - - - 2 changed files: - src/code/filesys.lisp - tests/issues.lisp Changes: ===================================== src/code/filesys.lisp ===================================== @@ -610,8 +610,8 @@ ;; We are an absolute pathname, so we can just use it. pathname-directory) (t - ;; We are a relative directory. So we lose. - (lose))))) + ;; We are a relative directory, so just return it as is. + pathname-directory)))) (strings (unparse-unix-directory-list result-dir))) (let* ((pathname-version (%pathname-version pathname)) (version-needed (and pathname-version ===================================== tests/issues.lisp ===================================== @@ -977,3 +977,12 @@ (assert-true (equal (make-pathname :version :newest) (make-pathname :version :unspecific))) ) + +(define-test issue.216.enough-namestring-relative-dir + (:tag :issues) + (let ((pathname #p"foo/bar.lisp")) + (dolist (defaults '(#p"/tmp/zot/" #p"/tmp/zot/foo/")) + (let ((enough (enough-namestring pathname defaults))) + ;; This is the condition from the CLHS entry for enough-namestring + (assert-equal (merge-pathnames enough defaults) + (merge-pathnames (parse-namestring pathname nil defaults) defaults)))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/dcb8124fa472a81202ddd8… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/dcb8124fa472a81202ddd8… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Add a simple template for release notes
by Raymond Toy (＠rtoy) 29 May '23

29 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: dcb8124f by Raymond Toy at 2023-05-29T06:42:23-07:00 Add a simple template for release notes Supply a template for release notes that has the various parts to be filled in. This probably needs some tweaking. I'm no longer clear on the differences between "Changes", "ANSI compliance fixes", "Bug fixes", and "Gitlab tickets". - - - - - 1 changed file: - + src/general-info/release-template.md Changes: ===================================== src/general-info/release-template.md ===================================== @@ -0,0 +1,39 @@ +# Work in progress + +The CMUCL project is pleased to announce the release of CMUCL 21e. +This is a major release which contains numerous enhancements and bug +fixes from the <previous> release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a +source-level debugger and code profiler; and an Emacs-like editor +implemented in Common Lisp. CMUCL is maintained by a team of +volunteers collaborating over the Internet, and is mostly in the +public domain. + +## New in this release: + * Known issues: + * Feature enhancements: + * Changes: + * ANSI compliance fixes: + * Bug fixes: + * Gitlab tickets: + * Other changes: + * Improvements to the PCL implementation of CLOS: + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +<previous>; you will need to recompile FASL files. + +See http://www.cmucl.org or +https://gitlab.common-lisp.net/cmucl/cmucl for more information, +See +https://gitlab.common-lisp.net/cmucl/cmucl/wikis/GettingCmucl +for obtaining CMUCL, including sources and binaries.. + + +We hope you enjoy using this release of CMUCL! View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dcb8124fa472a81202ddd82… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dcb8124fa472a81202ddd82… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-216-enough-namestring-relative-dir
by Raymond Toy (＠rtoy) 29 May '23

29 May '23

Raymond Toy pushed new branch issue-216-enough-namestring-relative-dir at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-216-enough-namestri… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-154-piglatin-translation-doesnt-work-anymore
by Jon Boone (＠jboone) 26 May '23

26 May '23

Jon Boone pushed new branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-154-piglatin-transl… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Deleted branch 154-piglatin-translaton-doesn-t-work-anymore
by Jon Boone (＠jboone) 26 May '23

26 May '23

Jon Boone deleted branch 154-piglatin-translaton-doesn-t-work-anymore at cmucl / cmucl -- You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch 154-piglatin-translaton-doesn-t-work-anymore
by Jon Boone (＠jboone) 26 May '23

26 May '23

Jon Boone pushed new branch 154-piglatin-translaton-doesn-t-work-anymore at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/154-piglatin-translaton-d… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #228: Update ansi-tests from upstream
by Raymond Toy (＠rtoy) 24 May '23

24 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b871db2b by Raymond Toy at 2023-05-24T17:15:28+00:00 Fix #228: Update ansi-tests from upstream - - - - - 6683933b by Raymond Toy at 2023-05-24T17:15:31+00:00 Merge branch 'issue-228-update-ansi-tests' into 'master' Fix #228: Update ansi-tests from upstream Closes #228 See merge request cmucl/cmucl!150 - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -76,7 +76,7 @@ linux:ansi-test: artifacts: true before_script: - git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git - - (cd ansi-test; git checkout rtoy-cmucl-expected-failures) + - (cd ansi-test; git checkout cmucl-expected-failures) script: - cd ansi-test - make LISP="../dist/bin/lisp -batch -noinit -nositeinit" @@ -163,7 +163,7 @@ osx:ansi-test: artifacts: true before_script: - /opt/local/bin/git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git - - (cd ansi-test; /opt/local/bin/git checkout rtoy-cmucl-expected-failures) + - (cd ansi-test; /opt/local/bin/git checkout cmucl-expected-failures) script: - cd ansi-test - make LISP="../dist/bin/lisp -batch -noinit -nositeinit" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ac7d904ba06e6d3c189f00… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/ac7d904ba06e6d3c189f00… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-228-update-ansi-tests] Check out cmucl-expected-failures branch for testing
by Raymond Toy (＠rtoy) 24 May '23

24 May '23

Raymond Toy pushed to branch issue-228-update-ansi-tests at cmucl / cmucl Commits: e296a74b by Raymond Toy at 2023-05-24T09:08:50-07:00 Check out cmucl-expected-failures branch for testing This branch has the expected failures for cmucl, so switch to it for testing. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -76,7 +76,7 @@ linux:ansi-test: artifacts: true before_script: - git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git - #- (cd ansi-test; git checkout rtoy-cmucl-expected-failures) + - (cd ansi-test; git checkout cmucl-expected-failures) script: - cd ansi-test - make LISP="../dist/bin/lisp -batch -noinit -nositeinit" @@ -163,7 +163,7 @@ osx:ansi-test: artifacts: true before_script: - /opt/local/bin/git clone https://gitlab.common-lisp.net/cmucl/ansi-test.git - #- (cd ansi-test; /opt/local/bin/git checkout rtoy-cmucl-expected-failures) + - (cd ansi-test; /opt/local/bin/git checkout cmucl-expected-failures) script: - cd ansi-test - make LISP="../dist/bin/lisp -batch -noinit -nositeinit" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e296a74b04953c7766f7d16… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e296a74b04953c7766f7d16… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-228-update-ansi-tests
by Raymond Toy (＠rtoy) 24 May '23

24 May '23

Raymond Toy pushed new branch issue-228-update-ansi-tests at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-228-update-ansi-tes… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update docstring for *default-external-format*
by Raymond Toy (＠rtoy) 22 May '23

22 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ac7d904b by Raymond Toy at 2023-05-22T16:16:29-07:00 Update docstring for *default-external-format* Add a note that `*default-external-format*` is not affected by any locale settings nor by `set-system-external-format`. `set-system-external-format` already has a note that it does not affect `*default-external-format*`. - - - - - 1 changed file: - src/code/extfmts.lisp Changes: ===================================== src/code/extfmts.lisp ===================================== @@ -24,7 +24,8 @@ (defvar *default-external-format* :utf-8 "The default external format to use if no other external format is - specified") + specified. This is unaffected by any locale settings or by + SET-SYSTEM-EXTERNAL-FORMAT.") (defvar *external-formats* (make-hash-table :test 'equal) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ac7d904ba06e6d3c189f000… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ac7d904ba06e6d3c189f000… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update Version to default to hint at version 21e, the latest release.
by Raymond Toy (＠rtoy) 20 May '23

20 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: a67cb2e8 by Raymond Toy at 2023-05-20T23:43:21+00:00 Update Version to default to hint at version 21e, the latest release. - - - - - 1 changed file: - .gitlab/issue_templates/Bug.md Changes: ===================================== .gitlab/issue_templates/Bug.md ===================================== @@ -16,7 +16,7 @@ If applicable, add screenshots to help explain your problem. ## Desktop (please complete the following information): - OS: [e.g. Linux] - - Version: [e.g. 21c] + - Version: [e.g. 21e] ## Additional context Add any other context about the problem here. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a67cb2e821b8117b2e6cb07… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a67cb2e821b8117b2e6cb07… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-195b-relocatable-stacks-by-default
by Raymond Toy (＠rtoy) 17 May '23

17 May '23

Raymond Toy pushed new branch issue-195b-relocatable-stacks-by-default at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-195b-relocatable-st… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Fix a couple of compiler warnings for functions with no args
by Raymond Toy (＠rtoy) 16 May '23

16 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 95429eb4 by Raymond Toy at 2023-05-16T16:55:54-07:00 Fix a couple of compiler warnings for functions with no args The warning is: > warning: a function declaration without a prototype is deprecated in > all versions of C [-Wstrict-prototypes] So update the two places this occurs and add `void`. - - - - - 2 changed files: - src/lisp/Linux-os.c - src/lisp/validate.c Changes: ===================================== src/lisp/Linux-os.c ===================================== @@ -568,7 +568,7 @@ restore_fpu(ucontext_t *context) #ifdef i386 boolean -os_support_sse2() +os_support_sse2(void) { return TRUE; } ===================================== src/lisp/validate.c ===================================== @@ -112,7 +112,7 @@ validate(void) } void -validate_stacks() +validate_stacks(void) { /* Control Stack */ #ifdef CONTROL_STACK_START View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/95429eb4e3bb9bf86495cd3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/95429eb4e3bb9bf86495cd3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Address #195: Use relocatable stacks by default
by Raymond Toy (＠rtoy) 16 May '23

16 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 84ec62e3 by Raymond Toy at 2023-05-16T23:47:44+00:00 Address #195: Use relocatable stacks by default - - - - - 78acc885 by Raymond Toy at 2023-05-16T23:47:53+00:00 Merge branch 'issue-195-relocatable-stacks-by-default' into 'master' Address #195: Use relocatable stacks by default See merge request cmucl/cmucl!146 - - - - - 7 changed files: - .gitlab-ci.yml - src/code/sparc-svr4-vm.lisp - src/code/x86-vm.lisp - src/lisp/solaris-os.c - src/lisp/sparc-validate.h - src/lisp/x86-validate-darwin.h - src/lisp/x86-validate-linux.h Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,7 +1,7 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04" - version: "2023-04-x86" - bootstrap: "-B boot-21e" + download_url: "https://common-lisp.net/project/cmucl/downloads/release/21e" + version: "21e-x86" + bootstrap: "" stages: - install ===================================== src/code/sparc-svr4-vm.lisp ===================================== @@ -26,9 +26,6 @@ #+complex-fp-vops (sys:register-lisp-feature :complex-fp-vops) -#+(and sparc solaris) -(sys:register-lisp-runtime-feature :relocatable-stacks) - ;;;; The sigcontext structure. ===================================== src/code/x86-vm.lisp ===================================== @@ -42,9 +42,6 @@ (setf *features* (delete :x87 *features*)) (sys:register-lisp-feature :sse2)) -#+(or darwin linux) -(sys:register-lisp-runtime-feature :relocatable-stacks) - ;;;; The sigcontext structure. ===================================== src/lisp/solaris-os.c ===================================== @@ -415,10 +415,6 @@ os_vm_address_t round_up_sparse_size(os_vm_address_t addr) */ static os_vm_address_t spaces[] = { READ_ONLY_SPACE_START, STATIC_SPACE_START, -#ifndef FEATURE_RELOCATABLE_STACKS - BINDING_STACK_START, - CONTROL_STACK_START -#endif }; /* @@ -505,10 +501,8 @@ make_holes(void) void make_stack_holes(void) { -#ifdef FEATURE_RELOCATABLE_STACKS make_hole((os_vm_address_t)control_stack, control_stack_size); make_hole((os_vm_address_t)binding_stack, binding_stack_size); -#endif } void * ===================================== src/lisp/sparc-validate.h ===================================== @@ -92,22 +92,12 @@ #define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) #define READ_ONLY_SPACE_SIZE ((2*MB_128) - SPARSE_BLOCK_SIZE) /* 256 MB - 32 KB, 256 MB max */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define BINDING_STACK_START (0x20000000) -#endif - #define BINDING_STACK_SIZE (MB_128 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */ #define STATIC_SPACE_START (SpaceStart_TargetStatic) #define STATIC_SPACE_SIZE ((2*MB_128) - SPARSE_BLOCK_SIZE) /* 256 MB - 32 KB, 256 MB max */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define CONTROL_STACK_START (0x38000000) -#endif #define CONTROL_STACK_SIZE (MB_128 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */ -#if 0 -#define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) -#endif #define SIGNAL_STACK_SIZE SIGSTKSZ ===================================== src/lisp/x86-validate-darwin.h ===================================== @@ -18,24 +18,14 @@ #define STATIC_SPACE_START (SpaceStart_TargetStatic) #define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define BINDING_STACK_START (0x38000000) -#endif #define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define CONTROL_STACK_START (0x40000000) -#endif - /* * According to /usr/include/sys/signal.h, MINSIGSTKSZ is 32K and * SIGSTKSZ is 128K. We should account for that appropriately. */ #define CONTROL_STACK_SIZE (0x07fdf000) /* 128MB - SIGSTKSZ - 1 page */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define SIGNAL_STACK_START (0x47fe0000) /* One page past the end of the control stack */ -#endif #define SIGNAL_STACK_SIZE SIGSTKSZ #define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) ===================================== src/lisp/x86-validate-linux.h ===================================== @@ -63,19 +63,10 @@ #define STATIC_SPACE_START (SpaceStart_TargetStatic) #define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define BINDING_STACK_START (0x20000000) -#endif #define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ -#ifndef FEATURE_RELOCATABLE_STACKS -#define CONTROL_STACK_START 0x38000000 -#endif #define CONTROL_STACK_SIZE (0x07fff000 - 8192) -#ifndef FEATURE_RELOCATABLE_STACKS -#define SIGNAL_STACK_START CONTROL_STACK_END -#endif #define SIGNAL_STACK_SIZE SIGSTKSZ #define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e82bebb7be1f2a64228624… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e82bebb7be1f2a64228624… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-195-relocatable-stacks-by-default] Remove unused CONTROL_STACK_END that's #if'd out anyway.
by Raymond Toy (＠rtoy) 15 May '23

15 May '23

Raymond Toy pushed to branch issue-195-relocatable-stacks-by-default at cmucl / cmucl Commits: d2921059 by Carl S. Shapiro at 2023-05-15T17:35:44+00:00 Remove unused CONTROL_STACK_END that's #if'd out anyway. - - - - - 1 changed file: - src/lisp/sparc-validate.h Changes: ===================================== src/lisp/sparc-validate.h ===================================== @@ -98,9 +98,6 @@ #define STATIC_SPACE_SIZE ((2*MB_128) - SPARSE_BLOCK_SIZE) /* 256 MB - 32 KB, 256 MB max */ #define CONTROL_STACK_SIZE (MB_128 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */ -#if 0 -#define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) -#endif #define SIGNAL_STACK_SIZE SIGSTKSZ View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d2921059728fbc45b568602… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d2921059728fbc45b568602… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-195-relocatable-stacks-by-default] 12 commits: Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
by Raymond Toy (＠rtoy) 15 May '23

15 May '23

Raymond Toy pushed to branch issue-195-relocatable-stacks-by-default at cmucl / cmucl Commits: 6162e5b4 by Jon Boone at 2023-05-09T17:38:36+00:00 Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN - - - - - e472bd4f by Jon Boone at 2023-05-09T17:38:47+00:00 Merge branch 'issue-143-ansi-compliance-failure-listen-extra-argument' into 'master' Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN Closes #143 See merge request cmucl/cmucl!145 - - - - - a4c000f9 by Raymond Toy at 2023-05-10T11:48:33-07:00 Update cmucl.pot Issue #143 updated a docstring so the pot file needs updating. - - - - - ee480fbf by Raymond Toy at 2023-05-10T11:49:20-07:00 Update release notes Issue #143 has been fixed. - - - - - 7774063f by Raymond Toy at 2023-05-12T16:28:16-07:00 Update pot files for Darwin - - - - - d53c9575 by Raymond Toy at 2023-05-12T16:43:51-07:00 Update cmucl.pot and cmucl-unix.pot for Linux See also #223. - - - - - d533ca2c by Raymond Toy at 2023-05-13T07:02:39-07:00 Update file version to 21e Add the required bootstrap file and update CI to use it. - - - - - 28167cf6 by Raymond Toy at 2023-05-13T07:05:04-07:00 Update all translations - - - - - e82bebb7 by Raymond Toy at 2023-05-13T17:29:42-07:00 Update release notes for 21e. Basically just remove the WIP section title. - - - - - 8410b57a by Raymond Toy at 2023-05-13T19:38:33-07:00 Update for release-21e builds. - - - - - 94eed5eb by Raymond Toy at 2023-05-15T09:52:39-07:00 Merge branch 'master' into issue-195-relocatable-stacks-by-default - - - - - 204ef2fc by Raymond Toy at 2023-05-15T10:31:48-07:00 Remove :relocatable-stacks from *features* - - - - - 18 changed files: - .gitlab-ci.yml - + src/bootfiles/21d/boot-21e.lisp - src/code/sparc-svr4-vm.lisp - src/code/stream.lisp - src/code/x86-vm.lisp - src/compiler/byte-comp.lisp - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,6 +1,6 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04" - version: "2023-04-x86" + download_url: "https://common-lisp.net/project/cmucl/downloads/release/21e" + version: "21e-x86" bootstrap: "" stages: ===================================== src/bootfiles/21d/boot-21e.lisp ===================================== @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 21e. +;;;; + +(in-package :c) + +(setf lisp::*enable-package-locked-errors* nil) + +;;; +;;; Note that BYTE-FASL-FILE-VERSION is a constant. +;;; +;;; (Be sure to change BYTE-FASL-FILE-VERSION in +;;; compiler/byte-comp.lisp to the correct value too!) +;;; +#-cmu21e +(setf (symbol-value 'byte-fasl-file-version) #x21e) +#-cmu21e +(setf (backend-fasl-file-version *target-backend*) #x21e) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu21e +(setq lisp::*skip-fasl-file-version-check* t) + +;;; +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in +;;; OPEN-FASL-FILE. To make the new version number take effect, we +;;; have to redefine the function. +;;; +#-cmu21e +(defun open-fasl-file (name where &optional byte-p) + (declare (type pathname name)) + (let* ((stream (open name :direction :output + :if-exists :new-version + :element-type '(unsigned-byte 8) + :class 'binary-text-stream)) + (res (make-fasl-file :stream stream))) + (multiple-value-bind + (version f-vers f-imp) + (if byte-p + (values "Byte code" + byte-fasl-file-version + (backend-byte-fasl-file-implementation *backend*)) + (values (backend-version *backend*) + (backend-fasl-file-version *backend*) + (backend-fasl-file-implementation *backend*))) + (format stream + "FASL FILE output from ~A.~@ + Compiled ~A on ~A~@ + Compiler ~A, Lisp ~A~@ + Targeted for ~A, FASL version ~X~%" + where + (ext:format-universal-time nil (get-universal-time)) + (machine-instance) compiler-version + (lisp-implementation-version) + version f-vers) + ;; + ;; Terminate header. + (dump-byte 255 res) + ;; + ;; Specify code format. + (dump-fop 'lisp::fop-long-code-format res) + (dump-byte f-imp res) + (dump-unsigned-32 f-vers res)) + res)) + ===================================== src/code/sparc-svr4-vm.lisp ===================================== @@ -26,9 +26,6 @@ #+complex-fp-vops (sys:register-lisp-feature :complex-fp-vops) -#+(and sparc solaris) -(sys:register-lisp-runtime-feature :relocatable-stacks) - ;;;; The sigcontext structure. ===================================== src/code/stream.lisp ===================================== @@ -604,19 +604,34 @@ :skipped-char-form () :eof-detected-form (eof-or-lose stream eof-errorp eof-value)))))) -(defun listen (&optional (stream *standard-input*) (width 1)) - "Returns T if a character is available on the given Stream." +(defun listen (&optional (stream *standard-input*) (width 1 width-p)) + _N"Returns T if a character is available on the given Stream. + Argument Width is only used by instances of SIMPLE-STREAM. If + Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more + than one argument is invalid." (declare (type streamlike stream)) (let ((stream (in-synonym-of stream))) (stream-dispatch stream ;; simple-stream (stream::%listen stream width) ;; lisp-stream - (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) - ;; Test for t explicitly since misc methods return :eof sometimes. - (eq (funcall (lisp-stream-misc stream) stream :listen) t)) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) + ;; Test for t explicitly since misc methods return :eof sometimes. + (eq (funcall (lisp-stream-misc stream) stream :listen) t))) ;; fundamental-stream - (stream-listen stream)))) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (stream-listen stream))))) (defun read-char-no-hang (&optional (stream *standard-input*) (eof-errorp t) eof-value recursive-p) ===================================== src/code/x86-vm.lisp ===================================== @@ -42,9 +42,6 @@ (setf *features* (delete :x87 *features*)) (sys:register-lisp-feature :sse2)) -#+(or darwin linux) -(sys:register-lisp-runtime-feature :relocatable-stacks) - ;;;; The sigcontext structure. ===================================== src/compiler/byte-comp.lisp ===================================== @@ -38,7 +38,7 @@ ;; 0-9 followed by a single hex digit in the range a-f. Then the ;; version looks like a decimal number followed by a minor release ;; letter of a to f. -(defconstant byte-fasl-file-version #x21d) +(defconstant byte-fasl-file-version #x21e) (let* ((version-string (format nil "~X" byte-fasl-file-version))) ;; Add :cmu<n> to *features* ===================================== src/general-info/release-21e.md ===================================== @@ -1,7 +1,5 @@ # CMUCL 21e -## Work in progress - The CMUCL project is pleased to announce the release of CMUCL 21e. This is a major release which contains numerous enhancements and bug fixes from the 21d release. @@ -64,6 +62,7 @@ public domain. * ~~#140~~ External format for streams that are not `file-stream`'s. * ~~#141~~ Disallow locales that are pathnames to a localedef file. * ~~#142~~ `(random 0)` signals incorrect error. + * ~~#143~~ `LISTEN` doesn't signal error when given more than one arg * ~~#147~~ `stream-line-column` method missing for `fundamental-character-output-stream`. * ~~#149~~ Call setlocale(3C) on startup. * ~~#150~~ Add aliases for external format cp949 and euckr. ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -7024,7 +7024,15 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." +msgstr "" + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" msgstr "" #: src/code/stream.lisp @@ -10912,10 +10920,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po ===================================== @@ -16,24 +16,10 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" -#: src/code/bsd-os.lisp -msgid "Version string for supporting software" -msgstr "Ersionvay ingstray orfay upportingsay oftwaresay" - -#: src/code/bsd-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " -"oftwaresay." - #: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." -#: src/code/bsd-os.lisp -msgid "Getpagesize failed: ~A" -msgstr "Etpagesizegay ailedfay: ~Away" - #: src/code/signal.lisp msgid "Emt instruction" msgstr "Emtway instructionway" @@ -41,3 +27,14 @@ msgstr "Emtway instructionway" #: src/code/signal.lisp msgid "Bad argument to system call" msgstr "Adbay argumentway otay ystemsay allcay" + +#~ msgid "Version string for supporting software" +#~ msgstr "Ersionvay ingstray orfay upportingsay oftwaresay" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "" +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " +#~ "oftwaresay." + +#~ msgid "Getpagesize failed: ~A" +#~ msgstr "Etpagesizegay ailedfay: ~Away" ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po ===================================== @@ -16,16 +16,6 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" -#: src/code/linux-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " -"oftwaresay." - -#: src/code/linux-os.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." - #: src/code/linux-os.lisp msgid "Getpagesize failed: ~A" msgstr "Etpagesizegay ailedfay: ~Away" @@ -33,3 +23,11 @@ msgstr "Etpagesizegay ailedfay: ~Away" #: src/code/signal.lisp msgid "Stack fault on coprocessor" msgstr "Tacksay aultfay onway oprocessorcay" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "" +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " +#~ "oftwaresay." + +#~ msgid "Unix system call getrusage failed: ~A." +#~ msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po ===================================== @@ -16,6 +16,15 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" +#: src/code/unix.lisp +msgid "" +"The encoding to use for converting a namestring to a string that can\n" +" be used by the operations system. It must be a valid\n" +" external-format name or :NULL. :NULL means the string\n" +" is passed as is to the operating system. The operating system will\n" +" get the low 8 bits of each UTF-16 code unit of the string." +msgstr "" + #: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "Yscallsay ~Away ailedfay: ~Away" @@ -659,12 +668,6 @@ msgstr "" "ethay\n" " urrentcay ocesspray." -#: src/code/unix.lisp -msgid "Unix-getpagesize returns the number of bytes in a system page." -msgstr "" -"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away " -"ystemsay agepay." - #: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" @@ -700,34 +703,69 @@ msgstr "Izesay ofway ontrolcay aracterchay ectorvay." #: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" -" file returning them in the form of multiple values.\n" -" See the UNIX Programmer's Manual for a description\n" -" of the values returned. If the call fails, then NIL\n" -" and an error number is returned instead." +" file returning them in the form of multiple values. If the call\n" +" fails, then NIL and an error number is returned. If the call\n" +" succeeds, then T is returned in addition to the following values\n" +" from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n" -" ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n" -" Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n" -" ofway ethay aluesvay eturnedray. Ifway ethay allcay ailsfay, enthay NIL\n" -" andway anway errorway umbernay isway eturnedray insteadway." #: src/code/unix.lisp msgid "" -"Unix-lstat is similar to unix-stat except the specified\n" -" file must be a symbolic link." +"Unix-fstat is similar to unix-stat except the file is specified\n" +" by the file descriptor fd. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay " -"ecifiedspay\n" -" ilefay ustmay ebay away ymbolicsay inklay." #: src/code/unix.lisp msgid "" -"Unix-fstat is similar to unix-stat except the file is specified\n" -" by the file descriptor fd." +"Unix-lstat is similar to unix-stat except the specified\n" +" file must be a symbolic link. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay ilefay " -"isway ecifiedspay\n" -" ybay ethay ilefay escriptorday dfay." #: src/code/unix.lisp msgid "The calling process." @@ -1598,6 +1636,14 @@ msgstr "" "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay " "UID, orway NIL ifway otnay oundfay." +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" @@ -1686,6 +1732,57 @@ msgstr "" "andway anway errorway umbernay ifway itway\n" " oesnday't orkway." +#: src/code/unix.lisp +msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgstr "" + +#: src/code/unix.lisp +msgid "" +"Get LC_MESSAGES from the current locale. If we can't, return\n" +" NIL. A call to UNIX-SETLOCALE must have been done previously before\n" +" calling this so that the correct locale is returned." +msgstr "" + +#: src/code/unix.lisp +msgid "Get the codeset from the locale" +msgstr "" + +#~ msgid "Unix-getpagesize returns the number of bytes in a system page." +#~ msgstr "" +#~ "Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away " +#~ "ystemsay agepay." + +#~ msgid "" +#~ "Unix-stat retrieves information about the specified\n" +#~ " file returning them in the form of multiple values.\n" +#~ " See the UNIX Programmer's Manual for a description\n" +#~ " of the values returned. If the call fails, then NIL\n" +#~ " and an error number is returned instead." +#~ msgstr "" +#~ "Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n" +#~ " ilefay eturningray emthay inway ethay ormfay ofway ultiplemay " +#~ "aluesvay.\n" +#~ " Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n" +#~ " ofway ethay aluesvay eturnedray. Ifway ethay allcay ailsfay, enthay " +#~ "NIL\n" +#~ " andway anway errorway umbernay isway eturnedray insteadway." + +#~ msgid "" +#~ "Unix-lstat is similar to unix-stat except the specified\n" +#~ " file must be a symbolic link." +#~ msgstr "" +#~ "Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay " +#~ "ecifiedspay\n" +#~ " ilefay ustmay ebay away ymbolicsay inklay." + +#~ msgid "" +#~ "Unix-fstat is similar to unix-stat except the file is specified\n" +#~ " by the file descriptor fd." +#~ msgstr "" +#~ "Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay " +#~ "ilefay isway ecifiedspay\n" +#~ " ybay ethay ilefay escriptorday dfay." + #~ msgid "" #~ "Set the user ID of the calling process to UID.\n" #~ " If the calling process is the super-user, set the real\n" ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po ===================================== @@ -187,6 +187,10 @@ msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S." msgid "Class not yet defined: ~S" msgstr "Assclay otnay etyay efinedday: ~S" +#: src/compiler/x86/insts.lisp +msgid "Sign extend the N-bit number X" +msgstr "" + #: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=." ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po ===================================== @@ -405,9 +405,11 @@ msgstr "" "Unctionsfay otay ebay invokedway uringday eanupclay atway Isplay exitway." #: src/code/lispinit.lisp +#, fuzzy msgid "" -"Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" -" non-Nil." +"Terminates the current Lisp. Things are cleaned up unless\n" +" Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" +" Code, defaulting to 0." msgstr "" "Erminatestay ethay urrentcay Isplay. Ingsthay areway eanedclay upway " "unlessway Ecklesslyray-P isway\n" @@ -1530,8 +1532,8 @@ msgid "" "\t\t ~A definition." msgstr "" "Inway assclay ~S:~% ~\n" -"\t\t ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway ithway~" -"% ~\n" +"\t\t ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway " +"ithway~% ~\n" "\t\t ~Away efinitionday." #: src/code/class.lisp @@ -5713,6 +5715,13 @@ msgstr "" "ormalizednay, ethay originalway\n" " ingstray isway eturnedray." +#: src/code/string.lisp +msgid "" +"Convert STRING to NFD (or NFKD). If :darwinp is non-NIL, then\n" +" characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n" +" are not decomposed, as specified for Darwin pathnames." +msgstr "" + #: src/code/string.lisp msgid "" "Convert a sequence of codepoints to a string. Codepoints outside\n" @@ -8002,22 +8011,6 @@ msgstr "" "ecifiedspay adixray. Eturnsray\n" " NIL ifway onay uchsay aracterchay existsway." -#: src/code/misc.lisp -msgid "" -"Returns the documentation string of Doc-Type for X, or NIL if\n" -" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" -" SETF, and T." -msgstr "" -"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway " -"NIL ifway\n" -" onenay existsway. Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, " -"STRUCTURE, TYPE,\n" -" SETF, andway T." - -#: src/code/misc.lisp -msgid "~S is not the name of a structure type." -msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay." - #: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" @@ -8057,16 +8050,22 @@ msgstr "Ethay aluevay ofway SOFTWARE-TYPE. Etsay inway FOO-osway.isplay." msgid "Returns a string describing the supporting software." msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." +#: src/code/misc.lisp +#, fuzzy +msgid "Version string for supporting software" +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." + +#: src/code/misc.lisp +#, fuzzy +msgid "Returns a string describing version of the supporting software." +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." + #: src/code/misc.lisp msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" "Ethay aluevay ofway SHORT-SITE-NAME. Etsay inway ibrarylay:itesay-initway." "isplay." -#: src/code/misc.lisp -msgid "Unknown" -msgstr "Unknownway" - #: src/code/misc.lisp msgid "Returns a string with the abbreviated site name." msgstr "Eturnsray away ingstray ithway ethay abbreviatedway itesay amenay." @@ -8077,10 +8076,6 @@ msgstr "" "Ethay aluevay ofway LONG-SITE-NAME. Etsay inway ibrarylay:itesay-initway." "isplay." -#: src/code/misc.lisp -msgid "Site name not initialized" -msgstr "Itesay amenay otnay initializedway" - #: src/code/misc.lisp msgid "Returns a string with the long form of the site name." msgstr "" @@ -8113,13 +8108,16 @@ msgstr "" " oadedlay, edway ancay ebay usedway otay editway away ilefay" #: src/code/misc.lisp +#, fuzzy msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " "If\n" " it is not already compiled, the compiler is called to produce something " "to\n" -" disassemble." +" disassemble.\n" +"\n" +" Also see disassem:disassemble for finer control of disassembly." msgstr "" "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay " "ancay ebay away\n" @@ -8129,6 +8127,22 @@ msgstr "" "otay oducepray omethingsay otay\n" " isassembleday." +#: src/code/misc-doc.lisp +msgid "" +"Returns the documentation string of Doc-Type for X, or NIL if\n" +" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" +" SETF, and T." +msgstr "" +"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway " +"NIL ifway\n" +" onenay existsway. Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, " +"STRUCTURE, TYPE,\n" +" SETF, andway T." + +#: src/code/misc-doc.lisp +msgid "~S is not the name of a structure type." +msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay." + #: src/code/extensions.lisp msgid "" "This function can be used as the default value for keyword arguments that\n" @@ -8864,6 +8878,15 @@ msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway" msgid "Same as -help." msgstr "Amesay asway -elphay." +#: src/code/commandline.lisp +#, fuzzy +msgid "Prints the cmucl version and exits" +msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway" + +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits; same as -version" +msgstr "" + #: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" @@ -9114,8 +9137,8 @@ msgstr "" #: src/code/room.lisp msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%" msgstr "" -"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway (~D" -"%).~%" +"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway " +"(~D%).~%" #: src/code/room.lisp msgid "Bogus type: ~D" @@ -9128,21 +9151,24 @@ msgstr "~:D ordsway allocatedway orfay escriptorday objectsway.~%" #: src/code/room.lisp msgid "~:D bytes data/~:D words header for non-descriptor objects.~%" msgstr "" -"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway.~" -"%" +"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway." +"~%" #: src/code/room.lisp msgid "" -"Print a breakdown by instance type of all the instances allocated in\n" -" Space. If TOP-N is true, print only information for the the TOP-N types " -"with\n" -" largest usage." +"Print a breakdown by instance type of all the allocation in Space. \n" +"\n" +" :TOP-N \n" +" If true, print only the TOP-N types by largest usage.\n" +"\n" +" :ENTRIES-VAR\n" +" If bound, contains the name of the symbol used to store the hash-" +"table\n" +" of allocated entries for later processing.\n" +"\n" +" :CALL-SOURCE\n" +" A string identifying the location from which instance-usage was called." msgstr "" -"Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay " -"instancesway allocatedway inway\n" -" Acespay. Ifway TOP-N isway uetray, intpray onlyway informationway orfay " -"ethay ethay TOP-N ypestay ithway\n" -" argestlay usageway." #: src/code/room.lisp msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%" @@ -9670,6 +9696,12 @@ msgstr "" "Isthay isway uetray ifway andway onlyway ifway ethay isplay asway tartedsay " "ithway ethay -editway witchsay." +#: src/code/save.lisp +msgid "" +"Add external format alias for :locale to the format specified by\n" +" the locale as set by setlocale(3C)." +msgstr "" + #: src/code/save.lisp #, fuzzy msgid "" @@ -10083,10 +10115,16 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "Impossibleway asecay eachedray inway PEEK-CHAR" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." msgstr "" -"Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay " -"Eamstray." + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" +msgstr "Invalidway umbernay ofway argumentsway: ~S" #: src/code/stream.lisp msgid "Returns the next character from the Stream if one is available, or nil." @@ -11997,8 +12035,8 @@ msgid "" "\t results in name conflicts with these packages:~%~{~A ~}" msgstr "" "Exportingway esethay ymbolssay omfray ethay ~Away ackagepay:~%~S~%~\n" -"\t esultsray inway amenay onflictscay ithway esethay ackagespay:~" -"%~{~Away ~}" +"\t esultsray inway amenay onflictscay ithway esethay ackagespay:" +"~%~{~Away ~}" #: src/code/package.lisp msgid "Unintern conflicting symbols." @@ -14749,8 +14787,8 @@ msgstr "Oadlay itway asway away ourcesay ilefay." #: src/code/load.lisp msgid "File has a fasl file type, but no fasl file header:~% ~S" msgstr "" -"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:~" -"% ~S" +"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:" +"~% ~S" #: src/code/load.lisp msgid "" @@ -14850,6 +14888,12 @@ msgstr "" msgid "*load-verbose* is bound to this before loading files." msgstr "*load-verbose* isway oundbay otay isthay eforebay oadinglay ilesfay." +#: src/code/module.lisp +msgid "" +"Provider functions for cmucl modules and libraries. These are\n" +" searched first before trying *module-provider-functions*" +msgstr "" + #: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "Eesay unctionfay ocumentationday orfay REQUIRE" @@ -15556,10 +15600,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "Unknownway errorway:~{ ~S~})" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "Invalidway umbernay ofway argumentsway: ~S" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "Attemptway otay useway VALUES-LIST onway away ottedday-istlay:~% ~S" @@ -15625,8 +15665,8 @@ msgstr "Internalway errorway ~D: ~Away. argsway=~S" msgid "" "~2&~@<A control stack overflow has occurred:~%~\n" " the program has entered the yellow control stack guard zone.~%~\n" -" Please note that you will be returned to the Top-Level if you~" -"%~\n" +" Please note that you will be returned to the Top-Level if " +"you~%~\n" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" "~2&~@<Away ontrolcay tacksay overflowway ashay occurredway:~%~\n" @@ -15644,16 +15684,16 @@ msgid "" " Returning to Top-Level.~@:>~2%" msgstr "" "~2&~@<Atalfay ontrolcay tacksay overflowway. Ouyay avehay enteredway~%~\n" -" ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday.~" -"%~\n" +" ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday." +"~%~\n" " Eturningray otay Optay-Evellay.~@:>~2%" #: src/code/interr.lisp msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" -" Please note that you will be returned to the Top-Level without~" -"%~\n" +" Please note that you will be returned to the Top-Level " +"without~%~\n" " warning if you run out of space while debugging.~@:>~%" msgstr "" "~2&~@<Imminentway ynamicday acespay overflowway ashay occurredway:~%~\n" @@ -19538,8 +19578,8 @@ msgstr "" "ouldshay ebay away\n" "istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay. " "Eythay illway ebay\n" -"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-clay" -"\", i.e., ethay C\n" +"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-" +"clay\", i.e., ethay C\n" "ibrarylay. Ethay BASE-FILE argumentway isway usedway otay ecifyspay away " "ilefay otay useway asway\n" "ethay tartingsay aceplay orfay efinedday ymbolssay. Ethay efaultday isway " @@ -20335,8 +20375,8 @@ msgstr "" "Incompatiblyway edefiningray otsslay ofway ucturestray assclay ~S~@\n" "\t Akemay uresay anyway usesway ofway affectedway accessorsway areway " "ecompiledray:~@\n" -"\t ~@[ Esethay otsslay ereway ovedmay otay ewnay ositionspay:~% ~S~" -"%~]~\n" +"\t ~@[ Esethay otsslay ereway ovedmay otay ewnay ositionspay:~% " +"~S~%~]~\n" "\t ~@[ Esethay otsslay avehay ewnay incompatibleway ypestay:~% ~S~%~]~\n" "\t ~@[ Esethay otsslay ereway eletedday:~% ~S~%~]" @@ -21750,6 +21790,23 @@ msgstr "" "odifiablemay aracterschay\n" " elimitedday ybay onnay-asecay-odifiablemay arschay. " +#: src/code/unicode.lisp +msgid "" +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n" +" of conjoining jamo and print the decomposed result to the stream\n" +" STREAM." +msgstr "" + +#: src/code/unicode.lisp +msgid "Test if CODEPOINT is a Hangul syllable" +msgstr "" + +#: src/code/unicode.lisp +msgid "" +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n" +" conjoining jamo characters." +msgstr "" + #: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" @@ -23094,8 +23151,8 @@ msgid "" "\t conflicts with the definition's result type assertion:~% ~S" msgstr "" "Ethay esultray ypetay omfray ~Away:~% ~S~@\n" -"\t onflictscay ithway ethay efinitionday's esultray ypetay assertionway:~" -"% ~S" +"\t onflictscay ithway ethay efinitionday's esultray ypetay assertionway:" +"~% ~S" #: src/compiler/ctype.lisp msgid "" @@ -25107,6 +25164,11 @@ msgid "Can't make a compiled function from ~S" msgstr "Ancay't akemay away ompiledcay unctionfay omfray ~S" #: src/compiler/disassem.lisp +msgid "Default value for :radix argument for disassem:disassemble" +msgstr "" + +#: src/compiler/disassem.lisp +#, fuzzy msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " @@ -25124,7 +25186,7 @@ msgid "" " :Radix\n" " The disassembler uses the specified base, case, and radix when\n" " printing the disassembled code. The default values are 16,\n" -" :downcase, and *print-radix*, respectively." +" :downcase, and *disassemble-print-radix*, respectively." msgstr "" "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay " "ancay ebay away\n" @@ -27979,8 +28041,8 @@ msgid "" msgstr "" "~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay " "ethay~@\n" -"\t ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:~" -"% ~S~@\n" +"\t ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:" +"~% ~S~@\n" "\t\t~:[ichwhay annotcay ebay oercedcay orway oadedlay intoway ethay " "allowedway Sscay:~\n" "\t\t~% ~S~;~*~]~:[~;~@\n" @@ -28014,8 +28076,8 @@ msgstr "" "~\n" "\t ~% ~S~%Imitivepray ypetay: ~S~@\n" "\t\tSC estrictionsray:~% ~S~@\n" -"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~% ~S~" -"%~]~\n" +"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~% " +"~S~%~]~\n" "\t\t~@[Onay ovemay Opsvay areway efinedday otay oercecay otay esethay " "allowedway Sscay:~\n" "\t\t~% ~S~%~]~\n" @@ -31016,6 +31078,29 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." +#~ msgid "Unknown" +#~ msgstr "Unknownway" + +#~ msgid "Site name not initialized" +#~ msgstr "Itesay amenay otnay initializedway" + +#~ msgid "" +#~ "Print a breakdown by instance type of all the instances allocated in\n" +#~ " Space. If TOP-N is true, print only information for the the TOP-N " +#~ "types with\n" +#~ " largest usage." +#~ msgstr "" +#~ "Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay " +#~ "instancesway allocatedway inway\n" +#~ " Acespay. Ifway TOP-N isway uetray, intpray onlyway informationway " +#~ "orfay ethay ethay TOP-N ypestay ithway\n" +#~ " argestlay usageway." + +#~ msgid "Returns T if a character is available on the given Stream." +#~ msgstr "" +#~ "Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay " +#~ "Eamstray." + #~ msgid "Shouldn't happen" #~ msgstr "Ouldnshay't appenhay" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po ===================================== @@ -15,22 +15,10 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: src/code/bsd-os.lisp -msgid "Version string for supporting software" -msgstr "소프트 웨어를 지원하기위한 버전 문자열" - -#: src/code/bsd-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다." - #: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급." -#: src/code/bsd-os.lisp -msgid "Getpagesize failed: ~A" -msgstr "Getpagesize 실패: ~ A 등급" - #: src/code/signal.lisp msgid "Emt instruction" msgstr "" @@ -38,3 +26,12 @@ msgstr "" #: src/code/signal.lisp msgid "Bad argument to system call" msgstr "" + +#~ msgid "Version string for supporting software" +#~ msgstr "소프트 웨어를 지원하기위한 버전 문자열" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다." + +#~ msgid "Getpagesize failed: ~A" +#~ msgstr "Getpagesize 실패: ~ A 등급" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po ===================================== @@ -15,14 +15,6 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: src/code/linux-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" - -#: src/code/linux-os.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "" - #: src/code/linux-os.lisp msgid "Getpagesize failed: ~A" msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po ===================================== @@ -15,6 +15,15 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/code/unix.lisp +msgid "" +"The encoding to use for converting a namestring to a string that can\n" +" be used by the operations system. It must be a valid\n" +" external-format name or :NULL. :NULL means the string\n" +" is passed as is to the operating system. The operating system will\n" +" get the low 8 bits of each UTF-16 code unit of the string." +msgstr "" + #: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "" @@ -461,10 +470,6 @@ msgid "" " current process." msgstr "" -#: src/code/unix.lisp -msgid "Unix-getpagesize returns the number of bytes in a system page." -msgstr "" - #: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" @@ -489,22 +494,68 @@ msgstr "" #: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" -" file returning them in the form of multiple values.\n" -" See the UNIX Programmer's Manual for a description\n" -" of the values returned. If the call fails, then NIL\n" -" and an error number is returned instead." +" file returning them in the form of multiple values. If the call\n" +" fails, then NIL and an error number is returned. If the call\n" +" succeeds, then T is returned in addition to the following values\n" +" from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp msgid "" -"Unix-lstat is similar to unix-stat except the specified\n" -" file must be a symbolic link." +"Unix-fstat is similar to unix-stat except the file is specified\n" +" by the file descriptor fd. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp msgid "" -"Unix-fstat is similar to unix-stat except the file is specified\n" -" by the file descriptor fd." +"Unix-lstat is similar to unix-stat except the specified\n" +" file must be a symbolic link. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp @@ -1302,6 +1353,14 @@ msgid "" "found." msgstr "" +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" @@ -1353,3 +1412,18 @@ msgid "" " of the child in the parent if it works, or NIL and an error number if it\n" " doesn't work." msgstr "" + +#: src/code/unix.lisp +msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgstr "" + +#: src/code/unix.lisp +msgid "" +"Get LC_MESSAGES from the current locale. If we can't, return\n" +" NIL. A call to UNIX-SETLOCALE must have been done previously before\n" +" calling this so that the correct locale is returned." +msgstr "" + +#: src/code/unix.lisp +msgid "Get the codeset from the locale" +msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po ===================================== @@ -144,6 +144,10 @@ msgstr "" msgid "Class not yet defined: ~S" msgstr "" +#: src/compiler/x86/insts.lisp +msgid "Sign extend the N-bit number X" +msgstr "" + #: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl.po ===================================== @@ -312,8 +312,9 @@ msgstr "" #: src/code/lispinit.lisp msgid "" -"Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" -" non-Nil." +"Terminates the current Lisp. Things are cleaned up unless\n" +" Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" +" Code, defaulting to 0." msgstr "" #: src/code/lispinit.lisp @@ -4013,6 +4014,13 @@ msgid "" " string is returned." msgstr "" +#: src/code/string.lisp +msgid "" +"Convert STRING to NFD (or NFKD). If :darwinp is non-NIL, then\n" +" characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n" +" are not decomposed, as specified for Darwin pathnames." +msgstr "" + #: src/code/string.lisp msgid "" "Convert a sequence of codepoints to a string. Codepoints outside\n" @@ -5601,17 +5609,6 @@ msgid "" " NIL if no such character exists." msgstr "" -#: src/code/misc.lisp -msgid "" -"Returns the documentation string of Doc-Type for X, or NIL if\n" -" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" -" SETF, and T." -msgstr "" - -#: src/code/misc.lisp -msgid "~S is not the name of a structure type." -msgstr "" - #: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" @@ -5647,23 +5644,23 @@ msgid "Returns a string describing the supporting software." msgstr "" #: src/code/misc.lisp -msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." +msgid "Version string for supporting software" msgstr "" #: src/code/misc.lisp -msgid "Unknown" +msgid "Returns a string describing version of the supporting software." msgstr "" #: src/code/misc.lisp -msgid "Returns a string with the abbreviated site name." +msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" #: src/code/misc.lisp -msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." +msgid "Returns a string with the abbreviated site name." msgstr "" #: src/code/misc.lisp -msgid "Site name not initialized" +msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." msgstr "" #: src/code/misc.lisp @@ -5694,7 +5691,20 @@ msgid "" "If\n" " it is not already compiled, the compiler is called to produce something " "to\n" -" disassemble." +" disassemble.\n" +"\n" +" Also see disassem:disassemble for finer control of disassembly." +msgstr "" + +#: src/code/misc-doc.lisp +msgid "" +"Returns the documentation string of Doc-Type for X, or NIL if\n" +" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" +" SETF, and T." +msgstr "" + +#: src/code/misc-doc.lisp +msgid "~S is not the name of a structure type." msgstr "" #: src/code/extensions.lisp @@ -6145,6 +6155,14 @@ msgstr "" msgid "Same as -help." msgstr "" +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits" +msgstr "" + +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits; same as -version" +msgstr "" + #: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" @@ -6334,10 +6352,18 @@ msgstr "" #: src/code/room.lisp msgid "" -"Print a breakdown by instance type of all the instances allocated in\n" -" Space. If TOP-N is true, print only information for the the TOP-N types " -"with\n" -" largest usage." +"Print a breakdown by instance type of all the allocation in Space. \n" +"\n" +" :TOP-N \n" +" If true, print only the TOP-N types by largest usage.\n" +"\n" +" :ENTRIES-VAR\n" +" If bound, contains the name of the symbol used to store the hash-" +"table\n" +" of allocated entries for later processing.\n" +"\n" +" :CALL-SOURCE\n" +" A string identifying the location from which instance-usage was called." msgstr "" #: src/code/room.lisp @@ -6722,6 +6748,12 @@ msgstr "" msgid "This is true if and only if the lisp was started with the -edit switch." msgstr "" +#: src/code/save.lisp +msgid "" +"Add external format alias for :locale to the format specified by\n" +" the locale as set by setlocale(3C)." +msgstr "" + #: src/code/save.lisp msgid "" "Saves a CMU Common Lisp core image in the file of the specified name. The\n" @@ -7008,7 +7040,15 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." +msgstr "" + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" msgstr "" #: src/code/stream.lisp @@ -10412,6 +10452,12 @@ msgstr "" msgid "*load-verbose* is bound to this before loading files." msgstr "" +#: src/code/module.lisp +msgid "" +"Provider functions for cmucl modules and libraries. These are\n" +" searched first before trying *module-provider-functions*" +msgstr "" + #: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "" @@ -10897,10 +10943,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" @@ -10956,8 +10998,8 @@ msgstr "" msgid "" "~2&~@<A control stack overflow has occurred:~%~\n" " the program has entered the yellow control stack guard zone.~%~\n" -" Please note that you will be returned to the Top-Level if you~" -"%~\n" +" Please note that you will be returned to the Top-Level if " +"you~%~\n" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" @@ -10972,8 +11014,8 @@ msgstr "" msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" -" Please note that you will be returned to the Top-Level without~" -"%~\n" +" Please note that you will be returned to the Top-Level " +"without~%~\n" " warning if you run out of space while debugging.~@:>~%" msgstr "" @@ -15268,6 +15310,23 @@ msgid "" " delimited by non-case-modifiable chars. " msgstr "" +#: src/code/unicode.lisp +msgid "" +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n" +" of conjoining jamo and print the decomposed result to the stream\n" +" STREAM." +msgstr "" + +#: src/code/unicode.lisp +msgid "Test if CODEPOINT is a Hangul syllable" +msgstr "" + +#: src/code/unicode.lisp +msgid "" +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n" +" conjoining jamo characters." +msgstr "" + #: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" @@ -17366,6 +17425,10 @@ msgstr "" msgid "Can't make a compiled function from ~S" msgstr "" +#: src/compiler/disassem.lisp +msgid "Default value for :radix argument for disassem:disassemble" +msgstr "" + #: src/compiler/disassem.lisp msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" @@ -17384,7 +17447,7 @@ msgid "" " :Radix\n" " The disassembler uses the specified base, case, and radix when\n" " printing the disassembled code. The default values are 16,\n" -" :downcase, and *print-radix*, respectively." +" :downcase, and *disassemble-print-radix*, respectively." msgstr "" #: src/compiler/disassem.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b5bbd020f23c5d759ac7af… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/b5bbd020f23c5d759ac7af… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 3 commits: Update file version to 21e
by Raymond Toy (＠rtoy) 14 May '23

14 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d533ca2c by Raymond Toy at 2023-05-13T07:02:39-07:00 Update file version to 21e Add the required bootstrap file and update CI to use it. - - - - - 28167cf6 by Raymond Toy at 2023-05-13T07:05:04-07:00 Update all translations - - - - - e82bebb7 by Raymond Toy at 2023-05-13T17:29:42-07:00 Update release notes for 21e. Basically just remove the WIP section title. - - - - - 14 changed files: - .gitlab-ci.yml - + src/bootfiles/21d/boot-21e.lisp - src/compiler/byte-comp.lisp - src/general-info/release-21e.md - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,7 +1,7 @@ variables: download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2023/04" version: "2023-04-x86" - bootstrap: "" + bootstrap: "-B boot-21e" stages: - install ===================================== src/bootfiles/21d/boot-21e.lisp ===================================== @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 21e. +;;;; + +(in-package :c) + +(setf lisp::*enable-package-locked-errors* nil) + +;;; +;;; Note that BYTE-FASL-FILE-VERSION is a constant. +;;; +;;; (Be sure to change BYTE-FASL-FILE-VERSION in +;;; compiler/byte-comp.lisp to the correct value too!) +;;; +#-cmu21e +(setf (symbol-value 'byte-fasl-file-version) #x21e) +#-cmu21e +(setf (backend-fasl-file-version *target-backend*) #x21e) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu21e +(setq lisp::*skip-fasl-file-version-check* t) + +;;; +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in +;;; OPEN-FASL-FILE. To make the new version number take effect, we +;;; have to redefine the function. +;;; +#-cmu21e +(defun open-fasl-file (name where &optional byte-p) + (declare (type pathname name)) + (let* ((stream (open name :direction :output + :if-exists :new-version + :element-type '(unsigned-byte 8) + :class 'binary-text-stream)) + (res (make-fasl-file :stream stream))) + (multiple-value-bind + (version f-vers f-imp) + (if byte-p + (values "Byte code" + byte-fasl-file-version + (backend-byte-fasl-file-implementation *backend*)) + (values (backend-version *backend*) + (backend-fasl-file-version *backend*) + (backend-fasl-file-implementation *backend*))) + (format stream + "FASL FILE output from ~A.~@ + Compiled ~A on ~A~@ + Compiler ~A, Lisp ~A~@ + Targeted for ~A, FASL version ~X~%" + where + (ext:format-universal-time nil (get-universal-time)) + (machine-instance) compiler-version + (lisp-implementation-version) + version f-vers) + ;; + ;; Terminate header. + (dump-byte 255 res) + ;; + ;; Specify code format. + (dump-fop 'lisp::fop-long-code-format res) + (dump-byte f-imp res) + (dump-unsigned-32 f-vers res)) + res)) + ===================================== src/compiler/byte-comp.lisp ===================================== @@ -38,7 +38,7 @@ ;; 0-9 followed by a single hex digit in the range a-f. Then the ;; version looks like a decimal number followed by a minor release ;; letter of a to f. -(defconstant byte-fasl-file-version #x21d) +(defconstant byte-fasl-file-version #x21e) (let* ((version-string (format nil "~X" byte-fasl-file-version))) ;; Add :cmu<n> to *features* ===================================== src/general-info/release-21e.md ===================================== @@ -1,7 +1,5 @@ # CMUCL 21e -## Work in progress - The CMUCL project is pleased to announce the release of CMUCL 21e. This is a major release which contains numerous enhancements and bug fixes from the 21d release. ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po ===================================== @@ -16,24 +16,10 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" -#: src/code/bsd-os.lisp -msgid "Version string for supporting software" -msgstr "Ersionvay ingstray orfay upportingsay oftwaresay" - -#: src/code/bsd-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " -"oftwaresay." - #: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." -#: src/code/bsd-os.lisp -msgid "Getpagesize failed: ~A" -msgstr "Etpagesizegay ailedfay: ~Away" - #: src/code/signal.lisp msgid "Emt instruction" msgstr "Emtway instructionway" @@ -41,3 +27,14 @@ msgstr "Emtway instructionway" #: src/code/signal.lisp msgid "Bad argument to system call" msgstr "Adbay argumentway otay ystemsay allcay" + +#~ msgid "Version string for supporting software" +#~ msgstr "Ersionvay ingstray orfay upportingsay oftwaresay" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "" +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " +#~ "oftwaresay." + +#~ msgid "Getpagesize failed: ~A" +#~ msgstr "Etpagesizegay ailedfay: ~Away" ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po ===================================== @@ -16,16 +16,6 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" -#: src/code/linux-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" -"Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " -"oftwaresay." - -#: src/code/linux-os.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." - #: src/code/linux-os.lisp msgid "Getpagesize failed: ~A" msgstr "Etpagesizegay ailedfay: ~Away" @@ -33,3 +23,11 @@ msgstr "Etpagesizegay ailedfay: ~Away" #: src/code/signal.lisp msgid "Stack fault on coprocessor" msgstr "Tacksay aultfay onway oprocessorcay" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "" +#~ "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay " +#~ "oftwaresay." + +#~ msgid "Unix system call getrusage failed: ~A." +#~ msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away." ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po ===================================== @@ -16,6 +16,15 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\n" +#: src/code/unix.lisp +msgid "" +"The encoding to use for converting a namestring to a string that can\n" +" be used by the operations system. It must be a valid\n" +" external-format name or :NULL. :NULL means the string\n" +" is passed as is to the operating system. The operating system will\n" +" get the low 8 bits of each UTF-16 code unit of the string." +msgstr "" + #: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "Yscallsay ~Away ailedfay: ~Away" @@ -659,12 +668,6 @@ msgstr "" "ethay\n" " urrentcay ocesspray." -#: src/code/unix.lisp -msgid "Unix-getpagesize returns the number of bytes in a system page." -msgstr "" -"Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away " -"ystemsay agepay." - #: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" @@ -700,34 +703,69 @@ msgstr "Izesay ofway ontrolcay aracterchay ectorvay." #: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" -" file returning them in the form of multiple values.\n" -" See the UNIX Programmer's Manual for a description\n" -" of the values returned. If the call fails, then NIL\n" -" and an error number is returned instead." +" file returning them in the form of multiple values. If the call\n" +" fails, then NIL and an error number is returned. If the call\n" +" succeeds, then T is returned in addition to the following values\n" +" from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n" -" ilefay eturningray emthay inway ethay ormfay ofway ultiplemay aluesvay.\n" -" Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n" -" ofway ethay aluesvay eturnedray. Ifway ethay allcay ailsfay, enthay NIL\n" -" andway anway errorway umbernay isway eturnedray insteadway." #: src/code/unix.lisp msgid "" -"Unix-lstat is similar to unix-stat except the specified\n" -" file must be a symbolic link." +"Unix-fstat is similar to unix-stat except the file is specified\n" +" by the file descriptor fd. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay " -"ecifiedspay\n" -" ilefay ustmay ebay away ymbolicsay inklay." #: src/code/unix.lisp msgid "" -"Unix-fstat is similar to unix-stat except the file is specified\n" -" by the file descriptor fd." +"Unix-lstat is similar to unix-stat except the specified\n" +" file must be a symbolic link. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" -"Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay ilefay " -"isway ecifiedspay\n" -" ybay ethay ilefay escriptorday dfay." #: src/code/unix.lisp msgid "The calling process." @@ -1598,6 +1636,14 @@ msgstr "" "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay " "UID, orway NIL ifway otnay oundfay." +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" @@ -1686,6 +1732,57 @@ msgstr "" "andway anway errorway umbernay ifway itway\n" " oesnday't orkway." +#: src/code/unix.lisp +msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgstr "" + +#: src/code/unix.lisp +msgid "" +"Get LC_MESSAGES from the current locale. If we can't, return\n" +" NIL. A call to UNIX-SETLOCALE must have been done previously before\n" +" calling this so that the correct locale is returned." +msgstr "" + +#: src/code/unix.lisp +msgid "Get the codeset from the locale" +msgstr "" + +#~ msgid "Unix-getpagesize returns the number of bytes in a system page." +#~ msgstr "" +#~ "Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away " +#~ "ystemsay agepay." + +#~ msgid "" +#~ "Unix-stat retrieves information about the specified\n" +#~ " file returning them in the form of multiple values.\n" +#~ " See the UNIX Programmer's Manual for a description\n" +#~ " of the values returned. If the call fails, then NIL\n" +#~ " and an error number is returned instead." +#~ msgstr "" +#~ "Unixway-tatsay etrievesray informationway aboutway ethay ecifiedspay\n" +#~ " ilefay eturningray emthay inway ethay ormfay ofway ultiplemay " +#~ "aluesvay.\n" +#~ " Eesay ethay UNIX Ogrammerpray's Anualmay orfay away escriptionday\n" +#~ " ofway ethay aluesvay eturnedray. Ifway ethay allcay ailsfay, enthay " +#~ "NIL\n" +#~ " andway anway errorway umbernay isway eturnedray insteadway." + +#~ msgid "" +#~ "Unix-lstat is similar to unix-stat except the specified\n" +#~ " file must be a symbolic link." +#~ msgstr "" +#~ "Unixway-statlay isway imilarsay otay unixway-tatsay exceptway ethay " +#~ "ecifiedspay\n" +#~ " ilefay ustmay ebay away ymbolicsay inklay." + +#~ msgid "" +#~ "Unix-fstat is similar to unix-stat except the file is specified\n" +#~ " by the file descriptor fd." +#~ msgstr "" +#~ "Unixway-statfay isway imilarsay otay unixway-tatsay exceptway ethay " +#~ "ilefay isway ecifiedspay\n" +#~ " ybay ethay ilefay escriptorday dfay." + #~ msgid "" #~ "Set the user ID of the calling process to UID.\n" #~ " If the calling process is the super-user, set the real\n" ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po ===================================== @@ -187,6 +187,10 @@ msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S." msgid "Class not yet defined: ~S" msgstr "Assclay otnay etyay efinedday: ~S" +#: src/compiler/x86/insts.lisp +msgid "Sign extend the N-bit number X" +msgstr "" + #: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=." ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po ===================================== @@ -405,9 +405,11 @@ msgstr "" "Unctionsfay otay ebay invokedway uringday eanupclay atway Isplay exitway." #: src/code/lispinit.lisp +#, fuzzy msgid "" -"Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" -" non-Nil." +"Terminates the current Lisp. Things are cleaned up unless\n" +" Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" +" Code, defaulting to 0." msgstr "" "Erminatestay ethay urrentcay Isplay. Ingsthay areway eanedclay upway " "unlessway Ecklesslyray-P isway\n" @@ -1530,8 +1532,8 @@ msgid "" "\t\t ~A definition." msgstr "" "Inway assclay ~S:~% ~\n" -"\t\t ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway ithway~" -"% ~\n" +"\t\t ~:(~Away~) efinitionday ofway uperclasssay ~S incompatibleway " +"ithway~% ~\n" "\t\t ~Away efinitionday." #: src/code/class.lisp @@ -5713,6 +5715,13 @@ msgstr "" "ormalizednay, ethay originalway\n" " ingstray isway eturnedray." +#: src/code/string.lisp +msgid "" +"Convert STRING to NFD (or NFKD). If :darwinp is non-NIL, then\n" +" characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n" +" are not decomposed, as specified for Darwin pathnames." +msgstr "" + #: src/code/string.lisp msgid "" "Convert a sequence of codepoints to a string. Codepoints outside\n" @@ -8002,22 +8011,6 @@ msgstr "" "ecifiedspay adixray. Eturnsray\n" " NIL ifway onay uchsay aracterchay existsway." -#: src/code/misc.lisp -msgid "" -"Returns the documentation string of Doc-Type for X, or NIL if\n" -" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" -" SETF, and T." -msgstr "" -"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway " -"NIL ifway\n" -" onenay existsway. Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, " -"STRUCTURE, TYPE,\n" -" SETF, andway T." - -#: src/code/misc.lisp -msgid "~S is not the name of a structure type." -msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay." - #: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" @@ -8057,16 +8050,22 @@ msgstr "Ethay aluevay ofway SOFTWARE-TYPE. Etsay inway FOO-osway.isplay." msgid "Returns a string describing the supporting software." msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." +#: src/code/misc.lisp +#, fuzzy +msgid "Version string for supporting software" +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." + +#: src/code/misc.lisp +#, fuzzy +msgid "Returns a string describing version of the supporting software." +msgstr "Eturnsray away ingstray escribingday ethay upportingsay oftwaresay." + #: src/code/misc.lisp msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" "Ethay aluevay ofway SHORT-SITE-NAME. Etsay inway ibrarylay:itesay-initway." "isplay." -#: src/code/misc.lisp -msgid "Unknown" -msgstr "Unknownway" - #: src/code/misc.lisp msgid "Returns a string with the abbreviated site name." msgstr "Eturnsray away ingstray ithway ethay abbreviatedway itesay amenay." @@ -8077,10 +8076,6 @@ msgstr "" "Ethay aluevay ofway LONG-SITE-NAME. Etsay inway ibrarylay:itesay-initway." "isplay." -#: src/code/misc.lisp -msgid "Site name not initialized" -msgstr "Itesay amenay otnay initializedway" - #: src/code/misc.lisp msgid "Returns a string with the long form of the site name." msgstr "" @@ -8113,13 +8108,16 @@ msgstr "" " oadedlay, edway ancay ebay usedway otay editway away ilefay" #: src/code/misc.lisp +#, fuzzy msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " "If\n" " it is not already compiled, the compiler is called to produce something " "to\n" -" disassemble." +" disassemble.\n" +"\n" +" Also see disassem:disassemble for finer control of disassembly." msgstr "" "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay " "ancay ebay away\n" @@ -8129,6 +8127,22 @@ msgstr "" "otay oducepray omethingsay otay\n" " isassembleday." +#: src/code/misc-doc.lisp +msgid "" +"Returns the documentation string of Doc-Type for X, or NIL if\n" +" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" +" SETF, and T." +msgstr "" +"Eturnsray ethay ocumentationday ingstray ofway Ocday-Ypetay orfay X, orway " +"NIL ifway\n" +" onenay existsway. Ystemsay ocday-ypestay areway VARIABLE, FUNCTION, " +"STRUCTURE, TYPE,\n" +" SETF, andway T." + +#: src/code/misc-doc.lisp +msgid "~S is not the name of a structure type." +msgstr "~S isway otnay ethay amenay ofway away ucturestray ypetay." + #: src/code/extensions.lisp msgid "" "This function can be used as the default value for keyword arguments that\n" @@ -8864,6 +8878,15 @@ msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway" msgid "Same as -help." msgstr "Amesay asway -elphay." +#: src/code/commandline.lisp +#, fuzzy +msgid "Prints the cmucl version and exits" +msgstr "Intpray outway ethay ommandcay inelay optionsway andway exitway" + +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits; same as -version" +msgstr "" + #: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" @@ -9114,8 +9137,8 @@ msgstr "" #: src/code/room.lisp msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%" msgstr "" -"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway (~D" -"%).~%" +"~:D odecay-objectway ytesbay, ~:D odecay ordsway, ithway ~:D onay-opsway " +"(~D%).~%" #: src/code/room.lisp msgid "Bogus type: ~D" @@ -9128,21 +9151,24 @@ msgstr "~:D ordsway allocatedway orfay escriptorday objectsway.~%" #: src/code/room.lisp msgid "~:D bytes data/~:D words header for non-descriptor objects.~%" msgstr "" -"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway.~" -"%" +"~:D ytesbay ataday/~:D ordsway eaderhay orfay onnay-escriptorday objectsway." +"~%" #: src/code/room.lisp msgid "" -"Print a breakdown by instance type of all the instances allocated in\n" -" Space. If TOP-N is true, print only information for the the TOP-N types " -"with\n" -" largest usage." +"Print a breakdown by instance type of all the allocation in Space. \n" +"\n" +" :TOP-N \n" +" If true, print only the TOP-N types by largest usage.\n" +"\n" +" :ENTRIES-VAR\n" +" If bound, contains the name of the symbol used to store the hash-" +"table\n" +" of allocated entries for later processing.\n" +"\n" +" :CALL-SOURCE\n" +" A string identifying the location from which instance-usage was called." msgstr "" -"Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay " -"instancesway allocatedway inway\n" -" Acespay. Ifway TOP-N isway uetray, intpray onlyway informationway orfay " -"ethay ethay TOP-N ypestay ithway\n" -" argestlay usageway." #: src/code/room.lisp msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%" @@ -9670,6 +9696,12 @@ msgstr "" "Isthay isway uetray ifway andway onlyway ifway ethay isplay asway tartedsay " "ithway ethay -editway witchsay." +#: src/code/save.lisp +msgid "" +"Add external format alias for :locale to the format specified by\n" +" the locale as set by setlocale(3C)." +msgstr "" + #: src/code/save.lisp #, fuzzy msgid "" @@ -10083,10 +10115,16 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "Impossibleway asecay eachedray inway PEEK-CHAR" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." msgstr "" -"Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay " -"Eamstray." + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" +msgstr "Invalidway umbernay ofway argumentsway: ~S" #: src/code/stream.lisp msgid "Returns the next character from the Stream if one is available, or nil." @@ -11997,8 +12035,8 @@ msgid "" "\t results in name conflicts with these packages:~%~{~A ~}" msgstr "" "Exportingway esethay ymbolssay omfray ethay ~Away ackagepay:~%~S~%~\n" -"\t esultsray inway amenay onflictscay ithway esethay ackagespay:~" -"%~{~Away ~}" +"\t esultsray inway amenay onflictscay ithway esethay ackagespay:" +"~%~{~Away ~}" #: src/code/package.lisp msgid "Unintern conflicting symbols." @@ -14749,8 +14787,8 @@ msgstr "Oadlay itway asway away ourcesay ilefay." #: src/code/load.lisp msgid "File has a fasl file type, but no fasl file header:~% ~S" msgstr "" -"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:~" -"% ~S" +"Ilefay ashay away aslfay ilefay ypetay, utbay onay aslfay ilefay eaderhay:" +"~% ~S" #: src/code/load.lisp msgid "" @@ -14850,6 +14888,12 @@ msgstr "" msgid "*load-verbose* is bound to this before loading files." msgstr "*load-verbose* isway oundbay otay isthay eforebay oadinglay ilesfay." +#: src/code/module.lisp +msgid "" +"Provider functions for cmucl modules and libraries. These are\n" +" searched first before trying *module-provider-functions*" +msgstr "" + #: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "Eesay unctionfay ocumentationday orfay REQUIRE" @@ -15556,10 +15600,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "Unknownway errorway:~{ ~S~})" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "Invalidway umbernay ofway argumentsway: ~S" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "Attemptway otay useway VALUES-LIST onway away ottedday-istlay:~% ~S" @@ -15625,8 +15665,8 @@ msgstr "Internalway errorway ~D: ~Away. argsway=~S" msgid "" "~2&~@<A control stack overflow has occurred:~%~\n" " the program has entered the yellow control stack guard zone.~%~\n" -" Please note that you will be returned to the Top-Level if you~" -"%~\n" +" Please note that you will be returned to the Top-Level if " +"you~%~\n" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" "~2&~@<Away ontrolcay tacksay overflowway ashay occurredway:~%~\n" @@ -15644,16 +15684,16 @@ msgid "" " Returning to Top-Level.~@:>~2%" msgstr "" "~2&~@<Atalfay ontrolcay tacksay overflowway. Ouyay avehay enteredway~%~\n" -" ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday.~" -"%~\n" +" ethay edray ontrolcay tacksay uardgay onezay ilewhay ebuggingday." +"~%~\n" " Eturningray otay Optay-Evellay.~@:>~2%" #: src/code/interr.lisp msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" -" Please note that you will be returned to the Top-Level without~" -"%~\n" +" Please note that you will be returned to the Top-Level " +"without~%~\n" " warning if you run out of space while debugging.~@:>~%" msgstr "" "~2&~@<Imminentway ynamicday acespay overflowway ashay occurredway:~%~\n" @@ -19538,8 +19578,8 @@ msgstr "" "ouldshay ebay away\n" "istlay ofway ibrarylay ilesfay asway ouldway ebay ecifiedspay otay dlay. " "Eythay illway ebay\n" -"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-clay" -"\", i.e., ethay C\n" +"earchedsay inway ethay orderway ivengay. Ethay efaultday isway ustjay \"-" +"clay\", i.e., ethay C\n" "ibrarylay. Ethay BASE-FILE argumentway isway usedway otay ecifyspay away " "ilefay otay useway asway\n" "ethay tartingsay aceplay orfay efinedday ymbolssay. Ethay efaultday isway " @@ -20335,8 +20375,8 @@ msgstr "" "Incompatiblyway edefiningray otsslay ofway ucturestray assclay ~S~@\n" "\t Akemay uresay anyway usesway ofway affectedway accessorsway areway " "ecompiledray:~@\n" -"\t ~@[ Esethay otsslay ereway ovedmay otay ewnay ositionspay:~% ~S~" -"%~]~\n" +"\t ~@[ Esethay otsslay ereway ovedmay otay ewnay ositionspay:~% " +"~S~%~]~\n" "\t ~@[ Esethay otsslay avehay ewnay incompatibleway ypestay:~% ~S~%~]~\n" "\t ~@[ Esethay otsslay ereway eletedday:~% ~S~%~]" @@ -21750,6 +21790,23 @@ msgstr "" "odifiablemay aracterschay\n" " elimitedday ybay onnay-asecay-odifiablemay arschay. " +#: src/code/unicode.lisp +msgid "" +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n" +" of conjoining jamo and print the decomposed result to the stream\n" +" STREAM." +msgstr "" + +#: src/code/unicode.lisp +msgid "Test if CODEPOINT is a Hangul syllable" +msgstr "" + +#: src/code/unicode.lisp +msgid "" +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n" +" conjoining jamo characters." +msgstr "" + #: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" @@ -23094,8 +23151,8 @@ msgid "" "\t conflicts with the definition's result type assertion:~% ~S" msgstr "" "Ethay esultray ypetay omfray ~Away:~% ~S~@\n" -"\t onflictscay ithway ethay efinitionday's esultray ypetay assertionway:~" -"% ~S" +"\t onflictscay ithway ethay efinitionday's esultray ypetay assertionway:" +"~% ~S" #: src/compiler/ctype.lisp msgid "" @@ -25107,6 +25164,11 @@ msgid "Can't make a compiled function from ~S" msgstr "Ancay't akemay away ompiledcay unctionfay omfray ~S" #: src/compiler/disassem.lisp +msgid "Default value for :radix argument for disassem:disassemble" +msgstr "" + +#: src/compiler/disassem.lisp +#, fuzzy msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " @@ -25124,7 +25186,7 @@ msgid "" " :Radix\n" " The disassembler uses the specified base, case, and radix when\n" " printing the disassembled code. The default values are 16,\n" -" :downcase, and *print-radix*, respectively." +" :downcase, and *disassemble-print-radix*, respectively." msgstr "" "Isassembleday ethay achinemay odecay associatedway ithway OBJECT, ichwhay " "ancay ebay away\n" @@ -27979,8 +28041,8 @@ msgid "" msgstr "" "~S isway otnay alidvay asway ethay ~:R ~:[esultray~;argumentway~] otay " "ethay~@\n" -"\t ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:~" -"% ~S~@\n" +"\t ~S VOP, incesay ethay TN's imitivepray ypetay ~S allowsway Sscay:" +"~% ~S~@\n" "\t\t~:[ichwhay annotcay ebay oercedcay orway oadedlay intoway ethay " "allowedway Sscay:~\n" "\t\t~% ~S~;~*~]~:[~;~@\n" @@ -28014,8 +28076,8 @@ msgstr "" "~\n" "\t ~% ~S~%Imitivepray ypetay: ~S~@\n" "\t\tSC estrictionsray:~% ~S~@\n" -"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~% ~S~" -"%~]~\n" +"\t\t~@[Ethay imitivepray ypetay isallowsday esethay oadablelay Sscay:~% " +"~S~%~]~\n" "\t\t~@[Onay ovemay Opsvay areway efinedday otay oercecay otay esethay " "allowedway Sscay:~\n" "\t\t~% ~S~%~]~\n" @@ -31016,6 +31078,29 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." +#~ msgid "Unknown" +#~ msgstr "Unknownway" + +#~ msgid "Site name not initialized" +#~ msgstr "Itesay amenay otnay initializedway" + +#~ msgid "" +#~ "Print a breakdown by instance type of all the instances allocated in\n" +#~ " Space. If TOP-N is true, print only information for the the TOP-N " +#~ "types with\n" +#~ " largest usage." +#~ msgstr "" +#~ "Intpray away eakdownbray ybay instanceway ypetay ofway allway ethay " +#~ "instancesway allocatedway inway\n" +#~ " Acespay. Ifway TOP-N isway uetray, intpray onlyway informationway " +#~ "orfay ethay ethay TOP-N ypestay ithway\n" +#~ " argestlay usageway." + +#~ msgid "Returns T if a character is available on the given Stream." +#~ msgstr "" +#~ "Eturnsray T ifway away aracterchay isway availableway onway ethay ivengay " +#~ "Eamstray." + #~ msgid "Shouldn't happen" #~ msgstr "Ouldnshay't appenhay" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po ===================================== @@ -15,22 +15,10 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: src/code/bsd-os.lisp -msgid "Version string for supporting software" -msgstr "소프트 웨어를 지원하기위한 버전 문자열" - -#: src/code/bsd-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다." - #: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급." -#: src/code/bsd-os.lisp -msgid "Getpagesize failed: ~A" -msgstr "Getpagesize 실패: ~ A 등급" - #: src/code/signal.lisp msgid "Emt instruction" msgstr "" @@ -38,3 +26,12 @@ msgstr "" #: src/code/signal.lisp msgid "Bad argument to system call" msgstr "" + +#~ msgid "Version string for supporting software" +#~ msgstr "소프트 웨어를 지원하기위한 버전 문자열" + +#~ msgid "Returns a string describing version of the supporting software." +#~ msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다." + +#~ msgid "Getpagesize failed: ~A" +#~ msgstr "Getpagesize 실패: ~ A 등급" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po ===================================== @@ -15,14 +15,6 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: src/code/linux-os.lisp -msgid "Returns a string describing version of the supporting software." -msgstr "" - -#: src/code/linux-os.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "" - #: src/code/linux-os.lisp msgid "Getpagesize failed: ~A" msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po ===================================== @@ -15,6 +15,15 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" +#: src/code/unix.lisp +msgid "" +"The encoding to use for converting a namestring to a string that can\n" +" be used by the operations system. It must be a valid\n" +" external-format name or :NULL. :NULL means the string\n" +" is passed as is to the operating system. The operating system will\n" +" get the low 8 bits of each UTF-16 code unit of the string." +msgstr "" + #: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "" @@ -461,10 +470,6 @@ msgid "" " current process." msgstr "" -#: src/code/unix.lisp -msgid "Unix-getpagesize returns the number of bytes in a system page." -msgstr "" - #: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" @@ -489,22 +494,68 @@ msgstr "" #: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" -" file returning them in the form of multiple values.\n" -" See the UNIX Programmer's Manual for a description\n" -" of the values returned. If the call fails, then NIL\n" -" and an error number is returned instead." +" file returning them in the form of multiple values. If the call\n" +" fails, then NIL and an error number is returned. If the call\n" +" succeeds, then T is returned in addition to the following values\n" +" from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp msgid "" -"Unix-lstat is similar to unix-stat except the specified\n" -" file must be a symbolic link." +"Unix-fstat is similar to unix-stat except the file is specified\n" +" by the file descriptor fd. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp msgid "" -"Unix-fstat is similar to unix-stat except the file is specified\n" -" by the file descriptor fd." +"Unix-lstat is similar to unix-stat except the specified\n" +" file must be a symbolic link. If the call fails, then NIL and an\n" +" error number is returned. If the call succeeds, then T is returned\n" +" in addition to the following values from the stat struct st:\n" +"\n" +" st_dev Device ID\n" +" st_ino File serial number\n" +" st_mode Mode of file\n" +" st_nlink Number of hard links to the file\n" +" st_uid User ID\n" +" st_gid Group ID\n" +" st_rdev Device ID (if file is character or block special)\n" +" st_atime Last data access time, in sec\n" +" st_mtime Last data modification time, in sec\n" +" st_ctime Last file status change time, in sec\n" +" st_blksize Preferred I/O block size\n" +" st_blocks Number of blocks allocated. (Block size is implementation " +"dependent.)\n" msgstr "" #: src/code/unix.lisp @@ -1302,6 +1353,14 @@ msgid "" "found." msgstr "" +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" @@ -1353,3 +1412,18 @@ msgid "" " of the child in the parent if it works, or NIL and an error number if it\n" " doesn't work." msgstr "" + +#: src/code/unix.lisp +msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgstr "" + +#: src/code/unix.lisp +msgid "" +"Get LC_MESSAGES from the current locale. If we can't, return\n" +" NIL. A call to UNIX-SETLOCALE must have been done previously before\n" +" calling this so that the correct locale is returned." +msgstr "" + +#: src/code/unix.lisp +msgid "Get the codeset from the locale" +msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po ===================================== @@ -144,6 +144,10 @@ msgstr "" msgid "Class not yet defined: ~S" msgstr "" +#: src/compiler/x86/insts.lisp +msgid "Sign extend the N-bit number X" +msgstr "" + #: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl.po ===================================== @@ -312,8 +312,9 @@ msgstr "" #: src/code/lispinit.lisp msgid "" -"Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" -" non-Nil." +"Terminates the current Lisp. Things are cleaned up unless\n" +" Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" +" Code, defaulting to 0." msgstr "" #: src/code/lispinit.lisp @@ -4013,6 +4014,13 @@ msgid "" " string is returned." msgstr "" +#: src/code/string.lisp +msgid "" +"Convert STRING to NFD (or NFKD). If :darwinp is non-NIL, then\n" +" characters in the ranges U2000-U2FFF, UF900-UFA6A, and U2F800-U2FA1D\n" +" are not decomposed, as specified for Darwin pathnames." +msgstr "" + #: src/code/string.lisp msgid "" "Convert a sequence of codepoints to a string. Codepoints outside\n" @@ -5601,17 +5609,6 @@ msgid "" " NIL if no such character exists." msgstr "" -#: src/code/misc.lisp -msgid "" -"Returns the documentation string of Doc-Type for X, or NIL if\n" -" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" -" SETF, and T." -msgstr "" - -#: src/code/misc.lisp -msgid "~S is not the name of a structure type." -msgstr "" - #: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" @@ -5647,23 +5644,23 @@ msgid "Returns a string describing the supporting software." msgstr "" #: src/code/misc.lisp -msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." +msgid "Version string for supporting software" msgstr "" #: src/code/misc.lisp -msgid "Unknown" +msgid "Returns a string describing version of the supporting software." msgstr "" #: src/code/misc.lisp -msgid "Returns a string with the abbreviated site name." +msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" #: src/code/misc.lisp -msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." +msgid "Returns a string with the abbreviated site name." msgstr "" #: src/code/misc.lisp -msgid "Site name not initialized" +msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." msgstr "" #: src/code/misc.lisp @@ -5694,7 +5691,20 @@ msgid "" "If\n" " it is not already compiled, the compiler is called to produce something " "to\n" -" disassemble." +" disassemble.\n" +"\n" +" Also see disassem:disassemble for finer control of disassembly." +msgstr "" + +#: src/code/misc-doc.lisp +msgid "" +"Returns the documentation string of Doc-Type for X, or NIL if\n" +" none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" +" SETF, and T." +msgstr "" + +#: src/code/misc-doc.lisp +msgid "~S is not the name of a structure type." msgstr "" #: src/code/extensions.lisp @@ -6145,6 +6155,14 @@ msgstr "" msgid "Same as -help." msgstr "" +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits" +msgstr "" + +#: src/code/commandline.lisp +msgid "Prints the cmucl version and exits; same as -version" +msgstr "" + #: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" @@ -6334,10 +6352,18 @@ msgstr "" #: src/code/room.lisp msgid "" -"Print a breakdown by instance type of all the instances allocated in\n" -" Space. If TOP-N is true, print only information for the the TOP-N types " -"with\n" -" largest usage." +"Print a breakdown by instance type of all the allocation in Space. \n" +"\n" +" :TOP-N \n" +" If true, print only the TOP-N types by largest usage.\n" +"\n" +" :ENTRIES-VAR\n" +" If bound, contains the name of the symbol used to store the hash-" +"table\n" +" of allocated entries for later processing.\n" +"\n" +" :CALL-SOURCE\n" +" A string identifying the location from which instance-usage was called." msgstr "" #: src/code/room.lisp @@ -6722,6 +6748,12 @@ msgstr "" msgid "This is true if and only if the lisp was started with the -edit switch." msgstr "" +#: src/code/save.lisp +msgid "" +"Add external format alias for :locale to the format specified by\n" +" the locale as set by setlocale(3C)." +msgstr "" + #: src/code/save.lisp msgid "" "Saves a CMU Common Lisp core image in the file of the specified name. The\n" @@ -7008,7 +7040,15 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." +msgstr "" + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" msgstr "" #: src/code/stream.lisp @@ -10412,6 +10452,12 @@ msgstr "" msgid "*load-verbose* is bound to this before loading files." msgstr "" +#: src/code/module.lisp +msgid "" +"Provider functions for cmucl modules and libraries. These are\n" +" searched first before trying *module-provider-functions*" +msgstr "" + #: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "" @@ -10897,10 +10943,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" @@ -10956,8 +10998,8 @@ msgstr "" msgid "" "~2&~@<A control stack overflow has occurred:~%~\n" " the program has entered the yellow control stack guard zone.~%~\n" -" Please note that you will be returned to the Top-Level if you~" -"%~\n" +" Please note that you will be returned to the Top-Level if " +"you~%~\n" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" @@ -10972,8 +11014,8 @@ msgstr "" msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" -" Please note that you will be returned to the Top-Level without~" -"%~\n" +" Please note that you will be returned to the Top-Level " +"without~%~\n" " warning if you run out of space while debugging.~@:>~%" msgstr "" @@ -15268,6 +15310,23 @@ msgid "" " delimited by non-case-modifiable chars. " msgstr "" +#: src/code/unicode.lisp +msgid "" +"Decompose the Hangul syllable codepoint CP to an equivalent sequence\n" +" of conjoining jamo and print the decomposed result to the stream\n" +" STREAM." +msgstr "" + +#: src/code/unicode.lisp +msgid "Test if CODEPOINT is a Hangul syllable" +msgstr "" + +#: src/code/unicode.lisp +msgid "" +"Decompose any Hangul syllables in STRING to an equivalent sequence of\n" +" conjoining jamo characters." +msgstr "" + #: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" @@ -17366,6 +17425,10 @@ msgstr "" msgid "Can't make a compiled function from ~S" msgstr "" +#: src/compiler/disassem.lisp +msgid "Default value for :radix argument for disassem:disassemble" +msgstr "" + #: src/compiler/disassem.lisp msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" @@ -17384,7 +17447,7 @@ msgid "" " :Radix\n" " The disassembler uses the specified base, case, and radix when\n" " printing the disassembled code. The default values are 16,\n" -" :downcase, and *print-radix*, respectively." +" :downcase, and *disassemble-print-radix*, respectively." msgstr "" #: src/compiler/disassem.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d53c9575b1166a3a9d5e98… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d53c9575b1166a3a9d5e98… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new tag 21e
by Raymond Toy (＠rtoy) 14 May '23

14 May '23

Raymond Toy pushed new tag 21e at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/21e You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][branch-21e] Update release notes for 21e.
by Raymond Toy (＠rtoy) 14 May '23

14 May '23

Raymond Toy pushed to branch branch-21e at cmucl / cmucl Commits: e82bebb7 by Raymond Toy at 2023-05-13T17:29:42-07:00 Update release notes for 21e. Basically just remove the WIP section title. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -1,7 +1,5 @@ # CMUCL 21e -## Work in progress - The CMUCL project is pleased to announce the release of CMUCL 21e. This is a major release which contains numerous enhancements and bug fixes from the 21d release. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82bebb7be1f2a642286246… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82bebb7be1f2a642286246… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch branch-21e
by Raymond Toy (＠rtoy) 13 May '23

13 May '23

Raymond Toy pushed new branch branch-21e at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/branch-21e You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update cmucl.pot and cmucl-unix.pot for Linux
by Raymond Toy (＠rtoy) 12 May '23

12 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d53c9575 by Raymond Toy at 2023-05-12T16:43:51-07:00 Update cmucl.pot and cmucl-unix.pot for Linux See also #223. - - - - - 2 changed files: - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1356,6 +1356,14 @@ msgid "" "found." msgstr "" +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9599,15 +9599,6 @@ msgid "" " an otherwise undefined logical host." msgstr "" -#: src/code/pathname.lisp -msgid "" -"When non-NIL, pathnames are on Darwin are normalized when created.\n" -" Otherwise, the pathnames are unchanged.\n" -"\n" -" This must be NIL during bootstrapping because Unicode is not yet\n" -" available." -msgstr "" - #: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d53c9575b1166a3a9d5e98b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d53c9575b1166a3a9d5e98b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update pot files for Darwin
by Raymond Toy (＠rtoy) 12 May '23

12 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 7774063f by Raymond Toy at 2023-05-12T16:28:16-07:00 Update pot files for Darwin - - - - - 2 changed files: - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1356,14 +1356,6 @@ msgid "" "found." msgstr "" -#: src/code/unix.lisp -msgid "" -"Return a USER-INFO structure for the user identified by UID. If\n" -" not found, NIL is returned with a second value indicating the cause\n" -" of the failure. In particular, if the second value is 0 (or\n" -" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." -msgstr "" - #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9599,6 +9599,15 @@ msgid "" " an otherwise undefined logical host." msgstr "" +#: src/code/pathname.lisp +msgid "" +"When non-NIL, pathnames are on Darwin are normalized when created.\n" +" Otherwise, the pathnames are unchanged.\n" +"\n" +" This must be NIL during bootstrapping because Unicode is not yet\n" +" available." +msgstr "" + #: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7774063faced8bd6f635408… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7774063faced8bd6f635408… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Update cmucl.pot
by Raymond Toy (＠rtoy) 10 May '23

10 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: a4c000f9 by Raymond Toy at 2023-05-10T11:48:33-07:00 Update cmucl.pot Issue #143 updated a docstring so the pot file needs updating. - - - - - ee480fbf by Raymond Toy at 2023-05-10T11:49:20-07:00 Update release notes Issue #143 has been fixed. - - - - - 2 changed files: - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -64,6 +64,7 @@ public domain. * ~~#140~~ External format for streams that are not `file-stream`'s. * ~~#141~~ Disallow locales that are pathnames to a localedef file. * ~~#142~~ `(random 0)` signals incorrect error. + * ~~#143~~ `LISTEN` doesn't signal error when given more than one arg * ~~#147~~ `stream-line-column` method missing for `fundamental-character-output-stream`. * ~~#149~~ Call setlocale(3C) on startup. * ~~#150~~ Add aliases for external format cp949 and euckr. ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -7024,7 +7024,15 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." +msgstr "" + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" msgstr "" #: src/code/stream.lisp @@ -10912,10 +10920,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e472bd4ff2846f2f6d4ac6… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e472bd4ff2846f2f6d4ac6… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
by Jon Boone (＠jboone) 09 May '23

09 May '23

Jon Boone pushed to branch master at cmucl / cmucl Commits: 6162e5b4 by Jon Boone at 2023-05-09T17:38:36+00:00 Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN - - - - - e472bd4f by Jon Boone at 2023-05-09T17:38:47+00:00 Merge branch 'issue-143-ansi-compliance-failure-listen-extra-argument' into 'master' Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN Closes #143 See merge request cmucl/cmucl!145 - - - - - 1 changed file: - src/code/stream.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -604,19 +604,34 @@ :skipped-char-form () :eof-detected-form (eof-or-lose stream eof-errorp eof-value)))))) -(defun listen (&optional (stream *standard-input*) (width 1)) - "Returns T if a character is available on the given Stream." +(defun listen (&optional (stream *standard-input*) (width 1 width-p)) + _N"Returns T if a character is available on the given Stream. + Argument Width is only used by instances of SIMPLE-STREAM. If + Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more + than one argument is invalid." (declare (type streamlike stream)) (let ((stream (in-synonym-of stream))) (stream-dispatch stream ;; simple-stream (stream::%listen stream width) ;; lisp-stream - (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) - ;; Test for t explicitly since misc methods return :eof sometimes. - (eq (funcall (lisp-stream-misc stream) stream :listen) t)) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) + ;; Test for t explicitly since misc methods return :eof sometimes. + (eq (funcall (lisp-stream-misc stream) stream :listen) t))) ;; fundamental-stream - (stream-listen stream)))) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (stream-listen stream))))) (defun read-char-no-hang (&optional (stream *standard-input*) (eof-errorp t) eof-value recursive-p) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fa4edacbea17140c0e869a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fa4edacbea17140c0e869a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-195-relocatable-stacks-by-default
by Raymond Toy (＠rtoy) 08 May '23

08 May '23

Raymond Toy pushed new branch issue-195-relocatable-stacks-by-default at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-195-relocatable-sta… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0