[kpax-devel] Mods for porti to CLISP

[Mark Cornwell]

I've been spending the evening getting KPAX running under CLISP.

Got the s-http-server part running the basic Hello Wrorld demo on  
static pages.

Unsure what the process was for sending in updatss or mods, I   
decided to post
to this list, just so the effort might do someone some good.

A minor change to s-utils.lisp was needed to work around a type  
checking problem.
CLISP apparently checks (usigned 8) to char conversion a bit more  
strictly than
other dialects.

Cheers!
--Mark

Changed s-utils.lisp

Betty:/Volumes/iDisk/Ramses/lisp/s-utils/src mark$ diff  
utils.lisp.orig utils.lisp
50c50
<                    (write-sequence buffer out :end size)
---
 >                    (my-write-sequence buffer out :end size)
52c52
<                    (write-sequence buffer out)
---
 >                    (my-write-sequence buffer out)
55a56,63
 > ;; write-sequence may signal an error if we write (unsigned 8) to  
a character stream
 > ;; this actually happens with CLISP.  SBCL and LispWorks are  
probably ok with it.
 > ;; ref http://www.lispworks.com/documentation/HyperSpec/Body/ 
f_wr_seq.htm
 > (defun my-write-sequence (buffer stream &key (start 0) (end nil))
 >   (let ((len (if (null end) (length buffer) (min end (length  
buffer)))))
 >     (loop for i from start upto (- len 1) do
 >        (write-char (code-char (elt buffer i)) stream))))
 >


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/kpax-devel/attachments/20070712/05a3ad95/attachment.html>