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:

   ((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.