Changeset 14975

Timestamp:

Sep 8, 2011, 6:39:26 PM (13 years ago)

Author:

R. Matthew Emerson

Message:

In the Darwin-specific version of open-shared-library-internal,
push newly-opened shlib objects onto *shared-libraries*.

The ELF and Windows targets already add to *shared-libraries*
in shlib-from-map-entry and shared-library-from-hmodule,
respectively.

File:

• trunk/source/level-0/l0-cfm-support.lisp (modified) (1 diff)

trunk/source/level-0/l0-cfm-support.lisp

@@ -669 +669 @@
           (unless lib
             (setq lib (%cons-shlib name name nil nil))
-            (setf (shlib.handle lib) handle))
+            (setf (shlib.handle lib) handle)
+            (push lib *shared-libraries*))
           (incf (shlib.opencount lib))
           (values lib nil))))))