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

[Git][cmucl/cmucl] Pushed new tag snapshot-2018-10
by Raymond Toy 10 Dec '18

10 Dec '18

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

1 0

[Git][cmucl/cmucl] Pushed new tag 21d
by Raymond Toy 08 Dec '18

08 Dec '18

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

1 0

[Git][cmucl/cmucl][master] 2 commits: Update version numbers for 21d.
by Raymond Toy 08 Dec '18

08 Dec '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 6167e353 by Raymond Toy at 2018-12-08T16:58:15Z Update version numbers for 21d. - - - - - b664e46d by Raymond Toy at 2018-12-08T16:58:15Z Merge branch '21d-branch' into 'master' Update version numbers for 21d. See merge request cmucl/cmucl!43 - - - - - 4 changed files: - .gitlab-ci.yml - + src/bootfiles/21c/boot-21d.lisp - src/compiler/byte-comp.lisp - src/general-info/release-21d.md Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,6 +1,7 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2018/03" - version: "2018-03-x86" + download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2018/10" + version: "2018-10-x86" + bootstrap: "-B boot-21d.lisp" linux-runner: image: ubuntu:16.04 @@ -13,7 +14,7 @@ linux-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh $bootstrap -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist linux-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log @@ -25,6 +26,6 @@ osx-runner: - mkdir snapshot - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) script: - - bin/build.sh -C "" -o snapshot/bin/lisp + - bin/build.sh $bootstrap -C "" -o snapshot/bin/lisp - bin/make-dist.sh -I dist darwin-4 - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log ===================================== src/bootfiles/21c/boot-21d.lisp ===================================== @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 21d. +;;;; + +(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!) +;;; +#-cmu21d +(setf (symbol-value 'byte-fasl-file-version) #x21d) +#-cmu21d +(setf (backend-fasl-file-version *target-backend*) #x21d) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu21d +(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. +;;; +#-cmu21d +(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 #x21c) +(defconstant byte-fasl-file-version #x21d) (let* ((version-string (format nil "~X" byte-fasl-file-version))) ;; Add :cmu<n> to *features* ===================================== src/general-info/release-21d.md ===================================== @@ -1,4 +1,3 @@ -** Work in Progress ** # CMUCL 21d The CMUCL project is pleased to announce the release of CMUCL 21c. @@ -31,6 +30,8 @@ public domain. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: + * ~~#48~~ Update RNG from MT19937 to xoroshiro128+ + * ~~#45~~ Handling of relative paths in `EXT:RUN-PROGRAM` * ~~#50~~ CLX (Hemlock) fails to run. * ~~#49~~ CLM crashes * ~~#47~~ Backquate and multiple splices @@ -40,6 +41,7 @@ public domain. * ~~#61~~ Segfault when compiling call to `ARRAY-HAS-FILL-POINTER-P` on bit vector constant * ~~#62~~ Segfault when compiling `ARRAY-DISPLACEMENT` on a string constant * ~~#69~~ GC assertions compiled in and allow user to enable them. + * ~~#71~~ More info for `MACHINE-TYPE` and `MACHINE-VERSION` for x86 * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/3843a50c6aea367e8a16ff21… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/3843a50c6aea367e8a16ff21… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch 21d-branch
by Raymond Toy 08 Dec '18

08 Dec '18

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

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #71: More info from machine-type/version on x86
by Raymond Toy 06 Dec '18

