[movitz-cvs] CVS update: movitz/movitz-mode.el - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

30 Apr 2005

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv30101
Modified Files:
    movitz-mode.el 
Log Message:
Have in-movitz-package-p be somewhat more clever.
Date: Sat Apr 30 23:19:43 2005
Author: ffjeld
Index: movitz/movitz-mode.el
diff -u movitz/movitz-mode.el:1.8 movitz/movitz-mode.el:1.9

--- movitz/movitz-mode.el:1.8	Tue Nov 30 15:16:18 2004
+++ movitz/movitz-mode.el	Sat Apr 30 23:19:42 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Created at:    Thu Sep 27 18:12:17 2001
 ;;;;                
-;;;; $Id: movitz-mode.el,v 1.8 2004/11/30 14:16:18 ffjeld Exp $
+;;;; $Id: movitz-mode.el,v 1.9 2005/04/30 21:19:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -33,8 +33,10 @@
   (or (and (< 6 (length fi:package))
       (string= "MUERTE." (upcase (substring fi:package 0 7))))
       (member (upcase fi:package)
-	      '("MUERTE" "X86" "X86-PC"))))
-
+	      '("MUERTE" "X86" "X86-PC"))
+      (member "MUERTE"
+	      (fi:eval-in-lisp
+	       "(cl:mapcar #'cl:package-name (cl:package-use-list "%s"))" (upcase fi:package)))))
(defun movitz-defun-name-and-type ()
   (interactive)

    