Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5140)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5141)
@@ -136,5 +136,5 @@
 	     ,monitor))))))
 
-(defun defcallback-body-ppc64-poweropen (stack-ptr lets dynamic-extent-names decls body return-type error-return error-delta #+poweropen-target fp-arg-ptr)
+(defun defcallback-body-ppc64-poweropen (stack-ptr lets dynamic-extent-names decls body return-type error-return error-delta  fp-arg-ptr)
   (let* ((result (gensym))
          (offset (case return-type