Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23743/src/compiler/generic

Modified Files:
	genesis.lisp 
Log Message:
0.9.4.7:
	Commit basically-working ldb backtrace on x86(-64) from David
	Lichteblau (http://www.lichteblau.com/backtrace.diff as 
	announced 2005-08-26 on #lisp)
	... unicode symbols not terribly well printed;
	... only lightly tested; heuristics probably a bit broken.


Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -d -r1.107 -r1.108
--- genesis.lisp	16 Aug 2005 17:09:49 -0000	1.107
+++ genesis.lisp	26 Aug 2005 21:33:08 -0000	1.108
@@ -2821,7 +2821,9 @@
 
 (defun write-structure-object (dd)
   (flet ((cstring (designator)
-           (substitute #\_ #\- (string-downcase (string designator)))))
+           (substitute
+            #\_ #\%
+            (substitute #\_ #\- (string-downcase (string designator))))))
     (format t "#ifndef LANGUAGE_ASSEMBLY~2%")
     (format t "struct ~A {~%" (cstring (dd-name dd)))
     (format t "    lispobj header;~%")
@@ -3289,7 +3291,11 @@
                     (format t "~&#include \"~A.h\"~%"
                             (string-downcase
                              (string (sb!vm:primitive-object-name obj)))))))
-        (dolist (class '(hash-table layout))
+        (dolist (class '(hash-table
+                         layout
+                         sb!c::compiled-debug-info
+                         sb!c::compiled-debug-fun
+                         sb!xc:package))
           (out-to
            (string-downcase (string class))
            (write-structure-object