X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fsubprim.lisp;h=e8255654be2484b64097b59c1c067bf27ce30c92;hb=7c406887c08477181e869b1b98142d99b52990ac;hp=5157c45da281aecfdffb8b3431cfd388c81afba7;hpb=4081f91910d6dc5dc79e2c43b8a746acaa78ecd9;p=sbcl.git

diff --git a/src/compiler/ppc/subprim.lisp b/src/compiler/ppc/subprim.lisp
index 5157c45..e825565 100644
--- a/src/compiler/ppc/subprim.lisp
+++ b/src/compiler/ppc/subprim.lisp
@@ -1,6 +1,6 @@
 ;;;
 ;;; Written by William Lott.
-;;; 
+;;;
 (in-package "SB!VM")
 
 
@@ -14,15 +14,15 @@
   (:temporary (:scs (descriptor-reg) :from (:argument 0)) ptr)
   (:temporary (:scs (non-descriptor-reg)) temp)
   (:temporary (:scs (any-reg) :type fixnum :to (:result 0) :target result)
-	      count)
+              count)
   (:results (result :scs (any-reg descriptor-reg)))
   (:policy :fast-safe)
   (:vop-var vop)
   (:save-p :compute-only)
   (:generator 50
     (let ((done (gen-label))
-	  (loop (gen-label))
-	  (not-list (generate-cerror-code vop object-not-list-error object)))
+          (loop (gen-label))
+          (not-list (generate-cerror-code vop object-not-list-error object)))
       (move ptr object)
       (move count zero-tn)
 
@@ -41,7 +41,7 @@
 
       (emit-label done)
       (move result count))))
-       
+
 
 (define-static-fun length (object) :translate length)