NetBSD has a working dladdr, so we can use the fancy

;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.143 2010/12/26 23:14:21 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.144 2010/12/27 02:05:31 rtoy Exp $")

;;;

;;; **********************************************************************

;;;

	      frame)))))

#+(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris))

#+(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))

(defun find-foreign-function-name (address)

  "Return a string describing the foreign function near ADDRESS"

  (let ((addr (sys:sap-int address)))

		       (alien:slot info 'filename)

		       )))))))

#-(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris))

#-(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))

(defun find-foreign-function-name (ra)

  (declare (ignore ra))

  "Foreign function call land")