Whitespace cleanup.

src/references.lisp

@@ -90,7 +90,7 @@
 
 (defclass reference (git-pointer) ())
 
-(defmethod git-lookup ((class (eql :reference)) name 
+(defmethod git-lookup ((class (eql :reference)) name
 		       &key (repository *git-repository*))
   "Find a reference by its full name e.g.: ref/heads/master
 Note that this function name clashes with the generic lookup function.
@@ -127,8 +127,8 @@ are :INVALID, :OID, :SYMBOLIC, :PACKED or :HAS-PEEL"
       (%git-strarray-free string-array))))
 
 
-(defmethod git-create ((class (eql :reference)) name 
-		       &key 
+(defmethod git-create ((class (eql :reference)) name
+		       &key
 			 (repository *git-repository*)
 			 (type :oid)
 			 force
@@ -144,9 +144,9 @@ the same name already exists.  If FORCE is nil, it will return an
 error if that is the case."
   (with-foreign-object (reference :pointer)
     (ecase type
-      (:oid 
+      (:oid
        (%git-reference-create-oid reference repository name target force))
-      (:symbolic 
+      (:symbolic
        (%git-reference-create-symbolic reference repository name target force)))
     (make-instance 'reference
 		   :pointer (mem-ref reference :pointer)
@@ -163,7 +163,7 @@ are :SHA, :HEAD or :BOTH"
            (find flag (list :both other-flag))))
   (acond
     ((and (and-both flags :head)
-          (remove-if-not (lambda (ref) (equal ref name)) 
+          (remove-if-not (lambda (ref) (equal ref name))
 			 (git-list :reference :repository repository)))
      (lookup-oid :head (car it) :repository repository))
     ((numberp name)
@@ -176,7 +176,7 @@ are :SHA, :HEAD or :BOTH"
      (lookup-oid :sha name :repository repository))
     (t (error "Invalid reference named ~A." name)))))
 
-(defun find-oids (name-or-names &key (flags :both) 
+(defun find-oids (name-or-names &key (flags :both)
 				  (repository *git-repository*))
   "Find a head or sha that matches the NAME. Possible flags
 are :SHA, :HEAD or :BOTH"

src/revwalk.lisp

@@ -98,7 +98,7 @@
     (make-instance-revwalker :object-ptr (mem-ref revwalker-pointer :pointer)
 			     :repository repository)))
 
-(defun git-revwalk (oid-or-oids &key 
+(defun git-revwalk (oid-or-oids &key
 				  (ordering :time)
 				  (repository *git-repository*))
   "Walk all the revisions from a specified OID, or OIDs.
@@ -110,7 +110,7 @@ In general this means, commits and tags."
     (loop
        :for oid
        :in (if (atom oid-or-oids) (list oid-or-oids) oid-or-oids)
-       :do (%git-revwalk-push revwalker 
+       :do (%git-revwalk-push revwalker
 			      (commit-oid-from-oid oid :repository repository)))
     revwalker))
 
@@ -145,10 +145,10 @@ special call to stop iteration."
                (git-free revwalker))))))))
 
 
-(defun revision-walk (name-or-names &key (flags :both) 
+(defun revision-walk (name-or-names &key (flags :both)
 				      (repository *git-repository*))
   "Create a revision walker starts iteration from the commits listed
-in NAME-OR-NAMES. A head or sha that matches can be filterd using the
+in NAME-OR-NAMES.  A head or sha that matches can be filterd using the
 flags :SHA, :HEAD or :BOTH.
 
 Once created iteration over commits can be done with the method