*print-case* :capitalize does not capitalize printed values

[ninejaguar]

*print-case* :capitalize behaves the same as *print-case* :downcase in Corman CL. But, it works fine in SBCL.

Corman Lisp 3.1 (Patch level 2) Example: Note that the "m" in the last "mike" is NOT properly capitalized. The entire name is lowercase as if the :downcase keyword were used instead of :capitalize.

?(defvar *name* (read))
mike
*NAME*
?*name*
MIKE
?(setq *print-case* :capitalize)
:capitalize
?*name*
mike

SBCL 1.4.14 Example: Note that the "M" in the last "Mike" is properly capitalized while the rest of the name is properly lowercase.

* (defvar *name* (read))
mike
*NAME*
* *name*
MIKE
* (setq *print-case* :capitalize)
:Capitalize
* *name*
Mike

[arbv]

@ninejaguar

Does the attached build work as it should?

CormanLispBinaries.zip

[ninejaguar]

It works! Thank you for the quick fix!

(defvar *name* (read))
mike
*NAME*
MIKE
(setq *print-case* :capitalize)
:Capitalize
*NAME*
Mike

[arbv]

@ninejaguar You are welcome! You have provided a lot of meaningful feedback recently, thank you for your interest in Corman Lisp!