[hunchentoot-devel] hcl:mark-and-sweep on 32 bit LispWorks

The HCL:MARK-AND-SWEEP function is only available on 32 bit LispWorks. A small patch is below to allow hunchentoot to run on 64 bit versions of LispWorks. Cheers, Chris Dean diff -rN -u old-hunchentoot/util.lisp new-hunchentoot/util.lisp --- old-contrib/hunchentoot/util.lisp 2007-04-03 10:13:17.000000000 -0700 +++ new-hunchentoot/util.lisp 2007-04-03 10:13:18.000000000 -0700 @@ -461,7 +461,7 @@ (chunked-stream-input-chunking-p (flexi-stream-stream *hunchentoot-stream*))) (defun cleanup-function () - "The default for *CLEANUP-FUNCTION*. Invokes a GC on LispWorks and + "The default for *CLEANUP-FUNCTION*. Invokes a GC on 32 bit LispWorks and does nothing on other Lisps." - #+:lispworks - (hcl:mark-and-sweep 2)) \ No newline at end of file + #+:lispworks-32bit + (hcl:mark-and-sweep 2))

On Tue, 03 Apr 2007 10:16:44 -0700, Chris Dean <ctdean@sokitomi.com> wrote:
The HCL:MARK-AND-SWEEP function is only available on 32 bit LispWorks. A small patch is below to allow hunchentoot to run on 64 bit versions of LispWorks.
Thanks, that will be in the next release.
+ #+:lispworks-32bit
I'll change that to #+(and :lispworks (not :lispworks-64bit)) as I think :LISPWORK-32BIT is not a feature of LW 4.x. (I hope :LISPWORKS-64BIT exists. I don't have a 64-bit Lisp to test with.)
participants (2)
-
Chris Dean
-
Edi Weitz