Re: cl-http on clozure

On 12/13/10 1:46 AM, Mark Klein wrote:
>
> Karsten,
>
> Thanks for the reply. When I tried (compile-all) the process aborted
> with the error:

>  > Error: The type specifier (SIMPLE-ARRAY BASE-CHAR (4)) is not
> determinably a subtype of the type (VECTOR CHARACTER 14)
>  > While executing: MAKE-SEQUENCE, in process Listener(6).
>  > Type cmd-. to abort, cmd-\ for a list of available restarts.
>  > Type :? for other options.
> 1 >
>
>


Hello,

found the problem, but do not yet know how to fix properly:

clozure does not like the following statement:
? (let ((data-type-string (string :html)))
       (concatenate (type-of data-type-string) data-type-string 
"-DIRECTORY"))

-> chokes with

 > Error: The type specifier (SIMPLE-ARRAY BASE-CHAR (4)) is not 
determinably a subtype of the type (VECTOR CHARACTER 14)
 > While executing: MAKE-SEQUENCE, in process Listener(3).
 > Type cmd-. to abort, cmd-\ for a list of available restarts.

This is due to a change introduced (if I understand it right) by Rainer 
in revision 396.

Reverting the change by:
#-no
(defun %def-directory-export-type-unit (export-type-name data-types)
   (let* ((data-type-string (string export-type-name))
	 (export-type (symbolize (concatenate 'string data-type-string 
"-DIRECTORY") *keyword-package*))
	 (export-type-recursive (symbolize (concatenate 'string 
data-type-string "-DIRECTORY-HIERARCHY") *keyword-package*)))
     (%%def-directory-export-type-unit export-type export-type-recursive 
data-types)))

#+no
(defun %def-directory-export-type-unit (export-type-name data-types)
   (let* ((data-type-string (string export-type-name))
	 (export-type (symbolize (concatenate (type-of data-type-string) 
data-type-string "-DIRECTORY") *keyword-package*))
	 (export-type-recursive (symbolize (concatenate (type-of 
data-type-string) data-type-string "-DIRECTORY-HIERARCHY")
                                            *keyword-package*)))

results in a running server in clozure 1.6.

Have to discuss with Rainer a proper fix though

Karsten

_______________________________________________
WWW-CL mailing list
[email protected]
https://lists.csail.mit.edu/mailman/listinfo/www-cl