/[cmucl]/src/code/foreign.lisp
ViewVC logotype

Diff of /src/code/foreign.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50.4.1 by rtoy, Tue Jun 21 17:42:54 2005 UTC revision 1.50.4.2 by rtoy, Thu Jul 7 16:00:09 2005 UTC
# Line 659  to skip undefined symbols which don't ha Line 659  to skip undefined symbols which don't ha
659    (ensure-lisp-table-opened)    (ensure-lisp-table-opened)
660    ; rtld global: so it can find all the symbols previously loaded    ; rtld global: so it can find all the symbols previously loaded
661    ; rtld now: that way dlopen will fail if not all symbols are defined.    ; rtld now: that way dlopen will fail if not all symbols are defined.
662    (let* ((filename (namestring (truename file)))    (let* ((filename (namestring (if (lisp::logical-pathname-p (pathname file))
663                                       (translate-logical-pathname file)
664                                       file)))
665           (sap (dlopen filename (logior rtld-now rtld-global))))           (sap (dlopen filename (logior rtld-now rtld-global))))
666      (cond ((zerop (sap-int sap))      (cond ((zerop (sap-int sap))
667             (let ((err-string (dlerror))             (let ((err-string (dlerror))

Legend:
Removed from v.1.50.4.1  
changed lines
  Added in v.1.50.4.2

  ViewVC Help
Powered by ViewVC 1.1.5