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

[Git][cmucl/cmucl][master] More pot file updates on linux.
by Raymond Toy (＠rtoy) 30 Apr '23

30 Apr '23

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

1 0

[Git][cmucl/cmucl][master] More pot file updates on linux.
by Raymond Toy (＠rtoy) 30 Apr '23

30 Apr '23

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

1 0

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

30 Apr '23

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

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #193: Treat NIL and :UNSPECIFIC as equivalent in pathnames
by Raymond Toy (＠rtoy) 30 Apr '23

30 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 3154df47 by Raymond Toy at 2023-04-30T13:54:45+00:00 Fix #193: Treat NIL and :UNSPECIFIC as equivalent in pathnames - - - - - 9eec4ee5 by Raymond Toy at 2023-04-30T13:55:56+00:00 Merge branch 'issue-193-nil-unspecific-equivalent' into 'master' Fix #193: Treat NIL and :UNSPECIFIC as equivalent in pathnames Closes #193 See merge request cmucl/cmucl!144 - - - - - 2 changed files: - src/code/pathname.lisp - tests/issues.lisp Changes: ===================================== src/code/pathname.lisp ===================================== @@ -496,14 +496,22 @@ (cons (and (consp that) (compare-component (car this) (car that)) - (compare-component (cdr this) (cdr that))))))) + (compare-component (cdr this) (cdr that)))) + (symbol + ;; Handle NIL and :UNSPECIFIC as being equivalent + (or (and (eq this :unspecific) + (null that)) + (and (null this) + (eq that :unspecific))))))) ;; Compare the version component. We treat NIL to be EQUAL to -;; :NEWEST. +;; :NEWEST or :UNSPECIFIC. (defun compare-version-component (this that) (or (eql this that) - (and (null this) (eq that :newest)) - (and (null that) (eq this :newest)))) + (if (and (member this '(nil :newest :unspecific) :test #'eq) + (member that '(nil :newest :unspecific) :test #'eq)) + t + nil))) ;;;; Pathname functions. ===================================== tests/issues.lisp ===================================== @@ -944,3 +944,36 @@ (assert-true (typep idf-max-expo 'kernel:double-float-int-exponent)) (assert-true (typep (1- idf-max-expo) 'kernel:double-float-int-exponent)) (assert-false (typep (1+ idf-max-expo) 'kernel:double-float-int-exponent)))) + +(define-test issue.192.device + (assert-true (equal (make-pathname :device :unspecific) + (make-pathname :device nil))) + (assert-true (equal (make-pathname :device nil) + (make-pathname :device :unspecific)))) + +(define-test issue.192.name + (assert-true (equal (make-pathname :name :unspecific) + (make-pathname :name nil))) + (assert-true (equal (make-pathname :name nil) + (make-pathname :name :unspecific)))) + +(define-test issue.192.type + (assert-true (equal (make-pathname :type :unspecific) + (make-pathname :type nil))) + (assert-true (equal (make-pathname :type nil) + (make-pathname :type :unspecific)))) + +(define-test issue.192.version + (assert-true (equal (make-pathname :version :newest) + (make-pathname :version nil))) + (assert-true (equal (make-pathname :version nil) + (make-pathname :version :newest))) + (assert-true (equal (make-pathname :version :unspecific) + (make-pathname :version nil))) + (assert-true (equal (make-pathname :version nil) + (make-pathname :version :unspecific))) + (assert-true (equal (make-pathname :version :unspecific) + (make-pathname :version :newest))) + (assert-true (equal (make-pathname :version :newest) + (make-pathname :version :unspecific))) +) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/48aa21e0b2ff64c1db1688… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/48aa21e0b2ff64c1db1688… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-143-ansi-compliance-failure-listen-extra-argument
by Jon Boone (＠jboone) 29 Apr '23

29 Apr '23

Jon Boone pushed new branch issue-143-ansi-compliance-failure-listen-extra-argument at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-143-ansi-compliance… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-193-nil-unspecific-equivalent] Treat NIL, :NEWEST, and :UNSPECIFIC as equivalent for :version
by Raymond Toy (＠rtoy) 29 Apr '23

29 Apr '23

Raymond Toy pushed to branch issue-193-nil-unspecific-equivalent at cmucl / cmucl Commits: c487a6cf by Raymond Toy at 2023-04-29T18:53:42-07:00 Treat NIL, :NEWEST, and :UNSPECIFIC as equivalent for :version Add tests for this too. - - - - - 2 changed files: - src/code/pathname.lisp - tests/issues.lisp Changes: ===================================== src/code/pathname.lisp ===================================== @@ -505,11 +505,13 @@ (eq that :unspecific))))))) ;; Compare the version component. We treat NIL to be EQUAL to -;; :NEWEST. +;; :NEWEST or :UNSPECIFIC. (defun compare-version-component (this that) (or (eql this that) - (and (null this) (eq that :newest)) - (and (null that) (eq this :newest)))) + (if (and (member this '(nil :newest :unspecific) :test #'eq) + (member that '(nil :newest :unspecific) :test #'eq)) + t + nil))) ;;;; Pathname functions. ===================================== tests/issues.lisp ===================================== @@ -962,3 +962,18 @@ (make-pathname :type nil))) (assert-true (equal (make-pathname :type nil) (make-pathname :type :unspecific)))) + +(define-test issue.192.version + (assert-true (equal (make-pathname :version :newest) + (make-pathname :version nil))) + (assert-true (equal (make-pathname :version nil) + (make-pathname :version :newest))) + (assert-true (equal (make-pathname :version :unspecific) + (make-pathname :version nil))) + (assert-true (equal (make-pathname :version nil) + (make-pathname :version :unspecific))) + (assert-true (equal (make-pathname :version :unspecific) + (make-pathname :version :newest))) + (assert-true (equal (make-pathname :version :newest) + (make-pathname :version :unspecific))) +) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c487a6cf06ef73aaa361fe0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c487a6cf06ef73aaa361fe0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-193-nil-unspecific-equivalent] Add tests for nil being equivalent to :unspecific
by Raymond Toy (＠rtoy) 29 Apr '23

29 Apr '23

