<div dir="ltr">Please apply the following forward-and-backward compatible diff for SBCL.<div>closure-header-widetag is pending removed in the next release.<div><br></div><div><div>diff --git a/ginspect.lisp b/ginspect.lisp</div><div>index 3d448f8..a5ad37d 100644</div><div>--- a/ginspect.lisp</div><div>+++ b/ginspect.lisp</div><div>@@ -252,8 +252,7 @@</div><div> <span class="gmail-Apple-tab-span" style="white-space:pre">      </span>  (inspected-standard-object-elements object)))</div><div> #+:sbcl</div><div> (defmethod inspected-parts ((object function))</div><div>-  (let* ((type (sb-kernel:widetag-of object))</div><div>-<span class="gmail-Apple-tab-span" style="white-space:pre"> </span> (object (if (= type sb-vm:closure-header-widetag)</div><div>+  (let ((object (if (sb-kernel:closurep object)</div><div> <span class="gmail-Apple-tab-span" style="white-space:pre">           </span>     (sb-kernel:%closure-fun object)</div><div> <span class="gmail-Apple-tab-span" style="white-space:pre">               </span>     object)))</div><div>     (values (format nil "FUNCTION ~S.~@[~%Argument List: ~A~]." object</div><div><br></div></div></div></div>