From dougk at google.com  Fri Apr 21 21:32:27 2017
From: dougk at google.com (Douglas Katzman)
Date: Fri, 21 Apr 2017 17:32:27 -0400
Subject: ltk patch for SBCL
Message-ID: <CAOrNasxaGs2MEHh37d2_hhY87sKdDGfnFzCS9Fn=LkN0bTLmjQ@mail.gmail.com>

Please apply the following forward-and-backward compatible diff for SBCL.
closure-header-widetag is pending removed in the next release.

diff --git a/ginspect.lisp b/ginspect.lisp
index 3d448f8..a5ad37d 100644
--- a/ginspect.lisp
+++ b/ginspect.lisp
@@ -252,8 +252,7 @@
   (inspected-standard-object-elements object)))
 #+:sbcl
 (defmethod inspected-parts ((object function))
-  (let* ((type (sb-kernel:widetag-of object))
- (object (if (= type sb-vm:closure-header-widetag)
+  (let ((object (if (sb-kernel:closurep object)
      (sb-kernel:%closure-fun object)
      object)))
     (values (format nil "FUNCTION ~S.~@[~%Argument List: ~A~]." object
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ltk-user/attachments/20170421/a762e33e/attachment.html>