[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Sun May  8 03:16:27 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.138 movitz/compiler.lisp:1.139
--- movitz/compiler.lisp:1.138	Thu May  5 00:47:38 2005
+++ movitz/compiler.lisp	Sun May  8 03:16:26 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.138 2005/05/04 22:47:38 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.139 2005/05/08 01:16:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1378,7 +1378,7 @@
       (let* ((muerte.cl::*compile-file-pathname* path)
 	     (*package* (find-package :muerte))
 	     (funobj (make-instance 'movitz-funobj-pass1
-		       :name (intern (format nil "file-~A" path) :muerte)
+		       :name (intern (format nil "~A" path) :muerte)
 		       :lambda-list (movitz-read nil)))
 	     (funobj-env (make-local-movitz-environment nil funobj
 							:type 'funobj-env