cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[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) 23 May '23

23 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) 21 May '23

21 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) 17 May '23

17 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) 17 May '23

17 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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs