;; 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\