Index: /branches/ia32/xdump/xx8632-fasload.lisp
===================================================================
--- /branches/ia32/xdump/xx8632-fasload.lisp	(revision 7881)
+++ /branches/ia32/xdump/xx8632-fasload.lisp	(revision 7882)
@@ -10,12 +10,4 @@
   (require "XFASLOAD" "ccl:xdump;xfasload"))
 
-;;; xxx
-(defun xload-x8632-lap-code (instructions)
-  (let* ((f (%define-x8632-lap-function nil instructions)))
-    (if (= (typecode f) target::subtag-xfunction)
-      (uvref f 0)
-      f)))
-
-;;; xxx
 (defparameter *x8632-macro-apply-code*
   #xc9cd0000000000)	    ;uuo-error-call-macro-or-special-operator
@@ -23,7 +15,4 @@
 (defun x8632-fixup-macro-apply-code ()
   *x8632-macro-apply-code*)
-
-(defparameter *x8632-closure-trampoline-code*
-  (xload-x8632-lap-code '((jmp-subprim  .SPcall-closure))))
 
 ;;; For now, do this with a UUO so that the kernel can catch it.
@@ -42,5 +31,5 @@
    :name  :darwinx8632
    :macro-apply-code-function 'x8632-fixup-macro-apply-code
-   :closure-trampoline-code *x8632-closure-trampoline-code*
+   :closure-trampoline-code nil
    :udf-code *x8632-udf-code*
    :default-image-name "ccl:ccl;x86-boot32.image"