Small patches for CMU CL support

--Apple-Mail-25--394263520
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
	charset=us-ascii

Hi, CL-HTTP

Attach is two small patches for CMU CL support (not for kpoeck's =
port-template but the regular one).

The first change was in cmucl/server/sysdcl.lisp, some additional lisp =
files should be compiled & loaded, or some exported URLs won't have =
their response functions.

The second change was in cmucl/server/precom.lisp, I have to wrap the =
only line "(pcl::precompile-random-code-segments http)" into a =
IGNORE-ERRORS form, because CMU CL report this error when executing:

;   (PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS HTTP)
; --> PROGN PCL::PRECOMPILE-FUNCTION-GENERATORS PROGN=20
; --> PCL::LOAD-FUNCTION-GENERATOR=20
; =3D=3D>
;   '(LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. PCL::.ARG0. =
PCL::.ARG1.)
;      (DECLARE #)
;      (MULTIPLE-VALUE-PROG1 # #))
; Error: (while making load form for #1=3D#<ASDF:SYSTEM "patch-000">)
;=20
; Error in function "DEFINE-DEFAULT-METHOD STANDARD-OBJECT":
;    Default MAKE-LOAD-FORM method for #1# called.
;=20

It seems that some code loaded into CMU CL before CL-HTTP (ASDF in this =
case) has some unknown effects to above single form, but I think it's OK =
to ignore.

With this two small patches, latest CL-HTTP works in CMU CL really well, =
so perfectly, if we ignore the fact that it can only use single CPU.

P.S. Now CMU CL has both "unicode" and "non-unicode" versions, but I =
found only the "non-unicode" versions work with CL-HTTP. The problem is =
in the networking, network strings sent by unicode version of CMUCL has =
only half contents of all. Any one know how to fix this in CL-HTTP?



--Apple-Mail-25--394263520
Content-Disposition: attachment;
	filename=cl-http-cmucl.patch
Content-Type: application/octet-stream;
	name="cl-http-cmucl.patch"
Content-Transfer-Encoding: 7bit

Index: cmucl/server/sysdcl.lisp
===================================================================
--- cmucl/server/sysdcl.lisp	(revision 70)
+++ cmucl/server/sysdcl.lisp	(revision 72)
@@ -107,11 +107,12 @@
     :components
     ("configuration"	; server configuration file
 ;     "mcf095;mcf"
-;     "vrml;vrml"	; best to compile this
+     "vrml/vrml"	; best to compile this
+     "twistdown-tree/twistdown"
      "documentation"
      "find-url"
      "access-control"
-;     "lispdoc"
+     "lispdoc"
      "log-window"
      "examples"
      "mail-archive"
Index: cmucl/server/precom.lisp
===================================================================
--- cmucl/server/precom.lisp	(revision 70)
+++ cmucl/server/precom.lisp	(revision 72)
@@ -1 +1,6 @@
-(pcl::precompile-random-code-segments http)
+;;; Some make-load-form related error can be ignored. --binghe
+
+(in-package :cl-user)
+
+(ignore-errors
+  (pcl::precompile-random-code-segments http))

--Apple-Mail-25--394263520
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

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

--Apple-Mail-25--394263520--