X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpurify.lisp;h=4ff9fc0f9228591cc5bc8183f815febf47dd6e7b;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=caf6991333e4ce39af3bce03f31b2cce35889669;hpb=6139c89c89f45c03509e4f3156293ff656716a8c;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index caf6991..4ff9fc0 100644
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -52,7 +52,7 @@
 	   (write-string "[doing purification: " notify-stream)
 	   (force-output notify-stream)))
 	(*internal-gc*
-	 (lambda ()
+	 (lambda (ignored-generation-arg)
 	   (%purify (get-lisp-obj-address root-structures)
 		    (get-lisp-obj-address nil))))
 	(*gc-notify-after*