Raymond Toy pushed to branch issue-193-nil-unspecific-equivalent at cmucl / cmucl Commits: dd8b90e0 by Raymond Toy at 2023-04-29T07:33:03-07:00 Add tests for nil being equivalent to :unspecific Handle the device, name, and type components. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -944,3 +944,21 @@ (assert-true (typep idf-max-expo 'kernel:double-float-int-exponent)) (assert-true (typep (1- idf-max-expo) 'kernel:double-float-int-exponent)) (assert-false (typep (1+ idf-max-expo) 'kernel:double-float-int-exponent)))) + +(define-test issue.192.device + (assert-true (equal (make-pathname :device :unspecific) + (make-pathname :device nil))) + (assert-true (equal (make-pathname :device nil) + (make-pathname :device :unspecific)))) + +(define-test issue.192.name + (assert-true (equal (make-pathname :name :unspecific) + (make-pathname :name nil))) + (assert-true (equal (make-pathname :name nil) + (make-pathname :name :unspecific)))) + +(define-test issue.192.type + (assert-true (equal (make-pathname :type :unspecific) + (make-pathname :type nil))) + (assert-true (equal (make-pathname :type nil) + (make-pathname :type :unspecific)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dd8b90e0244f9c496ce31b2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dd8b90e0244f9c496ce31b2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-193-nil-unspecific-equivalent
by Raymond Toy (＠rtoy) 29 Apr '23

29 Apr '23

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

1 0

[Git][cmucl/cmucl][master] Update release notes for issue #192
by Raymond Toy (＠rtoy) 28 Apr '23

28 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 48aa21e0 by Raymond Toy at 2023-04-28T20:59:32-07:00 Update release notes for issue #192 - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -84,6 +84,7 @@ public domain. * ~~#173~~ Add pprinter for `define-assembly-routine`. * ~~#176~~ `SHORT-SITE-NAME` and `LONG-SITE-NAME` return `NIL`. * ~~#177~~ Add pprinter for `deftransform` and `defoptimizer`. + * ~~#192~~ Print radix marker in disassemblies and adjust note column to be larger 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/-/commit/48aa21e0b2ff64c1db1688b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/48aa21e0b2ff64c1db1688b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #192: Print radix marker in disassemblies; adjust note column
by Raymond Toy (＠rtoy) 28 Apr '23

28 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 784a143b by Raymond Toy at 2023-04-29T03:54:43+00:00 Fix #192: Print radix marker in disassemblies; adjust note column - - - - - ce57a9f2 by Raymond Toy at 2023-04-29T03:55:21+00:00 Merge branch 'issue-192-disassemble-prints-radix-marker' into 'master' Fix #192: Print radix marker in disassemblies; adjust note column Closes #192 See merge request cmucl/cmucl!143 - - - - - 4 changed files: - src/code/exports.lisp - src/code/misc.lisp - src/compiler/disassem.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/exports.lisp ===================================== @@ -1365,7 +1365,9 @@ (:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT" - "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" "DISASSEMBLE-SEGMENT" + "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" + "*DISASSEMBLE-PRINT-RADIX*" + "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS" "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-PROP" "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH" "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START" "FIELD-TYPE" ===================================== src/code/misc.lisp ===================================== @@ -181,5 +181,7 @@ "Disassemble the machine code associated with OBJECT, which can be a function, a lambda expression, or a symbol with a function definition. If it is not already compiled, the compiler is called to produce something to - disassemble." + disassemble. + + Also see disassem:disassemble for finer control of disassembly." (disassem:disassemble object)) ===================================== src/compiler/disassem.lisp ===================================== @@ -102,7 +102,9 @@ "The width of the column in which instruction-names are printed. NIL means use the default. A value of zero gives the effect of not aligning the arguments at all.") -(defvar *note-column* 45 +(defvar *note-column* + #-x86 45 + #+x86 55 "The column in which end-of-line comments for notes are started.") (defconstant default-opcode-column-width 6) @@ -3316,12 +3318,16 @@ :format-control (intl:gettext "Can't make a compiled function from ~S") :format-arguments (list name))))) +(defvar *disassemble-print-radix* + t + "Default value for :radix argument for disassem:disassemble") + (defun disassemble (object &key (stream *standard-output*) (use-labels t) (backend c:*native-backend*) (base 16) (case :downcase) - (radix *print-radix*)) + (radix *disassemble-print-radix*)) "Disassemble the machine code associated with OBJECT, which can be a function, a lambda expression, or a symbol with a function definition. If it is not already compiled, the compiler is called to produce something to @@ -3336,7 +3342,7 @@ :Radix The disassembler uses the specified base, case, and radix when printing the disassembled code. The default values are 16, - :downcase, and *print-radix*, respectively." + :downcase, and *disassemble-print-radix*, respectively." (declare (type (or function symbol cons) object) (type (or (member t) stream) stream) (type (member t nil) use-labels) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -5694,7 +5694,9 @@ 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 @@ -17387,6 +17389,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" @@ -17405,7 +17411,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/8826d962b0a76b7b0d1cfd… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8826d962b0a76b7b0d1cfd… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-192-disassemble-prints-radix-marker] Add *disassemble-print-radix* as the default for :radix
by Raymond Toy (＠rtoy) 28 Apr '23

28 Apr '23

Raymond Toy pushed to branch issue-192-disassemble-prints-radix-marker at cmucl / cmucl Commits: c662da73 by Raymond Toy at 2023-04-28T07:20:34-07:00 Add *disassemble-print-radix* as the default for :radix Export this symbol too to make it clear that this is the API and we're allowing users to modify this. Update `disassemble` docstring to mention `disassem:disasemble`. - - - - - 4 changed files: - src/code/exports.lisp - src/code/misc.lisp - src/compiler/disassem.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/exports.lisp ===================================== @@ -1368,7 +1368,9 @@ (:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT" - "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" "DISASSEMBLE-SEGMENT" + "DISASSEMBLE-FUNCTION" "DISASSEMBLE-MEMORY" + "*DISASSEMBLE-PRINT-RADIX*" + "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS" "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-PROP" "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH" "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START" "FIELD-TYPE" ===================================== src/code/misc.lisp ===================================== @@ -181,5 +181,7 @@ "Disassemble the machine code associated with OBJECT, which can be a function, a lambda expression, or a symbol with a function definition. If it is not already compiled, the compiler is called to produce something to - disassemble." + disassemble. + + Also see disassem:disassemble for finer control of disassembly." (disassem:disassemble object)) ===================================== src/compiler/disassem.lisp ===================================== @@ -3318,12 +3318,16 @@ :format-control (intl:gettext "Can't make a compiled function from ~S") :format-arguments (list name))))) +(defvar *disassemble-print-radix* + t + "Default value for :radix argument for disassem:disassemble") + (defun disassemble (object &key (stream *standard-output*) (use-labels t) (backend c:*native-backend*) (base 16) (case :downcase) - (radix t)) + (radix *disassemble-print-radix*)) "Disassemble the machine code associated with OBJECT, which can be a function, a lambda expression, or a symbol with a function definition. If it is not already compiled, the compiler is called to produce something to @@ -3338,7 +3342,7 @@ :Radix The disassembler uses the specified base, case, and radix when printing the disassembled code. The default values are 16, - :downcase, and T, respectively." + :downcase, and *disassemble-print-radix*, respectively." (declare (type (or function symbol cons) object) (type (or (member t) stream) stream) (type (member t nil) use-labels) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -5694,7 +5694,9 @@ 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 @@ -17387,6 +17389,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" @@ -17405,7 +17411,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 T, respectively." +" :downcase, and *disassemble-print-radix*, respectively." msgstr "" #: src/compiler/disassem.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c662da73c4ea1e29e947b92… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c662da73c4ea1e29e947b92… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #185: Use shorter instructions on x86
by Raymond Toy (＠rtoy) 27 Apr '23

27 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 677c3ccf by Raymond Toy at 2023-04-27T22:55:29+00:00 Fix #185: Use shorter instructions on x86 - - - - - 8826d962 by Raymond Toy at 2023-04-27T22:55:39+00:00 Merge branch 'issue-185-x86-shorter-insts' into 'master' Fix #185: Use shorter instructions on x86 Closes #185 See merge request cmucl/cmucl!138 - - - - - 1 changed file: - src/compiler/x86/insts.lisp Changes: ===================================== src/compiler/x86/insts.lisp ===================================== @@ -1254,17 +1254,19 @@ ;;;; Arithmetic +(defun sign-extend (x n) + "Sign extend the N-bit number X" + (if (logbitp (1- n) x) + (logior (ash -1 (1- n)) x) + x)) + (defun emit-random-arith-inst (name segment dst src opcode &optional allow-constants) (let ((size (matching-operand-size dst src))) (maybe-emit-operand-size-prefix segment size) (cond ((integerp src) - (cond ((and (not (eq size :byte)) (<= -128 src 127)) - (emit-byte segment #b10000011) - (emit-ea segment dst opcode allow-constants) - (emit-byte segment src)) - ((accumulator-p dst) + (cond ((accumulator-p dst) (emit-byte segment (dpb opcode (byte 3 3) @@ -1272,6 +1274,10 @@ #b00000100 #b00000101))) (emit-sized-immediate segment size src)) + ((and (not (eq size :byte)) (<= -128 (sign-extend src 32) 127)) + (emit-byte segment #b10000011) + (emit-ea segment dst opcode allow-constants) + (emit-byte segment (ldb (byte 8 0) src))) (t (emit-byte segment (if (eq size :byte) #b10000000 #b10000001)) (emit-ea segment dst opcode allow-constants) @@ -1291,12 +1297,24 @@ (t (error "Bogus operands to ~A" name))))) +(defun arith-logical-constant-control (chunk inst stream dstate) + (declare (ignore inst stream)) + (when (= (ldb (byte 8 0) chunk) #b10000011) + (let ((imm (sign-extend (ldb (byte 8 16) chunk) 8))) + (when (minusp imm) + (disassem:note #'(lambda (stream) + (princ (ldb (byte 32 0) imm) stream)) + dstate))))) + (eval-when (compile eval) - (defun arith-inst-printer-list (subop) - `((accum-imm ((op ,(dpb subop (byte 3 2) #b0000010)))) - (reg/mem-imm ((op (#b1000000 ,subop)))) + (defun arith-inst-printer-list (subop &key control) + `((accum-imm ((op ,(dpb subop (byte 3 2) #b0000010))) + ,@(when control `(:default :control #',control))) + (reg/mem-imm ((op (#b1000000 ,subop))) + ,@(when control `(:default :control #',control))) (reg/mem-imm ((op (#b1000001 ,subop)) - (imm nil :type signed-imm-byte))) + (imm nil :type signed-imm-byte)) + ,@(when control `(:default :control #',control))) (reg-reg/mem-dir ((op ,(dpb subop (byte 3 1) #b000000)))))) ) @@ -1602,7 +1620,7 @@ (define-instruction and (segment dst src) (:printer-list - (arith-inst-printer-list #b100)) + (arith-inst-printer-list #b100 :control 'arith-logical-constant-control)) (:emitter (emit-random-arith-inst "AND" segment dst src #b100))) @@ -1639,13 +1657,13 @@ (define-instruction or (segment dst src) (:printer-list - (arith-inst-printer-list #b001)) + (arith-inst-printer-list #b001 :control 'arith-logical-constant-control)) (:emitter (emit-random-arith-inst "OR" segment dst src #b001))) (define-instruction xor (segment dst src) (:printer-list - (arith-inst-printer-list #b110)) + (arith-inst-printer-list #b110 :control 'arith-logical-constant-control)) (:emitter (emit-random-arith-inst "XOR" segment dst src #b110))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/acb29d8f6a3190744a0427… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/acb29d8f6a3190744a0427… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-192-disassemble-prints-radix-marker
by Raymond Toy (＠rtoy) 27 Apr '23

27 Apr '23

Raymond Toy pushed new branch issue-192-disassemble-prints-radix-marker at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-192-disassemble-pri… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-185-x86-shorter-insts] Simplify test using `sign-extend`.
by Raymond Toy (＠rtoy) 26 Apr '23

26 Apr '23

Raymond Toy pushed to branch issue-185-x86-shorter-insts at cmucl / cmucl Commits: db1e9b11 by Carl S. Shapiro at 2023-04-26T22:59:49+00:00 Simplify test using `sign-extend`. - - - - - 1 changed file: - src/compiler/x86/insts.lisp Changes: ===================================== src/compiler/x86/insts.lisp ===================================== @@ -1274,12 +1274,7 @@ #b00000100 #b00000101))) (emit-sized-immediate segment size src)) - ((and (not (eq size :byte)) - (or (<= -128 src 127) - ;; Check that the top 25 bits are all ones so - ;; that sign-extending an 8-bit value produces - ;; the desired 32-bit value. - (= (ldb (byte 25 7) src) #x1ffffff))) + ((and (not (eq size :byte)) (<= -128 (sign-extend src 32) 127)) (emit-byte segment #b10000011) (emit-ea segment dst opcode allow-constants) (emit-byte segment (ldb (byte 8 0) src))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/db1e9b11dc19a5c3cedea51… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/db1e9b11dc19a5c3cedea51… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #131: Move unix-uname to contrib/unix
by Raymond Toy (＠rtoy) 26 Apr '23

26 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: c2a99381 by Raymond Toy at 2023-04-26T21:38:42+00:00 Fix #131: Move unix-uname to contrib/unix - - - - - acb29d8f by Raymond Toy at 2023-04-26T21:38:42+00:00 Merge branch 'issue-131-move-unix-uname' into 'master' Fix #131: Move unix-uname to contrib/unix Closes #131 See merge request cmucl/cmucl!142 - - - - - 5 changed files: - src/code/exports.lisp - src/code/unix.lisp - src/contrib/unix/unix-glibc2.lisp - src/contrib/unix/unix.lisp - src/i18n/locale/cmucl-unix.pot Changes: ===================================== src/code/exports.lisp ===================================== @@ -249,9 +249,6 @@ "OPEN-DIR" "READ-DIR" - ;; linux-os, sunos-os. - "UNIX-UNAME" - ;; filesys.lisp "UNIX-GETPWUID" @@ -411,7 +408,7 @@ "TIOCSETP" "TTY-IUCLC" "TTY-OCRNL" "TTY-OFDEL" "TTY-OFILL" "TTY-OLCUC" "TTY-ONLRET" "TTY-ONOCR" - "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID" "UNIX-UNAME" + "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID" "UTSNAME" ) #+solaris ===================================== src/code/unix.lisp ===================================== @@ -2724,27 +2724,6 @@ (machine (array char 65)) (domainname (array char 65)))) -(defun unix-uname () - _N"Unix-uname returns information from the uname(2) system call. - The return values are - - Name of the operating system - Name of this node within some implementation-defined network, if any - Release level of this operating system - Version level of this operating system release - Name of the hardware type on which the system is running" - (with-alien ((names (struct utsname))) - (syscall* (#-(or freebsd (and x86 solaris)) "uname" - #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h - #+freebsd "__xuname" #+freebsd int - (* (struct utsname))) - (values (cast (slot names 'sysname) c-string) - (cast (slot names 'nodename) c-string) - (cast (slot names 'release) c-string) - (cast (slot names 'version) c-string) - (cast (slot names 'machine) c-string)) - #+freebsd 256 - (addr names)))) ;;; For asdf. Well, only getenv, but might as well make it symmetric. ===================================== src/contrib/unix/unix-glibc2.lisp ===================================== @@ -1908,5 +1908,26 @@ in at a time in poll.") :until (zerop (sap-int (alien-sap member))) :collect (string (cast member c-call:c-string)))))))) +(defun unix-uname () + _N"Unix-uname returns information from the uname(2) system call. + The return values are + + Name of the operating system + Name of this node within some implementation-defined network, if any + Release level of this operating system + Version level of this operating system release + Name of the hardware type on which the system is running" + (with-alien ((names (struct utsname))) + (syscall* (#-(or freebsd (and x86 solaris)) "uname" + #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h + #+freebsd "__xuname" #+freebsd int + (* (struct utsname))) + (values (cast (slot names 'sysname) c-string) + (cast (slot names 'nodename) c-string) + (cast (slot names 'release) c-string) + (cast (slot names 'version) c-string) + (cast (slot names 'machine) c-string)) + #+freebsd 256 + (addr names)))) ;; EOF ===================================== src/contrib/unix/unix.lisp ===================================== @@ -929,4 +929,25 @@ _N"Unix-getpagesize returns the number of bytes in a system page." (int-syscall ("getpagesize"))) +(defun unix-uname () + _N"Unix-uname returns information from the uname(2) system call. + The return values are + + Name of the operating system + Name of this node within some implementation-defined network, if any + Release level of this operating system + Version level of this operating system release + Name of the hardware type on which the system is running" + (with-alien ((names (struct utsname))) + (syscall* (#-(or freebsd (and x86 solaris)) "uname" + #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h + #+freebsd "__xuname" #+freebsd int + (* (struct utsname))) + (values (cast (slot names 'sysname) c-string) + (cast (slot names 'nodename) c-string) + (cast (slot names 'release) c-string) + (cast (slot names 'version) c-string) + (cast (slot names 'machine) c-string)) + #+freebsd 256 + (addr names)))) ;; EOF ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1370,18 +1370,6 @@ msgid "" " and its children." msgstr "" -#: src/code/unix.lisp -msgid "" -"Unix-uname returns information from the uname(2) system call.\n" -" The return values are\n" -"\n" -" Name of the operating system\n" -" Name of this node within some implementation-defined network, if any\n" -" Release level of this operating system\n" -" Version level of this operating system release\n" -" Name of the hardware type on which the system is running" -msgstr "" - #: src/code/unix.lisp msgid "" "Get the value of the environment variable named Name. If no such\n" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/90a5e5690f8baa91a3484f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/90a5e5690f8baa91a3484f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-131-move-unix-uname
by Raymond Toy (＠rtoy) 25 Apr '23

25 Apr '23

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

1 0

[Git][cmucl/cmucl][issue-185-x86-shorter-insts] Simplify testing for signed-imm-byte data using sign-extend function.,
by Raymond Toy (＠rtoy) 25 Apr '23

25 Apr '23

Raymond Toy pushed to branch issue-185-x86-shorter-insts at cmucl / cmucl Commits: 54ba7245 by Carl S. Shapiro at 2023-04-25T23:53:54+00:00 Simplify testing for signed-imm-byte data using sign-extend function., - - - - - 1 changed file: - src/compiler/x86/insts.lisp Changes: ===================================== src/compiler/x86/insts.lisp ===================================== @@ -1304,19 +1304,12 @@ (defun arith-logical-constant-control (chunk inst stream dstate) (declare (ignore inst stream)) - (let ((opcode (ldb (byte 8 0) chunk)) - (signed-imm-data (ldb (byte 8 16) chunk))) - ;; See emit-random-arith-inst for the case where we use an 8-bit - ;; signed immediate value in the instruction. We print a note - ;; only if we have a 8-bit immediate and the 8-bit value is - ;; negative (MSB is 1). - (when (and (= opcode #b10000011) - (logbitp 7 signed-imm-data)) - (disassem:note #'(lambda (stream) - (princ (ldb (byte 32 0) - (sign-extend signed-imm-data 8)) - stream)) - dstate)))) + (when (= (ldb (byte 8 0) chunk) #b10000011) + (let ((imm (sign-extend (ldb (byte 8 16) chunk) 8))) + (when (minusp imm) + (disassem:note #'(lambda (stream) + (princ (ldb (byte 32 0) imm) stream)) + dstate))))) (eval-when (compile eval) (defun arith-inst-printer-list (subop &key control) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/54ba7245abe655147e6dfe0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/54ba7245abe655147e6dfe0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #189: Move get-system-info from unix.lisp to os.lisp
by Raymond Toy (＠rtoy) 25 Apr '23

25 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 31825793 by Raymond Toy at 2023-04-25T20:49:36+00:00 Fix #189: Move get-system-info from unix.lisp to os.lisp - - - - - 90a5e569 by Raymond Toy at 2023-04-25T20:49:36+00:00 Merge branch 'issue-189-move-get-system-info' into 'master' Fix #189: Move get-system-info from unix.lisp to os.lisp Closes #189 See merge request cmucl/cmucl!141 - - - - - 5 changed files: - src/code/os.lisp - src/code/unix.lisp - src/i18n/locale/cmucl-linux-os.pot - + src/i18n/locale/cmucl-os.pot - src/i18n/locale/cmucl-unix.pot Changes: ===================================== src/code/os.lisp ===================================== @@ -15,7 +15,7 @@ (in-package "SYSTEM") (use-package "EXTENSIONS") -(intl:textdomain "cmucl-linux-os") +(intl:textdomain "cmucl-os") (export '(get-page-size)) @@ -33,3 +33,27 @@ maybe-page-size)) +;;; GET-SYSTEM-INFO -- Interface +;;; +;;; Return system time, user time (in usec) and number of page +;;; faults. +;;; +(defun get-system-info () + _N"Get system information consisting of the user time (in usec), the + system time (in usec) and the number of major page faults." + (alien:with-alien ((utime unix:int64-t 0) + (stime unix:int64-t 0) + (major-fault c-call:long 0)) + (let ((rc (alien:alien-funcall + (alien:extern-alien "os_get_system_info" + (function c-call:int + (* unix:int64-t) + (* unix:int64-t) + (* c-call:long))) + (alien:addr utime) + (alien:addr stime) + (alien:addr major-fault)))) + (when (minusp rc) + (error (intl:gettext "Unix system call getrusage failed: ~A.") + (unix:get-unix-error-msg utime))) + (values utime stime major-fault)))) ===================================== src/code/unix.lisp ===================================== @@ -2921,28 +2921,3 @@ (extern-alien "os_get_locale_codeset" (function (* char)))) c-string)) - -;;; GET-SYSTEM-INFO -- Interface -;;; -;;; Return system time, user time (in usec) and number of page -;;; faults. -;;; -(defun get-system-info () - "Get system information consisting of the user time (in usec), the - system time (in usec) and the number of major page faults." - (with-alien ((utime int64-t 0) - (stime int64-t 0) - (major-fault c-call:long 0)) - (let ((rc (alien-funcall - (extern-alien "os_get_system_info" - (function c-call:int - (* int64-t) - (* int64-t) - (* c-call:long))) - (addr utime) - (addr stime) - (addr major-fault)))) - (when (minusp rc) - (error (intl:gettext "Unix system call getrusage failed: ~A.") - (unix:get-unix-error-msg utime))) - (values utime stime major-fault)))) ===================================== src/i18n/locale/cmucl-linux-os.pot ===================================== @@ -19,14 +19,6 @@ msgstr "" msgid "Getpagesize failed: ~A" msgstr "" -#: src/code/os.lisp -msgid "Return the system page size" -msgstr "" - -#: src/code/os.lisp -msgid "get-page-size failed: ~A" -msgstr "" - #: src/code/signal.lisp msgid "Stack fault on coprocessor" msgstr "" ===================================== src/i18n/locale/cmucl-os.pot ===================================== @@ -0,0 +1,35 @@ +#@ cmucl-os + +# SOME DESCRIPTIVE TITLE +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n" +"Report-Msgid-Bugs-To: \n" +"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL(a)li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +#: src/code/os.lisp +msgid "Return the system page size" +msgstr "" + +#: src/code/os.lisp +msgid "get-page-size failed: ~A" +msgstr "" + +#: src/code/os.lisp +msgid "" +"Get system information consisting of the user time (in usec), the\n" +" system time (in usec) and the number of major page faults." +msgstr "" + +#: src/code/os.lisp +msgid "Unix system call getrusage failed: ~A." +msgstr "" + ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1444,13 +1444,3 @@ msgstr "" msgid "Get the codeset from the locale" msgstr "" -#: src/code/unix.lisp -msgid "" -"Get system information consisting of the user time (in usec), the\n" -" system time (in usec) and the number of major page faults." -msgstr "" - -#: src/code/unix.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "" - View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/412d65234e9caf87ba2f9b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/412d65234e9caf87ba2f9b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-189-move-get-system-info] Update pot files
by Raymond Toy (＠rtoy) 21 Apr '23

21 Apr '23

Raymond Toy pushed to branch issue-189-move-get-system-info at cmucl / cmucl Commits: 527160e8 by Raymond Toy at 2023-04-21T07:17:03-07:00 Update pot files cmucl-linux-os.pot has changed because we moved some functions. Likewise cmucl-unix.pot has changed too. Add cmucl-os.pot to hold the new OS strings from os.lisp. - - - - - 3 changed files: - src/i18n/locale/cmucl-linux-os.pot - + src/i18n/locale/cmucl-os.pot - src/i18n/locale/cmucl-unix.pot Changes: ===================================== src/i18n/locale/cmucl-linux-os.pot ===================================== @@ -19,14 +19,6 @@ msgstr "" msgid "Getpagesize failed: ~A" msgstr "" -#: src/code/os.lisp -msgid "Return the system page size" -msgstr "" - -#: src/code/os.lisp -msgid "get-page-size failed: ~A" -msgstr "" - #: src/code/signal.lisp msgid "Stack fault on coprocessor" msgstr "" ===================================== src/i18n/locale/cmucl-os.pot ===================================== @@ -0,0 +1,35 @@ +#@ cmucl-os + +# SOME DESCRIPTIVE TITLE +# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR +# +#, fuzzy +msgid "" +msgstr "" +"Project-Id-Version: PACKAGE VERSION\n" +"Report-Msgid-Bugs-To: \n" +"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n" +"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" +"Language-Team: LANGUAGE <LL(a)li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +#: src/code/os.lisp +msgid "Return the system page size" +msgstr "" + +#: src/code/os.lisp +msgid "get-page-size failed: ~A" +msgstr "" + +#: src/code/os.lisp +msgid "" +"Get system information consisting of the user time (in usec), the\n" +" system time (in usec) and the number of major page faults." +msgstr "" + +#: src/code/os.lisp +msgid "Unix system call getrusage failed: ~A." +msgstr "" + ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1444,13 +1444,3 @@ msgstr "" msgid "Get the codeset from the locale" msgstr "" -#: src/code/unix.lisp -msgid "" -"Get system information consisting of the user time (in usec), the\n" -" system time (in usec) and the number of major page faults." -msgstr "" - -#: src/code/unix.lisp -msgid "Unix system call getrusage failed: ~A." -msgstr "" - View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/527160e8cc697f24a5c980c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/527160e8cc697f24a5c980c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-189-move-get-system-info
by Raymond Toy (＠rtoy) 21 Apr '23

21 Apr '23

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

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #180: Move get-page-size to C
by Raymond Toy (＠rtoy) 21 Apr '23

21 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f52fcecb by Raymond Toy at 2023-04-21T13:35:02+00:00 Fix #180: Move get-page-size to C - - - - - 412d6523 by Raymond Toy at 2023-04-21T13:35:02+00:00 Merge branch 'issue-180-get-page-size-in-c' into 'master' Fix #180: Move get-page-size to C Closes #180 See merge request cmucl/cmucl!136 - - - - - 14 changed files: - src/code/bsd-os.lisp - src/code/hpux-os.lisp - src/code/irix-os.lisp - + src/code/os.lisp - src/code/osf1-os.lisp - src/code/sunos-os.lisp - src/code/unix.lisp - src/contrib/unix/unix.lisp - src/i18n/locale/cmucl-linux-os.pot - src/i18n/locale/cmucl-unix.pot - src/lisp/os-common.c - src/pcl/simple-streams/internal.lisp - src/tools/worldbuild.lisp - src/tools/worldcom.lisp Changes: ===================================== src/code/bsd-os.lisp ===================================== @@ -56,13 +56,17 @@ (defun os-init () (setf *software-version* nil)) -;;; GET-PAGE-SIZE -- Interface +;;; GET-SYSTEM-INFO -- Interface ;;; -;;; Return the system page size. +;;; Return system time, user time and number of page faults. ;;; -(defun get-page-size () - (multiple-value-bind (val err) - (unix:unix-getpagesize) - (unless val - (error (intl:gettext "Getpagesize failed: ~A") (unix:get-unix-error-msg err))) - val)) +(defun get-system-info () + (multiple-value-bind (err? utime stime maxrss ixrss idrss + isrss minflt majflt) + (unix:unix-getrusage unix:rusage_self) + (declare (ignore maxrss ixrss idrss isrss minflt)) + (unless err? + (error (intl:gettext "Unix system call getrusage failed: ~A.") + (unix:get-unix-error-msg utime))) + + (values utime stime majflt))) ===================================== src/code/hpux-os.lisp ===================================== @@ -46,13 +46,17 @@ ;; Decache version on save, because it might not be the same when we restart. (setf *software-version* nil)) -;;; GET-PAGE-SIZE -- Interface -;;; -;;; Return the system page size. -;;; -(defun get-page-size () - (multiple-value-bind (val err) - (unix:unix-getpagesize) - (unless val - (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err))) - val)) +;;; GET-SYSTEM-INFO -- Interface +;;; +;;; Return system time, user time and number of page faults. +;;; +(defun get-system-info () + (multiple-value-bind + (err? utime stime maxrss ixrss idrss isrss minflt majflt) + (unix:unix-getrusage unix:rusage_self) + (declare (ignore maxrss ixrss idrss isrss minflt)) + (cond ((null err?) + (error "Unix system call getrusage failed: ~A." + (unix:get-unix-error-msg utime))) + (T + (values utime stime majflt))))) ===================================== src/code/irix-os.lisp ===================================== @@ -48,14 +48,17 @@ ;; Decache version on save, because it might not be the same when we restart. (setf *software-version* nil)) -;;; GET-PAGE-SIZE -- Interface +;;; GET-SYSTEM-INFO -- Interface ;;; -;;; Return the system page size. +;;; Return system time, user time and number of page faults. ;;; -(defun get-page-size () - (multiple-value-bind (val err) - (unix:unix-getpagesize) - (unless val - (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err))) - val)) - +(defun get-system-info () + (multiple-value-bind + (err? utime stime maxrss ixrss idrss isrss minflt majflt) + (unix:unix-getrusage unix:rusage_self) + (declare (ignore maxrss ixrss idrss isrss minflt)) + (cond ((null err?) + (error "Unix system call getrusage failed: ~A." + (unix:get-unix-error-msg utime))) + (T + (values utime stime majflt))))) ===================================== src/code/os.lisp ===================================== @@ -0,0 +1,35 @@ +;;; -*- Package: SYSTEM -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project and +;;; has been placed in the public domain. +;;; +(ext:file-comment + "$Header: src/code/os.lisp $") +;;; +;;; ********************************************************************** +;;; +;;; OS interface functions for CMUCL. +;;; +;;; The code here is for OS functions that don't depend on the OS. + +(in-package "SYSTEM") +(use-package "EXTENSIONS") +(intl:textdomain "cmucl-linux-os") + +(export '(get-page-size)) + +;;; GET-PAGE-SIZE -- Interface +;;; +;;; Return the system page size. +;;; +(defun get-page-size () + _N"Return the system page size" + (let ((maybe-page-size (alien:alien-funcall + (alien:extern-alien "os_get_page_size" + (function c-call:long))))) + (when (minusp maybe-page-size) + (error (intl:gettext "get-page-size failed: ~A") (get-unix-error-msg err))) + maybe-page-size)) + + ===================================== src/code/osf1-os.lisp ===================================== @@ -47,14 +47,18 @@ (defun os-init () (setf *software-version* nil)) -;;; GET-PAGE-SIZE -- Interface +;;; GET-SYSTEM-INFO -- Interface ;;; -;;; Return the system page size. +;;; Return system time, user time and number of page faults. For +;;; page-faults, we add pagein and pageout, since that is a somewhat more +;;; interesting number than the total faults. ;;; -(defun get-page-size () - (multiple-value-bind (val err) - (unix:unix-getpagesize) - (unless val - (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err))) - val)) - +(defun get-system-info () + (multiple-value-bind (err? utime stime maxrss ixrss idrss + isrss minflt majflt) + (unix:unix-getrusage unix:rusage_self) + (declare (ignore maxrss ixrss idrss isrss minflt)) + (unless err? + (error "Unix system call getrusage failed: ~A." + (unix:get-unix-error-msg utime))) + (values utime stime majflt))) ===================================== src/code/sunos-os.lisp ===================================== @@ -41,13 +41,17 @@ ;; Decache version on save, because it might not be the same when we restart. (setf *software-version* nil)) -;;; GET-PAGE-SIZE -- Interface -;;; -;;; Return the system page size. -;;; -(defun get-page-size () - (multiple-value-bind (val err) - (unix:unix-getpagesize) - (unless val - (error (intl:gettext "Getpagesize failed: ~A") (unix:get-unix-error-msg err))) - val)) +;;; GET-SYSTEM-INFO -- Interface +;;; +;;; Return system time, user time and number of page faults. +;;; +(defun get-system-info () + (multiple-value-bind + (err? utime stime maxrss ixrss idrss isrss minflt majflt) + (unix:unix-getrusage unix:rusage_self) + (declare (ignore maxrss ixrss idrss isrss minflt)) + (cond ((null err?) + (error (intl:gettext "Unix system call getrusage failed: ~A.") + (unix:get-unix-error-msg utime))) + (T + (values utime stime majflt))))) ===================================== src/code/unix.lisp ===================================== @@ -1156,12 +1156,6 @@ _N"Unix-getuid returns the real user-id associated with the current process.") -;;; Unix-getpagesize returns the number of bytes in the system page. - -(defun unix-getpagesize () - _N"Unix-getpagesize returns the number of bytes in a system page." - (int-syscall ("getpagesize"))) - (defun unix-gethostname () _N"Unix-gethostname returns the name of the host machine as a string." (with-alien ((buf (array char 256))) ===================================== src/contrib/unix/unix.lisp ===================================== @@ -922,4 +922,11 @@ (slot rlimit 'rlim-cur) (slot rlimit 'rlim-max)) resource (addr rlimit)))) + +;;; Unix-getpagesize returns the number of bytes in the system page. + +(defun unix-getpagesize () + _N"Unix-getpagesize returns the number of bytes in a system page." + (int-syscall ("getpagesize"))) + ;; EOF ===================================== src/i18n/locale/cmucl-linux-os.pot ===================================== @@ -19,6 +19,14 @@ msgstr "" msgid "Getpagesize failed: ~A" msgstr "" +#: src/code/os.lisp +msgid "Return the system page size" +msgstr "" + +#: src/code/os.lisp +msgid "get-page-size failed: ~A" +msgstr "" + #: src/code/signal.lisp msgid "Stack fault on coprocessor" msgstr "" ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -470,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 "" ===================================== src/lisp/os-common.c ===================================== @@ -806,6 +806,14 @@ os_get_locale_codeset(void) return nl_langinfo(CODESET); } +long +os_get_page_size(void) +{ + errno = 0; + + return sysconf(_SC_PAGESIZE); +} + /* * Get system info consisting of the utime (in usec), the stime (in * usec) and the number of major page faults. The return value is the ===================================== src/pcl/simple-streams/internal.lisp ===================================== @@ -99,7 +99,7 @@ (tagbody again ;; Avoid CMUCL gengc write barrier - (do ((i start (+ i #.(unix:unix-getpagesize)))) + (do ((i start (+ i #.(sys:get-page-size)))) ((>= i end)) (declare (type fixnum i)) (setf (bref buffer i) 0)) ===================================== src/tools/worldbuild.lisp ===================================== @@ -147,6 +147,7 @@ '("target:code/bsd-os")) ,@(when (c:backend-featurep :Linux) '("target:code/linux-os")) + "target:code/os" "target:code/serve-event" "target:code/stream" "target:code/fd-stream" ===================================== src/tools/worldcom.lisp ===================================== @@ -173,6 +173,7 @@ (comf "target:code/bsd-os")) (when (c:backend-featurep :Linux) (comf "target:code/linux-os")) +(comf "target:code/os") (when (c:backend-featurep :pmax) (comf "target:code/pmax-vm")) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/de972bb39978a910da7fe1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/de972bb39978a910da7fe1… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-180-get-page-size-in-c] Update pot files
by Raymond Toy (＠rtoy) 19 Apr '23

19 Apr '23

Raymond Toy pushed to branch issue-180-get-page-size-in-c at cmucl / cmucl Commits: 6fc4c2a1 by Raymond Toy at 2023-04-19T10:05:41-07:00 Update pot files - - - - - 3 changed files: - src/i18n/locale/cmucl-linux-os.pot - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl-linux-os.pot ===================================== @@ -16,11 +16,15 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" #: src/code/linux-os.lisp -msgid "Returns a string describing version of the supporting software." +msgid "Getpagesize failed: ~A" msgstr "" -#: src/code/linux-os.lisp -msgid "Unix system call getrusage failed: ~A." +#: src/code/os.lisp +msgid "Return the system page size" +msgstr "" + +#: src/code/os.lisp +msgid "get-page-size failed: ~A" msgstr "" #: src/code/signal.lisp ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1445,6 +1445,12 @@ msgid "Get the codeset from the locale" msgstr "" #: src/code/unix.lisp -msgid "get-page-size failed: ~A" +msgid "" +"Get system information consisting of the user time (in usec), the\n" +" system time (in usec) and the number of major page faults." +msgstr "" + +#: src/code/unix.lisp +msgid "Unix system call getrusage failed: ~A." msgstr "" ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -5646,6 +5646,14 @@ msgstr "" msgid "Returns a string describing the supporting software." msgstr "" +#: src/code/misc.lisp +msgid "Version string for supporting software" +msgstr "" + +#: src/code/misc.lisp +msgid "Returns a string describing version of the supporting software." +msgstr "" + #: src/code/misc.lisp msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6fc4c2a1c1645c04661b21c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6fc4c2a1c1645c04661b21c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-180-get-page-size-in-c] Fix typo in comment
by Raymond Toy (＠rtoy) 19 Apr '23

19 Apr '23

Raymond Toy pushed to branch issue-180-get-page-size-in-c at cmucl / cmucl Commits: 02884455 by Raymond Toy at 2023-04-19T09:57:08-07:00 Fix typo in comment - - - - - 1 changed file: - src/code/os.lisp Changes: ===================================== src/code/os.lisp ===================================== @@ -1,8 +1,8 @@ ;;; -*- Package: SYSTEM -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the CMU Common Lisp project at -;;; and has been placed in the public domain. +;;; This code was written as part of the CMU Common Lisp project and +;;; has been placed in the public domain. ;;; (ext:file-comment "$Header: src/code/os.lisp $") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0288445524ea7ded798be22… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0288445524ea7ded798be22… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-180-get-page-size-in-c] 8 commits: Fix #170: Move get-system-info to C
by Raymond Toy (＠rtoy) 19 Apr '23

19 Apr '23

Raymond Toy pushed to branch issue-180-get-page-size-in-c at cmucl / cmucl Commits: bbfff3c0 by Raymond Toy at 2023-04-10T15:11:59+00:00 Fix #170: Move get-system-info to C - - - - - 5196072a by Raymond Toy at 2023-04-10T15:12:01+00:00 Merge branch 'issue-179-get-system-info-in-c' into 'master' Fix #170: Move get-system-info to C Closes #170 See merge request cmucl/cmucl!137 - - - - - b2aee0f7 by Raymond Toy at 2023-04-17T08:14:29-07:00 Update cmucl.pot with latest source Some docstrings have changed, so update cmucl.pot - - - - - fbb742ae by Raymond Toy at 2023-04-19T14:14:39+00:00 Fix #120: software-version in C - - - - - 501ca837 by Raymond Toy at 2023-04-19T14:14:40+00:00 Merge branch 'issue-120-software-type-in-c' into 'master' Fix #120: software-version in C Closes #120, #130, #146, #136, #142, #134, and #132 See merge request cmucl/cmucl!93 - - - - - 2556df76 by Raymond Toy at 2023-04-19T07:38:34-07:00 Update pot files Forgot to update these in the merges, so let's do them all now. - - - - - dc1654d6 by Raymond Toy at 2023-04-19T08:32:04-07:00 Merge branch 'master' into issue-180-get-page-size-in-c - - - - - 0dc0b228 by Raymond Toy at 2023-04-19T09:51:28-07:00 Add new file os.lisp to hold common OS functions independent of OS Update the build files to compile this new file. - - - - - 10 changed files: - src/code/bsd-os.lisp - src/code/linux-os.lisp - src/code/misc.lisp - + src/code/os.lisp - src/code/sunos-os.lisp - src/code/unix.lisp - src/general-info/release-21e.md - src/lisp/os-common.c - src/tools/worldbuild.lisp - src/tools/worldcom.lisp Changes: ===================================== src/code/bsd-os.lisp ===================================== @@ -48,19 +48,6 @@ #+Darwin "Darwin" #-(or freebsd NetBSD OpenBSD Darwin) "BSD") -(defvar *software-version* nil "Version string for supporting software") - -(defun software-version () - "Returns a string describing version of the supporting software." - (unless *software-version* - (setf *software-version* - (string-trim '(#\newline) - (with-output-to-string (stream) - (run-program "/usr/bin/uname" - '("-r") - :output stream))))) - *software-version*) - ;;; OS-Init initializes our operating-system interface. It sets the values ;;; of the global port variables to what they should be and calls the functions @@ -83,5 +70,3 @@ (unix:get-unix-error-msg utime))) (values utime stime majflt))) - - ===================================== src/code/linux-os.lisp ===================================== @@ -28,33 +28,20 @@ (setq *software-type* "Linux") -;;; Instead of reading /proc/version (which has some bugs with -;;; select() in Linux kernel 2.6.x) and instead of running uname -r, -;;; let's just get the info from uname(). -(defun software-version () - "Returns a string describing version of the supporting software." - (multiple-value-bind (sysname nodename release version) - (unix:unix-uname) - (declare (ignore sysname nodename)) - (concatenate 'string release " " version))) - - ;;; OS-Init initializes our operating-system interface. ;;; -(defun os-init () nil) +(defun os-init () + (setf *software-version* nil)) + +;;; GET-PAGE-SIZE -- Interface +;;; +;;; Return the system page size. +;;; +(defun get-page-size () + (multiple-value-bind (val err) + (unix:unix-getpagesize) + (unless val + (error (intl:gettext "Getpagesize failed: ~A") (unix:get-unix-error-msg err))) + val)) -;;; GET-SYSTEM-INFO -- Interface -;;; -;;; Return system time, user time and number of page faults. -;;; -(defun get-system-info () - (multiple-value-bind (err? utime stime maxrss ixrss idrss - isrss minflt majflt) - (unix:unix-getrusage unix:rusage_self) - (declare (ignore maxrss ixrss idrss isrss minflt)) - (unless err? - (error (intl:gettext "Unix system call getrusage failed: ~A.") - (unix:get-unix-error-msg utime))) - - (values utime stime majflt))) ===================================== src/code/misc.lisp ===================================== @@ -17,7 +17,7 @@ (in-package "LISP") (intl:textdomain "cmucl") -(export '(documentation *features* variable room +(export '(*features* variable room lisp-implementation-type lisp-implementation-version machine-type machine-version machine-instance software-type software-version short-site-name long-site-name dribble compiler-macro)) @@ -81,12 +81,32 @@ (unix:unix-gethostname)) (defvar *software-type* "Unix" - "The value of SOFTWARE-TYPE. Set in FOO-os.lisp.") + _N"The value of SOFTWARE-TYPE. Set in FOO-os.lisp.") (defun software-type () "Returns a string describing the supporting software." *software-type*) +(defvar *software-version* nil + _N"Version string for supporting software") + +(defun software-version () + _N"Returns a string describing version of the supporting software." + (unless *software-version* + (setf *software-version* + (let (version result) + (unwind-protect + (progn + (setf version + (alien:alien-funcall + (alien:extern-alien "os_software_version" + (function (alien:* c-call:c-string))))) + (setf result (alien:cast version c-call:c-string)))) + (if (zerop (length result)) + "Unknown" + result))) + *software-version*)) + (defvar *short-site-name* nil "The value of SHORT-SITE-NAME. Set in library:site-init.lisp.") ===================================== src/code/os.lisp ===================================== @@ -0,0 +1,35 @@ +;;; -*- Package: SYSTEM -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; and has been placed in the public domain. +;;; +(ext:file-comment + "$Header: src/code/os.lisp $") +;;; +;;; ********************************************************************** +;;; +;;; OS interface functions for CMUCL. +;;; +;;; The code here is for OS functions that don't depend on the OS. + +(in-package "SYSTEM") +(use-package "EXTENSIONS") +(intl:textdomain "cmucl-linux-os") + +(export '(get-page-size)) + +;;; GET-PAGE-SIZE -- Interface +;;; +;;; Return the system page size. +;;; +(defun get-page-size () + _N"Return the system page size" + (let ((maybe-page-size (alien:alien-funcall + (alien:extern-alien "os_get_page_size" + (function c-call:long))))) + (when (minusp maybe-page-size) + (error (intl:gettext "get-page-size failed: ~A") (get-unix-error-msg err))) + maybe-page-size)) + + ===================================== src/code/sunos-os.lisp ===================================== @@ -33,19 +33,6 @@ (setq *software-type* "SunOS") -(defvar *software-version* nil "Version string for supporting software") - -(defun software-version () - "Returns a string describing version of the supporting software." - (unless *software-version* - (setf *software-version* - (multiple-value-bind (sysname nodename release version) - (unix:unix-uname) - (declare (ignore sysname nodename)) - (concatenate 'string release " " version)))) - *software-version*) - - ;;; OS-INIT -- interface. ;;; ;;; Other OS dependent initializations. ===================================== src/code/unix.lisp ===================================== @@ -2922,14 +2922,27 @@ (function (* char)))) c-string)) -;;; GET-PAGE-SIZE -- Interface +;;; GET-SYSTEM-INFO -- Interface ;;; -;;; Return the system page size. +;;; Return system time, user time (in usec) and number of page +;;; faults. ;;; -(defun get-page-size () - (let ((maybe-page-size (alien-funcall - (extern-alien "os_get_page_size" - (function c-call:long))))) - (when (minusp maybe-page-size) - (error (intl:gettext "get-page-size failed: ~A") (get-unix-error-msg err))) - maybe-page-size)) +(defun get-system-info () + "Get system information consisting of the user time (in usec), the + system time (in usec) and the number of major page faults." + (with-alien ((utime int64-t 0) + (stime int64-t 0) + (major-fault c-call:long 0)) + (let ((rc (alien-funcall + (extern-alien "os_get_system_info" + (function c-call:int + (* int64-t) + (* int64-t) + (* c-call:long))) + (addr utime) + (addr stime) + (addr major-fault)))) + (when (minusp rc) + (error (intl:gettext "Unix system call getrusage failed: ~A.") + (unix:get-unix-error-msg utime))) + (values utime stime major-fault)))) ===================================== src/general-info/release-21e.md ===================================== @@ -49,10 +49,11 @@ public domain. * ~~#108~~ Update ASDF. * ~~#112~~ CLX can't connect to X server via inet sockets. * ~~#113~~ REQUIRE on contribs can pull in the wrong things via ASDF. - * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM. - * ~~#122~~ gcc 11 can't build cmucl. - * ~~#124~~ directory with `:wild-inferiors` doesn't descend subdirectories. - * ~~#125~~ Linux `unix-stat` returning incorrect values. + * ~~#120~~ `SOFTWARE-VERSION` is implemented in C. + * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM + * ~~#122~~ gcc 11 can't build cmucl + * ~~#124~~ directory with `:wild-inferiors` doesn't descend subdirectories + * ~~#125~~ Linux `unix-stat` returning incorrect values * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. * ~~#128~~ `QUIT` accepts an exit code. * ~~#130~~ Move file-author to C. ===================================== src/lisp/os-common.c ===================================== @@ -15,7 +15,9 @@ #include <stdio.h> #include <stdlib.h> #include <string.h> +#include <sys/resource.h> #include <sys/stat.h> +#include <sys/utsname.h> #include <unistd.h> #include <time.h> @@ -811,3 +813,53 @@ os_get_page_size(void) return sysconf(_SC_PAGESIZE); } + +/* + * Get system info consisting of the utime (in usec), the stime (in + * usec) and the number of major page faults. The return value is the + * return code from getrusage. + */ +int +os_get_system_info(int64_t* utime, int64_t* stime, long* major_fault) +{ + struct rusage usage; + int rc; + + *utime = 0; + *stime = 0; + *major_fault = 0; + + rc = getrusage(RUSAGE_SELF, &usage); + if (rc == 0) { + *utime = usage.ru_utime.tv_sec * 1000000 + usage.ru_utime.tv_usec; + *stime = usage.ru_stime.tv_sec * 1000000 + usage.ru_stime.tv_usec; + *major_fault = usage.ru_majflt; + } + + return rc; +} + +/* + * Get the software version. This is the same as "uname -r", the release. + * A pointer to a static string is returned. If uname fails, an empty + * string is returned. + */ +char* +os_software_version(void) +{ + struct utsname uts; + int status; + + /* + * Buffer large enough to hold the release. + */ + static char result[sizeof(uts.release)]; + result[0] = '\0'; + + status = uname(&uts); + if (status == 0) { + strcpy(result, uts.release); + } + + return result; +} ===================================== src/tools/worldbuild.lisp ===================================== @@ -147,6 +147,7 @@ '("target:code/bsd-os")) ,@(when (c:backend-featurep :Linux) '("target:code/linux-os")) + "target:code/os" "target:code/serve-event" "target:code/stream" "target:code/fd-stream" ===================================== src/tools/worldcom.lisp ===================================== @@ -173,6 +173,7 @@ (comf "target:code/bsd-os")) (when (c:backend-featurep :Linux) (comf "target:code/linux-os")) +(comf "target:code/os") (when (c:backend-featurep :pmax) (comf "target:code/pmax-vm")) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/42a8fe564c94711f742837… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/42a8fe564c94711f742837… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Add missing colon after "Version"
by Raymond Toy (＠rtoy) 19 Apr '23

19 Apr '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 38daa5e2 by Raymond Toy at 2023-04-19T15:13:28+00:00 Add missing colon after "Version" - - - - - de972bb3 by Raymond Toy at 2023-04-19T15:32:14+00:00 Merge branch 'rtoy-master-patch-80206' into 'master' Add missing colon after "Version" See merge request cmucl/cmucl!140 - - - - - 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. 21c] ## Additional context Add any other context about the problem here. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2556df76cb546b458f21fa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2556df76cb546b458f21fa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0