From: William H. N. <wn...@us...> - 2003-12-18 01:05:24
|
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: ") |