Raymond Toy pushed to branch master at cmucl / cmucl Commits: dcfe723e by Raymond Toy at 2026-06-30T20:33:49-07:00 Fix #513: Use correct form for :report in hex-parse-float-error - - - - - e4e5c574 by Raymond Toy at 2026-06-30T20:33:49-07:00 Merge branch 'issue-513-error-in-hex-float-parse-error-reporter' into 'master' Fix #513: Use correct form for :report in hex-parse-float-error Closes #513 See merge request cmucl/cmucl!387 - - - - - 2 changed files: - src/code/ext-code.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/ext-code.lisp ===================================== @@ -249,11 +249,11 @@ ((input :initarg :input :reader hex-float-parse-error-input) (position :initarg :position :reader hex-float-parse-error-position) (message :initarg :message :reader hex-float-parse-error-message)) - (:report #'(lambda (c s) - (format s "Hex float parse error~@[ at position ~D~]: ~A~@[ (input: ~S)~]" - (hex-float-parse-error-position c) - (hex-float-parse-error-message c) - (hex-float-parse-error-input c))))) + (:report (lambda (c s) + (format s "Hex float parse error~@[ at position ~D~]: ~A~@[ (input: ~S)~]" + (hex-float-parse-error-position c) + (hex-float-parse-error-message c) + (hex-float-parse-error-input c))))) (defun read-hex-float-from-stream (stream) "Read a C-style hex float from STREAM and return a float value. ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -6104,10 +6104,6 @@ msgid "" " Example: (format t \"~@/ext:format-hex-float/\" 3.0d0) => +0x1.8p+1" msgstr "" -#: src/code/ext-code.lisp -msgid "Execution of a form compiled with errors:~% ~S" -msgstr "" - #: src/code/ext-code.lisp msgid "" "Read a C-style hex float from STREAM and return a float value.\n" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7be8841885c5b8e1f3a43bb... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7be8841885c5b8e1f3a43bb... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help