[spr28409] HTMLGEN: arguments can't be adjustable strings?

dispatched to jkf
No acknowledgement sent

@@id: spr28409
@@reference: 
@@summary: HTMLGEN: arguments can't be adjustable strings?
@@product: acl
@@version: 
@@component: allegroserve
@@customer-name: Andrew Philpot
@@customer-company: isi
@@customer-phone: 
@@customer-email-address: owner-opensource
@@email-cc: [email protected], opensource
@@hardware: 
@@operating-system-and-version: 
@@implementation-time: 
@@state: logged 12/23/2003 by jkf
@@state: dispatched 12/23/2003 to jkf by jkf
@@endstate
-------------------------------------------------------------------------------
@@resolution: 

-------------------------------------------------------------------------------
@@discussion:

Return-Path: owner-opensource
Delivery-Date: Mon Dec 22 22:13:38 2003
Received: from turtle.franz.com (192.132.95.23) by tiger.franz.com
    (Allegro Maild v1.1.9) id 000000029218; Mon, 22 Dec 2003 22:13:38 -0800
Received: (from majordomo@localhost)
	by turtlemail.franz.com (8.11.6/8.9.0) id hBN6Cds24640
	for opensource-list; Mon, 22 Dec 2003 22:12:39 -0800
X-Authentication-Warning: turtle.franz.com: majordomo set sender to [email protected] using -f
Received: from spider.franz.com (spider [10.2.0.4])
	by turtlemail.franz.com (8.11.6/8.9.0) with SMTP id hBN6CaD24637
	for <opensource-local@turtle>; Mon, 22 Dec 2003 22:12:36 -0800
Received: from vapor.isi.edu (128.9.64.64) by spider.franz.com
    (Allegro Maild v1.1.12) id 000000314120; Mon, 22 Dec 2003 22:12:36 -0800
Received: from blombos.isi.edu (blombos.isi.edu [128.9.216.39])
	by vapor.isi.edu (8.11.6p2+0917/8.11.2) with ESMTP id hBN6CZI01262;
	Mon, 22 Dec 2003 22:12:35 -0800 (PST)
Received: (from philpot@localhost)
	by blombos.isi.edu (8.12.8/8.12.7) id hBN6CZq9024768;
	Mon, 22 Dec 2003 22:12:35 -0800
Date: Mon, 22 Dec 2003 22:12:35 -0800
Message-Id: <[email protected]>
From: Andrew Philpot <[email protected]>
To: opensource
CC: [email protected]
Subject: HTMLGEN: arguments can't be adjustable strings?
X-Fi-Border: spider
Sender: owner-opensource
Precedence: bulk
X-Bayes: ham score=0


The following works:

CL-USER(667): (let ((zero (make-array 1
                             :element-type 'character)))
                (setf (aref zero 0) #\0)
		(net.html.generator:html-stream 
		 *standard-output*
		 ((:table :border zero))))
<table BORDER="0"></table>
"</table>"

But if I use an adjustable string instead, HTMLGEN generates an error:

CL-USER(668): (let ((zero (make-array 0
                             :element-type 'character
			     :adjustable t
                             :fill-pointer t)))
                (vector-push-extend #\0 zero)
		(net.html.generator:html-stream 
		 *standard-output*
		 ((:table :border zero))))
<table BORDER="
Error: `"0"' is not of the expected type `SIMPLE-STRING'
  [condition type: TYPE-ERROR]

Restart actions (select using :continue):
 0: Return to Top Level (an "abort" restart).
 1: Abort entirely from this process.
[1] CL-USER(669): 

A bug?

Andrew