[Eclipse-cvs] CVS update: eclipse/system.lisp

[Iban Hatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory common-lisp.net:/tmp/cvs-serv19005

Modified Files:
	system.lisp 
Log Message:
compile-theme hacking. Should fix theme compiling problem report by Robert Strandh.

Date: Mon Nov 10 05:02:54 2003
Author: ihatchondo

Index: eclipse/system.lisp
diff -u eclipse/system.lisp:1.6 eclipse/system.lisp:1.7
--- eclipse/system.lisp:1.6	Thu Aug 28 10:50:35 2003
+++ eclipse/system.lisp	Mon Nov 10 05:02:53 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: User -*-
-;;; $Id: system.lisp,v 1.6 2003/08/28 14:50:35 hatchond Exp $
+;;; $Id: system.lisp,v 1.7 2003/11/10 10:02:53 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -79,8 +79,9 @@
    )
 
 (defun compile-theme (directory-name)
-  (let ((i-filespec (merge-pathnames "theme.lisp" directory-name))
-	(o-filespec (merge-pathnames "theme.o")))
+  (let* ((i-filespec (merge-pathnames "theme.lisp" directory-name))
+	 (directory-truename (directory-namestring (truename i-filespec)))
+	 (o-filespec (merge-pathnames "theme.o" directory-truename)))
     (operate-on-system :eclipse :load)
     (load i-filespec)
     (compile-file i-filespec :output-file o-filespec)))