diff options
| -rw-r--r-- | src/interp/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/daase.lisp | 6 |
2 files changed, 7 insertions, 3 deletions
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 <gdr@cs.tamu.edu> + + * daase.lisp (getdatabase): Fix path to source file and object file. + 2007-11-15 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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 |