X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffunutils.lisp;h=456128f55fb97976a5a6b266630857a204f0439e;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=ab85f44510124b41f69be5aec084c5fd571ce00e;hpb=4f7211e1d005696dcd29d8322fa531992ea8fed4;p=sbcl.git

diff --git a/src/code/funutils.lisp b/src/code/funutils.lisp
index ab85f44..456128f 100644
--- a/src/code/funutils.lisp
+++ b/src/code/funutils.lisp
@@ -22,12 +22,12 @@
   "Return a new function that returns T whenever FUNCTION returns NIL and
    NIL whenever FUNCTION returns non-NIL."
   (lambda (&optional (arg0 nil arg0-p) (arg1 nil arg1-p) (arg2 nil arg2-p)
-		     &rest more-args)
+                     &rest more-args)
     (not (cond (more-args (apply function arg0 arg1 arg2 more-args))
-	       (arg2-p (funcall function arg0 arg1 arg2))
-	       (arg1-p (funcall function arg0 arg1))
-	       (arg0-p (funcall function arg0))
-	       (t (funcall function))))))
+               (arg2-p (funcall function arg0 arg1 arg2))
+               (arg1-p (funcall function arg0 arg1))
+               (arg0-p (funcall function arg0))
+               (t (funcall function))))))
 
 (defun constantly (value)
   #!+sb-doc