Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/code/ntrace.lisp [a97406] .. [71bc8b] Maximize Restore

  Switch to side-by-side view

--- a/src/code/ntrace.lisp
+++ b/src/code/ntrace.lisp
@@ -660,7 +660,7 @@
       ((not fun)
        ;; Someone has FMAKUNBOUND it.
        (let ((table *traced-funs*))
-         (with-locked-hash-table (table)
+         (with-locked-system-table (table)
            (maphash (lambda (fun info)
                       (when (equal function-or-name (trace-info-what info))
                         (remhash fun table)))