Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

Whitespace cleanup.

  • Loading branch information...
1 parent f2652d9 commit 8dd1acdcf759e88e5013bbf3e120961de7acfcec @russell committed
Showing with 11 additions and 11 deletions.
  1. +7 −7 src/references.lisp
  2. +4 −4 src/revwalk.lisp
14 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)
@@ -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))))
((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"
8 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."
: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)))
@@ -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

0 comments on commit 8dd1acd

Please sign in to comment.
Something went wrong with that request. Please try again.