[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Fix describe of a package without sb-package-locks
From:       "Douglas Katzman" <snuglas () users ! sourceforge ! net>
Date:       2014-04-19 21:24:28
Message-ID: E1WbckS-0000xV-2y () sfs-ml-4 ! v29 ! ch3 ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  cc56b5900b4b9fe93ea8a664953ef1c2f0d7223f (commit)
      from  189dd8be262c6abddd9c85d67aa1dfbe0efcdc8d (commit)

- Log -----------------------------------------------------------------
commit cc56b5900b4b9fe93ea8a664953ef1c2f0d7223f
Author: Douglas Katzman <dougk@google.com>
Date:   Sat Apr 19 17:23:46 2014 -0400

    Fix describe of a package without sb-package-locks
---
 src/code/describe.lisp |   36 ++++++++++++++++--------------------
 1 files changed, 16 insertions(+), 20 deletions(-)

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index da5082b..b8e807e 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -397,28 +397,24 @@
                    #'string<))
            (out (label list)
              (describe-stuff label list stream :escape nil)))
-      (let ((implemented (humanize (package-implemented-by-list package)))
-            (implements (humanize (package-implements-list package)))
-            (nicks (humanize (package-nicknames package)))
-            (uses (humanize (package-use-list package)))
-            (used (humanize (package-used-by-list package)))
-            (shadows (humanize (package-shadowing-symbols package)))
-            (this (list (package-name package)))
-            (exports nil))
+      (let ((exports nil))
         (do-external-symbols (ext package)
           (push ext exports))
-        (setf exports (humanize exports))
-        (when (package-locked-p package)
-          (format stream "~@:_Locked."))
-        (when (set-difference implemented this :test #'string=)
-          (out "Implemented-by-list" implemented))
-        (when (set-difference implements this :test #'string=)
-          (out "Implements-list" implements))
-        (out "Nicknames" nicks)
-        (out "Use-list" uses)
-        (out "Used-by-list" used)
-        (out "Shadows" shadows)
-        (out "Exports" exports)
+        #+sb-package-locks
+        (let ((implemented (humanize (package-implemented-by-list package)))
+              (implements (humanize (package-implements-list package)))
+              (this (list (package-name package))))
+          (when (package-locked-p package)
+            (format stream "~@:_Locked."))
+          (when (set-difference implemented this :test #'string=)
+            (out "Implemented-by-list" implemented))
+          (when (set-difference implements this :test #'string=)
+            (out "Implements-list" implements)))
+        (out "Nicknames" (humanize (package-nicknames package)))
+        (out "Use-list" (humanize (package-use-list package)))
+        (out "Used-by-list" (humanize (package-used-by-list package)))
+        (out "Shadows" (humanize (package-shadowing-symbols package)))
+        (out "Exports" (humanize exports))
         (format stream "~@:_~S internal symbols."
                 (package-internal-symbol-count package))))
     (terpri stream)))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL

------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and their
applications. Written by three acclaimed leaders in the field,
this first edition is now available. Download your free book today!
http://p.sf.net/sfu/NeoTech
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]