Changeset 10538

Timestamp:

08/22/08 10:23:35 (3 months ago)

Author:

gb

Message:

Trunk changes to CLOSE-SHARED-LIBRARY.

Files:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -552 +552 @@
-
-;;; Kind of has something to do with files, and doesn't work in level-0.
-linux-target
+(or linux-target freebsd-target solaris-target)
-(defun close-shared-library (lib &key (completely t))
-  "If completely is T, set the reference count of library to 0. Otherwise,
@@ -562 +562 @@
-                    (error "Shared library ~s not found." lib))
-                (require-type lib 'shlib)))
-
-
-
+
+
-        (let* ((found nil)
-               (base (shlib.base lib)))
-          (do* ()
-               ((progn            
-map
+handle
-                  (or (not (setq found (shlib-containing-address base)))
-                      (not completely)))))
@@ -575 +574 @@
-            (setf (shlib.pathname lib) nil
-              (shlib.base lib) nil
+              (shlib.handle lib) nil
-              (shlib.map lib) nil)
-            (unload-foreign-variables lib)
-)
+
-
-#+darwin-target