formatter bug?

Vibhu Mohindra <[email protected]> Sun, 12 Feb 2023 19:12:13 +0100

Newsgroups	gmane.lisp.clisp.devel
Message-ID	<GVXP195MB1832FDABE3AE7EBA93811C55CADC9@GVXP195MB1832.EURP195.PROD.OUTLOOK.COM>

(defun s (fillp)
   (make-array 1 :element-type 'character :initial-contents "x"
               :fill-pointer fillp))
(defun fmt (fillp)
   (format nil (eval `(formatter ,(s fillp)))))
(fmt nil) ;ok
(fmt t)   ;error due to base-string instead of simple-string
#|
CLISP: fails
CCL:   fails
CMUCL: passes
SBCL:  passes
ECL:   passes
ABCL:  passes
|#

----
http://www.lispworks.com/documentation/HyperSpec/Body/m_format.htm#formatter
says the formatter macro's arg is a "format string".
http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_f.htm#format_string
defines "format string" to be a string and doesn't restrict it to any 
particular subtype.


-- 
Vibhu


_______________________________________________
clisp-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-devel