Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv30619/contrib

Modified Files:
	stale-symbols.lisp 
Log Message:
0.8.6.40:
	merged patch from Marco Baringer (sbcl-devel 2003-12-02) to 
		allow (TRACE "MY-PACKAGE-NAME")
	collapsed IF clause at the end of EXPAND-TRACE, since SBCL now
		always has a compiler and shouldn't need to worry about
		supporting interpreter-only environments


Index: stale-symbols.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/stale-symbols.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- stale-symbols.lisp	24 Oct 2002 16:24:10 -0000	1.2
+++ stale-symbols.lisp	18 Dec 2003 01:05:19 -0000	1.3
@@ -71,7 +71,8 @@
                             (length static-space-refs)
                             (length dynamic-space-refs)))
                (format t "Symbol ~a::~a~%"
-                       (and (symbol-package obj) (package-name (symbol-package obj)))
+                       (and (symbol-package obj)
+			    (package-name (symbol-package obj)))
                        (symbol-name obj))
                (unless (null read-only-space-refs)
                  (princ "   Reference in read-only space: ")