X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Falloc.lisp;h=29be6794f4fa9a90f1ddfb1408b4a03435d05c00;hb=1831934a29eb9361472e4f49efbcd5398392a6b0;hp=07bd3407c9ea2ffa53b0c884839024552392e02b;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/alloc.lisp b/src/compiler/ppc/alloc.lisp
index 07bd340..29be679 100644
--- a/src/compiler/ppc/alloc.lisp
+++ b/src/compiler/ppc/alloc.lisp
@@ -1,4 +1,4 @@
-;;;; allocation VOPs
+;;;; allocation VOPs for the PPC
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -144,6 +144,7 @@
         (storew temp result 0 fun-pointer-lowtag)))
     ;(inst lis temp (ash 18 10))
     ;(storew temp result closure-jump-insn-slot function-pointer-type)
+    (storew result result closure-self-slot fun-pointer-lowtag)
     (storew function result closure-fun-slot fun-pointer-lowtag)))
 
 ;;; The compiler likes to be able to directly make value cells.