diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-31 06:09:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-31 06:09:09 +0000 |
| commit | 9920a0abe7a40dedfe43efe83722372e06dc0826 (patch) | |
| tree | e66a2cc4273225b62da5080ac2471dd76607e365 /src/interp/lisplib.boot | |
| parent | d1991c79a1612d16a38ede9d6f72024f64714122 (diff) | |
| download | open-axiom-9920a0abe7a40dedfe43efe83722372e06dc0826.tar.gz | |
* 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.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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) |