0.9.2.43:
[sbcl.git] / src / code / funutils.lisp
index ab85f44..456128f 100644 (file)
   "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