X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsubprim.lisp;h=733ad6a67c73b2b16326566265e04452d382f6bc;hb=0e8649cf907d26f111864e4e29c7f9787828efbd;hp=37b2edc1a6f73a95da9a2fdfb8379b60fdaaa51e;hpb=369029d73f198b59135c6c005b7a70ae5a753650;p=sbcl.git

diff --git a/src/compiler/sparc/subprim.lisp b/src/compiler/sparc/subprim.lisp
index 37b2edc..733ad6a 100644
--- a/src/compiler/sparc/subprim.lisp
+++ b/src/compiler/sparc/subprim.lisp
@@ -19,15 +19,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)
 
@@ -50,7 +50,7 @@
 
       (emit-label done)
       (move result count))))
-       
+
 
 (define-static-fun length (object) :translate length)