X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fsubprim.lisp;h=1f3c09058c705a33ffd6e6836ec7eed6b713bf45;hb=debae3c18d31b5222be4d5de8dcb2601336e24a4;hp=e8255654be2484b64097b59c1c067bf27ce30c92;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/subprim.lisp b/src/compiler/ppc/subprim.lisp
index e825565..1f3c090 100644
--- a/src/compiler/ppc/subprim.lisp
+++ b/src/compiler/ppc/subprim.lisp
@@ -22,7 +22,7 @@
   (:generator 50
     (let ((done (gen-label))
           (loop (gen-label))
-          (not-list (generate-cerror-code vop object-not-list-error object)))
+          (not-list (gen-label)))
       (move ptr object)
       (move count zero-tn)
 
@@ -37,7 +37,8 @@
       (inst addi count count (fixnumize 1))
       (test-type ptr loop nil (list-pointer-lowtag) :temp temp)
 
-      (cerror-call vop done object-not-list-error ptr)
+      (emit-label not-list)
+      (error-call vop 'object-not-list-error ptr)
 
       (emit-label done)
       (move result count))))