[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv7449/contrib

Modified Files:
	ChangeLog slime-package-fu.el 
Log Message:
	* slime-package-fu.el: Removed misplaced comma, deleted some
	end-of-line whitespace, added newline to the end of the file.

	Patch by Robert Brown.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/17 09:03:46	1.175
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/21 19:05:21	1.176
@@ -1,3 +1,10 @@
+2009-02-21  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-package-fu.el: Removed misplaced comma, deleted some
+	end-of-line whitespace, added newline to the end of the file.
+
+	Patch by Robert Brown.
+
 2009-02-17  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-repl.el (slime-repl-connected-hook-function): Bind
--- /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2008/11/29 11:12:39	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2009/02/21 19:05:22	1.4
@@ -6,13 +6,13 @@
 ;;
 
 (defvar slime-package-file-candidates
-  (mapcar #'file-name-nondirectory 
+  (mapcar #'file-name-nondirectory
 	  '("package.lisp" "packages.lisp" "pkgdcl.lisp" "defpackage.lisp")))
 
-(defvar slime-export-symbol-representation-function 
+(defvar slime-export-symbol-representation-function
   #'(lambda (n) (format "#:%s" n)))
 
-(defvar slime-defpackage-regexp 
+(defvar slime-defpackage-regexp
   "^(\\(cl:\\|common-lisp:\\)?defpackage\\>[ \t']*")
 
 
@@ -26,7 +26,7 @@
       (block nil
 	(while (re-search-forward slime-defpackage-regexp nil t)
 	  (when (slime-package-equal package (slime-sexp-at-point))
-	    (return (make-slime-file-location ,(buffer-file-name) (point)))))))))
+	    (return (make-slime-file-location (buffer-file-name) (point)))))))))
 
 (defun slime-package-equal (designator1 designator2)
   ;; First try to be lucky and compare the strings themselves (for the
@@ -48,7 +48,7 @@
 
 (defun slime-find-possible-package-file (buffer-file-name)
   (flet ((file-name-subdirectory (dirname)
-	   (expand-file-name 
+	   (expand-file-name
 	    (concat (file-name-as-directory (slime-to-lisp-filename dirname))
 		    (file-name-as-directory ".."))))
 	 (try (dirname)
@@ -85,7 +85,7 @@
 	(while (ignore-errors (slime-forward-sexp) t)
 	  (slime-forward-blanks)
 	  (when (slime-at-expression-p '(:export *))
-	    (setq point (point)) 
+	    (setq point (point))
 	    (return)))))
     (if point
 	(goto-char point)
@@ -138,11 +138,11 @@
 	     (when point (goto-char point))
 	     point)))
     (let ((defpackage-point (point))
-	  (symbol-name (funcall slime-export-symbol-representation-function 
+	  (symbol-name (funcall slime-export-symbol-representation-function
 				symbol-name)))
       (cond ((goto-last-export-clause)
 	     (down-list) (slime-end-of-list)
-	     (unless (looking-back "^\\s-*") 
+	     (unless (looking-back "^\\s-*")
 	       (newline-and-indent))
 	     (insert symbol-name))
 	    (t
@@ -169,7 +169,7 @@
 the symbol again. Additionally performs an EXPORT/UNEXPORT of the
 symbol in the Lisp image if possible."
   (interactive)
-  (let ((package (slime-current-package)) 
+  (let ((package (slime-current-package))
 	(symbol (slime-symbol-name-at-point)))
     (unless symbol (error "No symbol at point."))
     (cond (current-prefix-arg
@@ -197,4 +197,4 @@
   (while slime-c-p-c-init-undo-stack
     (eval (pop slime-c-p-c-init-undo-stack))))
 
-(provide 'slime-package-fu)
\ No newline at end of file
+(provide 'slime-package-fu)