`slime-goto-next-export-clause' in contrib/slime-package-fu.el missing needlessly

[mon_key]

`slime-goto-next-export-clause' in contrib/slime-package-fu.el missing needlessly

;; From Emacs with slime-mode active (e.g. visiting a lisp file),
;; evaluating with `eval-expression' with point immediately
;; following this comment the following expression:
;;
;; (progn (slime-forward-sexp)(sit-for 1)(slime-goto-next-export-clause))
;;
;; signals an error. It needn't. `slime-goto-next-export-clause'
;; could benefit from the addition of `slime-forward-cruft' after
;; the `skip-chars-forward' expression (see diff below).

#+sbcl (:import-from #:sb-int
       #:keywordicate
       )

;; (:shadowing-import-from {...} )
(:export

;; Following diff is against slime from CVS
;;
;; ===================================================================
;; RCS file: /project/slime/cvsroot/slime/contrib/slime-package-fu.el,v
;; retrieving revision 1.12
;; diff -u -r1.12 slime-package-fu.el
;; --- slime-package-fu.el 24 Jul 2010 23:39:24 -0000 1.12
;; +++ slime-package-fu.el 5 Nov 2010 23:08:16 -0000
;; @@ -106,6 +106,7 @@
;; (block nil
;; (while (ignore-errors (slime-forward-sexp) t)
;; (skip-chars-forward " \n\t")
;; + (slime-forward-cruft)
;; (when (slime-at-expression-p '(:export *))
;; (setq point (point))
;; (return)))))