X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fpurify.lisp;h=caf6991333e4ce39af3bce03f31b2cce35889669;hb=722703e7cbd3a4b279a4c1baab5d95df2c23cce9;hp=f4d0811ae74f849d7f889e12f0266ce876d53fa2;hpb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index f4d0811..caf6991 100644
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -9,9 +9,9 @@
 
 (in-package "SB!KERNEL")
 
-(sb!alien:def-alien-routine ("purify" %purify) sb!c-call:void
-  (static-roots sb!c-call:unsigned-long)
-  (read-only-roots sb!c-call:unsigned-long))
+(sb!alien:define-alien-routine ("purify" %purify) sb!alien:void
+  (static-roots sb!alien:unsigned-long)
+  (read-only-roots sb!alien:unsigned-long))
 
 ;;; Compact the info environment. This is written with gratuitous
 ;;; recursion to make sure that our (and compact-info-environment's)
@@ -47,17 +47,17 @@
   (when environment-name (compact-environment-aux environment-name 200))
 
   (let ((*gc-notify-before*
-	 #'(lambda (notify-stream bytes-in-use)
-	     (declare (ignore bytes-in-use))
-	     (write-string "[doing purification: " notify-stream)
-	     (force-output notify-stream)))
+	 (lambda (notify-stream bytes-in-use)
+	   (declare (ignore bytes-in-use))
+	   (write-string "[doing purification: " notify-stream)
+	   (force-output notify-stream)))
 	(*internal-gc*
-	 #'(lambda ()
-	     (%purify (get-lisp-obj-address root-structures)
-		      (get-lisp-obj-address nil))))
+	 (lambda ()
+	   (%purify (get-lisp-obj-address root-structures)
+		    (get-lisp-obj-address nil))))
 	(*gc-notify-after*
-	 #'(lambda (notify-stream &rest ignore)
-	     (declare (ignore ignore))
-	     (write-line "done]" notify-stream))))
+	 (lambda (notify-stream &rest ignore)
+	   (declare (ignore ignore))
+	   (write-line "done]" notify-stream))))
     (gc))
   nil)