06 Dec '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 0824e61e by Raymond Toy at 2018-12-06T22:42:16Z Fix #71: More info from machine-type/version on x86 - - - - - 3843a50c by Raymond Toy at 2018-12-06T22:42:16Z Merge branch 'rtoy-issue-71' into 'master' Fix #71: More info from machine-type/version on x86 Closes #71 See merge request cmucl/cmucl!42 - - - - - 2 changed files: - src/code/x86-vm.lisp - src/general-info/release-21d.md Changes: ===================================== src/code/x86-vm.lisp ===================================== @@ -60,14 +60,56 @@ #-cross-compiler (defun machine-type () _N"Returns a string describing the type of the local machine." - "X86") + ;; Use cpuid to get the processor type. + (with-output-to-string (s) + (multiple-value-bind (max-input ebx ecx edx) + (x86::cpuid 0) + (declare (ignore max-input)) + (flet ((int-to-string (int) + (dotimes (k 4) + (let ((code (ldb (byte 8 (* 8 k)) int))) + ;; Don't print out null chars. We're + ;; assuming this only happens at the end + ;; of the brand string. + (unless (zerop code) + (write-char (code-char code) s)))))) + (int-to-string ebx) + (int-to-string edx) + (int-to-string ecx))))) #-cross-compiler (defun machine-version () _N"Returns a string describing the version of the local machine." - "X86") - + ;; UWe use the processor brand string method to get more detailed + ;; information about the processor. If it's not available, just + ;; give up, even though we could use the brand index (CPUID with + ;; EAX=1) to get an identifier. + (let ((max-cpuid (x86::cpuid #x80000000))) + (cond ((or (not (logbitp 31 max-cpuid)) + (< max-cpuid #x80000004)) + ;; Processor brand string not supported, just give up. + "X86") + (t + (with-output-to-string (s) + (labels ((int-to-string (int) + (dotimes (k 4) + (let ((code (ldb (byte 8 (* 8 k)) int))) + ;; Don't print out null chars. We're + ;; assuming this only happens at the end + ;; of the brand string. + (unless (zerop code) + (write-char (code-char code) s))))) + (cpuid-to-string (input) + (multiple-value-bind (eax ebx ecx edx) + (x86::cpuid input) + (int-to-string eax) + (int-to-string ebx) + (int-to-string ecx) + (int-to-string edx)))) + (cpuid-to-string #x80000002) + (cpuid-to-string #x80000003) + (cpuid-to-string #x80000004))))))) ;;; Fixup-Code-Object -- Interface ===================================== src/general-info/release-21d.md ===================================== @@ -27,6 +27,7 @@ public domain. * The new function `KERNEL:RANDOM-STATE-JUMP` modifies the given state to jump 2^64 samples ahead, allowing 2^64 non-overlapping sequences. * Updated CLX to telent clx version 06e39a0d. * New functions `SET-GC-ASSERTIONS` and `GET-GC-ASSERTIONS`. See the docstrings for more information and also ~~#69~~. + * `MACHINE-TYPE` and `MACHINE-VERSION` return more information about thep rocessor cmucl is running on, using information from the `cpuid` instruction. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/b6faace8b52fa8ca8ce5c3ed… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/b6faace8b52fa8ca8ce5c3ed… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][rtoy-issue-71] Update notes for machine-type/version
by Raymond Toy 06 Dec '18

06 Dec '18

Raymond Toy pushed to branch rtoy-issue-71 at cmucl / cmucl Commits: 7a62a957 by Raymond Toy at 2018-12-06T22:30:36Z Update notes for machine-type/version [skip-ci] - - - - - 1 changed file: - src/general-info/release-21d.md Changes: ===================================== src/general-info/release-21d.md ===================================== @@ -27,6 +27,7 @@ public domain. * The new function `KERNEL:RANDOM-STATE-JUMP` modifies the given state to jump 2^64 samples ahead, allowing 2^64 non-overlapping sequences. * Updated CLX to telent clx version 06e39a0d. * New functions `SET-GC-ASSERTIONS` and `GET-GC-ASSERTIONS`. See the docstrings for more information and also ~~#69~~. + * `MACHINE-TYPE` and `MACHINE-VERSION` return more information about thep rocessor cmucl is running on, using information from the `cpuid` instruction. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/7a62a9575ce194226252dea09… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/7a62a9575ce194226252dea09… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch rtoy-issue-71
by Raymond Toy 06 Dec '18

06 Dec '18

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

1 0

[Git][cmucl/cmucl][master] Update notes
by Raymond Toy 12 Oct '18

12 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b6faace8 by Raymond Toy at 2018-10-12T18:20:56Z Update notes - - - - - 1 changed file: - src/general-info/release-21d.md Changes: ===================================== src/general-info/release-21d.md ===================================== @@ -26,6 +26,7 @@ public domain. * The generator is also faster than MT19937 (approximately 28% faster on x86 and 18% on sparc). * The new function `KERNEL:RANDOM-STATE-JUMP` modifies the given state to jump 2^64 samples ahead, allowing 2^64 non-overlapping sequences. * Updated CLX to telent clx version 06e39a0d. + * New functions `SET-GC-ASSERTIONS` and `GET-GC-ASSERTIONS`. See the docstrings for more information and also ~~#69~~. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b6faace8b52fa8ca8ce5c3ed3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b6faace8b52fa8ca8ce5c3ed3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update translation files
by Raymond Toy 12 Oct '18

12 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 741b6176 by Raymond Toy at 2018-10-12T17:16:40Z Update translation files - - - - - 2 changed files: - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po Changes: ===================================== src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po ===================================== @@ -9237,6 +9237,38 @@ msgstr "" " allway odecay objectsway inway Acespay ithway oremay anthay Aboveway " "unctionfay onstantscay." +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "Ohway onay. Ethay urrentcay ynamicday acespay isway issingmay!" ===================================== src/i18n/locale/ko/LC_MESSAGES/cmucl.po ===================================== @@ -6418,6 +6418,38 @@ msgid "" " all code objects in Space with more than Above function constants." msgstr "" +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/741b6176ec9b8097852a1ab01… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/741b6176ec9b8097852a1ab01… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update with new docstring
by Raymond Toy 07 Oct '18

07 Oct '18

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f471f66e by Raymond Toy at 2018-10-07T23:51:45Z Update with new docstring - - - - - 1 changed file: - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6412,6 +6412,39 @@ msgid "" " all code objects in Space with more than Above function constants." msgstr "" +#: src/code/gc.lisp +msgid "" +"Returns a list of the current GC assertion settings. The list is\n" +" in the same format as the keyword arguments to SET-GC-ASSERTIONS,\n" +" i.e.,\n" +"\n" +" (apply #'set-gc-assertions (get-gc-assertions))\n" +"\n" +" See SET-GC-ASSERTIONS for more information." +msgstr "" + +#: src/code/gc.lisp +msgid "" +"Set GC assertion to the specified value:\n" +" :ASSERT-LEVEL\n" +" Defaults to 0, higher values indicate more assertions are " +"enabled.\n" +"\n" +" :VERIFY-AFTER-FREE-HEAP\n" +" If non-NIL, the heap is verified for consistency whenever\n" +" part of the heap is collected.\n" +"\n" +" :VERIFY-GENERATIONS\n" +" Set to generation number. When GC occurs, generations\n" +" equal to or higher than this value are checked for\n" +" consistency.\n" +"\n" +" :VERIFY-NEW-OBJECTS\n" +" When GC occurs for the newest generation, the heap for this\n" +" generation is checked for validity.\n" +"" +msgstr "" + #: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f471f66e97287bb7653bd0338… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f471f66e97287bb7653bd0338… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0