Index: /trunk/ccl/level-0/l0-cfm-support.lisp
===================================================================
--- /trunk/ccl/level-0/l0-cfm-support.lisp	(revision 827)
+++ /trunk/ccl/level-0/l0-cfm-support.lisp	(revision 828)
@@ -430,11 +430,12 @@
 
 (defun shlib-containing-address (address &optional name)
-   (rletZ ((info :<D>l_info))
-     (let* ((status (ff-call *dladdr-entry*
-			     :address address
-			     :address info :signed-fullword)))
-       (declare (integer status))
-       (unless (zerop status)
-	 (shared-library-at (pref info :<D>l_info.dli_fbase))))))
+  (declare (ignore name))
+  (rletZ ((info :<D>l_info))
+    (let* ((status (ff-call *dladdr-entry*
+                            :address address
+                            :address info :signed-fullword)))
+      (declare (integer status))
+      (unless (zerop status)
+        (shared-library-at (pref info :<D>l_info.dli_fbase))))))