From 9920a0abe7a40dedfe43efe83722372e06dc0826 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 31 Mar 2008 06:09:09 +0000 Subject: * interp/sys-utility.boot (loadModule): New. * interp/daase.lisp (initial-getdatabase): Use it instead of Lisp's LOAD. * interp/lisplib.boot (loadLib): Likewise. (loadLibNoUpdate): Likewise. --- src/ChangeLog | 8 ++++++++ src/interp/daase.lisp | 2 +- src/interp/lisplib.boot | 4 ++-- src/interp/sys-utility.boot | 9 ++++++++- 4 files changed, 19 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 7d8cb609..7e2c7153 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,11 @@ +2008-03-31 Gabriel Dos Reis + + * interp/sys-utility.boot (loadModule): New. + * interp/daase.lisp (initial-getdatabase): Use it instead of + Lisp's LOAD. + * interp/lisplib.boot (loadLib): Likewise. + (loadLibNoUpdate): Likewise. + 2008-03-30 Gabriel Dos Reis * interp/i-intern.boot (mkAtree3): Don't apply syntactic diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 8c2efb59..93524aff 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -412,7 +412,7 @@ (if (probe-file c) (progn (put con 'loaded c) - (load c) + (|loadModule| c con) (format t "loaded.~%")) (format t "skipped.~%")))) (format t "~%"))) diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 52c73045..5c5f50df 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -157,7 +157,7 @@ loadLib cname == kind := GETDATABASE(cname,'CONSTRUCTORKIND) if $printLoadMsgs then sayKeyedMsg("S2IL0002",[namestring fullLibName,kind,cname]) - LOAD(fullLibName) + loadModule(fullLibName,cname) clearConstructorCache cname updateDatabase(cname,cname,systemdir?) installConstructor(cname,kind) @@ -183,7 +183,7 @@ loadLibNoUpdate(cname, libName, fullLibName) == kind := GETDATABASE(cname,'CONSTRUCTORKIND) if $printLoadMsgs then sayKeyedMsg("S2IL0002",[namestring fullLibName,kind,cname]) - if CATCH('VERSIONCHECK,LOAD(fullLibName)) = -1 + if CATCH('VERSIONCHECK,loadModule(fullLibName,cname)) = -1 then PRINC('" wrong library version...recompile ") PRINC(fullLibName) diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index f422d993..6bbb59a9 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -13,7 +13,7 @@ -- the documentation and/or other materials provided with the -- distribution. -- --- - Neither the name of The Numerical ALgorithms Group Ltd. nor the +-- - Neither the name of The Numerical Algorithms Group Ltd. nor the -- names of its contributors may be used to endorse or promote products -- derived from this software without specific prior written permission. -- @@ -161,6 +161,13 @@ checkMkdir path == getSystemModulePath m == CONCAT(systemRootDirectory(),'"algebra/",m,'".",$faslType) +++ load module in `path' that supposedly will define the function +++ indicated by `name'. +loadModule: (%String,%Symbol) -> %Thing +loadModule(path,name) == + FMAKUNBOUND name + LOAD path + --% numericis log10 x == LOG(x,10) -- cgit v1.2.3