Re: cl-http on clozure

Mark Klein <[email protected]> Sun, 12 Dec 2010 19:46:00 -0500
Newsgroups	gmane.lisp.cl-http
Message-ID	<[email protected]>
Karsten,

Thanks for the reply. When I tried (compile-all) the process aborted  
with the error:

	;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl- 
http-devo/server/server.lisp"...
	> 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).

The full log is appended below.

The file clozure-socket-low.lisp doesn't include any require  
statements, so I was unable to take your advice about deleting the  
(require :opentransport) call.

I'd appreciate any suggestions you might have.

    Thanks!

	Mark

> On 12/12/10 4:55 PM, Mark Klein wrote:
>>
>> Karsten,
>>
>> I would like to run cl-http on Clozure CL on my Mac, and Rainer  
>> Joswig
>> told me you wrote some code for that purpose. Could you point me to
>> instructions on how to get that working?
>>
>> I have:
>>
>> - clozure 1.4
>> - cl-http 70.217
>> - Mac OS 10.5
>> - a G4 plus a couple Intel machines
>>
>> Thanks very much for your help.
>>
> Hello,
> should be simple.
> Fire up ccl 1--4
> (load "<path to cl-http>/contrib/kpoeck/port-template/load.lisp)
> (compile-all)
> (http::start-examples)
> -> Should give you the example page on http://localhost:8000/ if you  
> start up a browser.
>
> I might have screwed up clozure-socket-low.lisp in my intent to port  
> cl-http to rmcl
>
> If you get an error about opentransport, delete the  
> (require :opentransport) from that file
>
> Works fine on my machine
>
> saludos
>
> Karsten

-------------------------------
Mark Klein
Principal Research Scientist
MIT Center for Collective Intelligence
http://cci.mit.edu/klein/

Welcome to Clozure Common Lisp Version 1.6-r14468M  (DarwinX8664)!
?
;Compiler warnings for "home:Documents;Projects;Deliberatorium;cl-http- 
devo;contrib;kpoeck;port-template;load.lisp.newest" :
;   In LOAD-CL-HTTP-FILES: Undefined function SET-LOGICAL
Excecute (COMPILE-ALL) to compile the system.

Excecute (LOAD-CL-HTTP-TESTER) to test the system without sockets.

To start the simple-server do (http::start-examples) .
#P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http-devo/ 
contrib/kpoeck/port-template/load.lisp"
? (compile-all)
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/declaration.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/declaration.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/package.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/package.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/preliminary.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/preliminary.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/variables.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/variables.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/mcl/server/resources.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/mcl/server/resources.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/fix-symbols.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/fix-symbols.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/import-mop.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/import-mop.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/mcl/server/www-utils.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/mcl/server/www-utils.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/fix-www-utils-lw.lisp"...
;Compiler warnings for "http:port;fix-www-utils-lw.lisp.newest" :
;   In an anonymous lambda form at position 337: Duplicate definitions  
of MODIFY-HASH, in this file and in "http:mcl;server;www- 
utils.lisp.newest"
;   In an anonymous lambda form at position 1361: Duplicate  
definitions of PORT-ADDRESS, in this file and in "http:mcl;server;www- 
utils.lisp.newest"
;   In an anonymous lambda form at position 1835: Duplicate  
definitions of PORT-PROTOCOL, in this file and in "http:mcl;server;www- 
utils.lisp.newest"

Failure Warnings compiling http:port;fix-www-utils-lw: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/fix-www-utils-lw.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/version.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/version.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/files.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/files.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/misc.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/misc.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/processes-clozure.lisp"...
;Compiler warnings for "http:port;allegro;processes- 
clozure.lisp.newest" :
;   In an anonymous lambda form at position 2730: Duplicate  
definitions of WITH-TIMEOUT, in this file and in "http:mcl;server;www- 
utils.lisp.newest"
;   In an anonymous lambda form at position 4093: Duplicate  
definitions of WITHOUT-PREEMPTION, in this file and in  
"http:mcl;server;www-utils.lisp.newest"

Failure Warnings compiling http:port;allegro;processes-clozure: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/processes-clozure.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/server-tasks.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/server-tasks.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/clozure-socket-low.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/clozure-socket-low.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-macros.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-macros.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/bivalent-macros.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/bivalent-macros.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcpip.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcpip.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-stream-clozure.lisp"...
;Compiler warnings for "http:port;allegro;tcp-stream- 
clozure.lisp.newest" :
;   In an anonymous lambda form at position 1334: Duplicate  
definitions of WITH-STREAM-TIMEOUT, in this file and in  
"http:mcl;server;www-utils.lisp.newest"

Failure Warnings compiling http:port;allegro;tcp-stream-clozure: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-stream-clozure.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-conditions.lisp"...
;Compiler warnings for "http:port;allegro;tcp-conditions.lisp.newest" :
;   In an anonymous lambda form at position 892: Duplicate definitions  
of (TYPE UNKNOWN-HOST-NAME), in this file and in  
"http:port;allegro;tcpip.lisp.newest"

Failure Warnings compiling http:port;allegro;tcp-conditions: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/tcp-conditions.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/chunking-clozure.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/chunking-clozure.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/http.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/http.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/mail.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/mail.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/base64-encoding.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/base64-encoding.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/md5.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/md5.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/sha.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/sha.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/task-queue.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/task-queue.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/class.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/class.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/url-class.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/url-class.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/http-conditions.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/http-conditions.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/plist.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/plist.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/utils.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/utils.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/tokenizer.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/tokenizer.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/url.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/url.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/headers.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/headers.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/host.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/host.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html2.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html2.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-1-1.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-1-1.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/vrml-1-0.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/vrml-1-0.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/image-maps.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/image-maps.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-2-0.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-2-0.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-3-0.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-3-0.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html-3-2.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html-3-2.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html4.lisp"...
;Compiler warnings for "http:server;html4.lisp.newest" :
;   In WITH-DIVISION: Unknown or invalid declaration (ARGLIST (&KEY  
INLINE-P CLASS ID TITLE STYLE LANGUAGE DIRECTION EVENTS ALIGNMENT  
STREAM) &BODY BODY)

Failure Warnings compiling http:server;html4: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/html4.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/scripts.lisp"...
;Compiler warnings for "http:server;scripts.lisp.newest" :
;   In an anonymous lambda form at position 756: Initarg :URL occurs  
in both URL and DISPLAYS-CONTENT-P slots

Failure Warnings compiling http:server;scripts: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/scripts.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-4-0.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/netscape-4-0.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/shtml.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/shtml.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/post-http.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/post-http.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/simple-server.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/simple-server.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/obc-stub.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/obc-stub.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/debug.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/contrib/kpoeck/port-template/allegro/debug.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/package.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/package.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/class.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/class.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/w3p-system.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/w3p-system.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/functions.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/functions.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/standard-types.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/standard-types.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/standard-methods.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/standard-methods.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/html-definitions.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/w3p/html-definitions.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/report.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/report.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/log.lisp"...
;Compiler warnings for "http:server;log.lisp.newest" :
;   In (REMOVE-ACCESS-LOG (ACCESS-LOG INTEGER)) inside an anonymous  
lambda form: Function result ignored in call to DELETE
;   In (REMOVE-ACCESS-LOG (ACCESS-LOG (EQL :ALL))) inside an anonymous  
lambda form: Function result ignored in call to DELETE
;   In DO-LOG-ENTRY inside (TASK-QUEUE:TASK-QUEUE-EXECUTE-PENDING- 
TASKS (PROCESS-QUEUED-STREAM-NOTIFICATION-LOG-MIXIN)) inside an  
anonymous lambda form: Unused lexical variable WRITE-TIMEOUT

Warnings compiling http:server;log: T
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/log.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/authentication.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/authentication.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/data-cache.lisp"...
;Loading #P"/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/data-cache.dx64fsl"...
;Compiling "/Users/markklein/Documents/Projects/Deliberatorium/cl-http- 
devo/server/server.lisp"...
 > 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 >


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