Permalink
Browse files

Merge branch 'master' of git.acceleration.net:/var/git/cl-mediawiki

  • Loading branch information...
bobbysmith007 committed Oct 16, 2012
2 parents e948e3c + 5665cd9 commit a30074bbf0e5e3f911d6728f5f7850b2f8ae56df
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/edit.lisp
View
@@ -13,8 +13,10 @@ returns values:
"
(check-sxml-for-error xml)
- (let* ((kid (first
- (find-nodes-by-name name xml)))
+ (let* ((matches (find-nodes-by-name name xml))
+ ;; if we have more than match, then odds are we're getting warnings.
+ (kid (if (eq 1 (length matches)) (first matches)
+ (second matches)))
(alist (second kid)))
(unless alist
(error 'media-wiki-error

0 comments on commit a30074b

Please sign in to comment.