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

[MON KEY]

;; From Emacs with slime-mode active (i.e. 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)))))

--
/s_P\