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

[Chris Dean]

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))