From 9d24bc01e0c59b7d23546eaae53634462b9ff90c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 16 Nov 2007 11:35:59 +0000 Subject: * daase.lisp (getdatabase): Fix path to source file and object file. --- src/interp/ChangeLog | 4 ++++ src/interp/daase.lisp | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index ebaf84a0..cda2ccd5 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,7 @@ +2007-11-16 Gabriel Dos Reis + + * daase.lisp (getdatabase): Fix path to source file and object file. + 2007-11-15 Gabriel Dos Reis * Makefile.pamphlet (OBJS): Include spad-parser.$(FASLEXT). diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 2ef3529b..c3d47c27 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -772,7 +772,7 @@ (when (and data (string= (directory-namestring data) "") (string= (pathname-type data) "spad")) (setq data - (concatenate 'string (|systemRootDirectory|) "/../../src/algebra/" data)))) + (concatenate 'string (|systemRootDirectory|) "src/algebra/" data)))) (asharp? ; is this asharp code? (if (consp data) (setq data (cdr data)) @@ -781,10 +781,10 @@ (if (consp data) (setq data (if (string= (directory-namestring (car data)) "") - (concatenate 'string (|systemRootDirectory|) "/algebra/" (car data) ".o") + (concatenate 'string (|systemRootDirectory|) "algebra/" (car data) ".o") (car data))) (when (and data (string= (directory-namestring data) "")) - (setq data (concatenate 'string (|systemRootDirectory|) "/algebra/" data ".o"))))))) + (setq data (concatenate 'string (|systemRootDirectory|) "algebra/" data ".o"))))))) data)) ; )library top level command -- soon to be obsolete -- cgit v1.2.3