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)))