princ-to-string v. ccl::%str-length

[Tom McDougal <mcdougal@gargoyle.uchicago.edu>]

Why doesn't ccl::%str-length recognize the value returned by princ-to-string?

 > (stringp (princ-to-string 'a))
 T
 > (ccl::%str-length (princ-to-string 'a))
 > Error: "A" is not a valid argument to CCL::%STR-LENGTH .

This came up when I was trying to use
   (find-window (princ-to-string <a-symbol>))

This is MACL 1.3.1.

Thanks for your help.

   --Tom  mcdougal@cs.uchicago.edu

	1874, Mme. Cecile Fradwinch, owner
	of the Fradwinch Wax Museum, tries
	to burn Jack the Ripper at both ends.