[movitz-cvs] CVS update: movitz/movitz-mode.el

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv12447

Modified Files:
	movitz-mode.el 
Log Message:
Various naming updates.

Date: Mon Feb  2 08:31:23 2004
Author: ffjeld

Index: movitz/movitz-mode.el
diff -u movitz/movitz-mode.el:1.2 movitz/movitz-mode.el:1.3
--- movitz/movitz-mode.el:1.2	Thu Jan 15 12:37:11 2004
+++ movitz/movitz-mode.el	Mon Feb  2 08:31:23 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Sep 27 18:12:17 2001
 ;;;;                
-;;;; $Id: movitz-mode.el,v 1.2 2004/01/15 17:37:11 ffjeld Exp $
+;;;; $Id: movitz-mode.el,v 1.3 2004/02/02 13:31:23 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -108,7 +108,7 @@
 	     (fi:eval-in-lisp "movitz::*bootblock-build*")
 	     display-shortcut)
     (call-process "/bin/sh" nil 0 nil "-c"
-		  (format "DISPLAY=\"%s\" ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters"
+		  (format "DISPLAY=\"%s\" cd ~/clnet/movitz && ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters"
 			  display-shortcut))))
 
 (defun movitz-compile-file ()
@@ -220,7 +220,7 @@
                                                        (cl:char= #\\& (cl:char (cl:string x) 0))))
                                                 lambda-list)))
                   (specializers (cl:mapcar #'muerte::find-specializer
-                                  (cl:mapcar (cl:lambda (x) (cl:if (cl:consp x) (cl:second x) 'los0.cl:t))
+                                  (cl:mapcar (cl:lambda (x) (cl:if (cl:consp x) (cl:second x) 'muerte.cl:t))
                                              specializing-lambda-list)))
                   (method (muerte::movitz-find-method gf qualifiers specializers))
                   (funobj (muerte::movitz-slot-value method 'muerte::function))
@@ -258,7 +258,7 @@
         (cl:let ((cl:*package* (cl:find-package :%s)))
          (cl:with-open-file (stream \"%s\" :direction :input)
           (cl:read stream))))
-       :common-lisp :los0.common-lisp))))"
+       :common-lisp :muerte.common-lisp))))"
 					   fi:package
 					   fi:package
 					   tmp-file))