X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-alieneval.lisp;h=3150c14febe167d5d5b2c22f9d59450de96427b3;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=f399057c88f2a3de79461e90d32746d5e88ef465;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index f399057..3150c14 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -436,10 +436,10 @@
 	 (alien-sap (alien-sap alien)))
     (finalize
      alien
-     #'(lambda ()
-	 (alien-funcall
-	  (extern-alien "free" (function (values) system-area-pointer))
-	  alien-sap)))
+     (lambda ()
+       (alien-funcall
+	(extern-alien "free" (function (values) system-area-pointer))
+	alien-sap)))
     alien))
 
 (defun note-local-alien-type (info alien)