[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv8500/contrib

Modified Files:
	ChangeLog swank-kawa.scm 
Log Message:
swank-kawa.scm (copy-stack): Use null to mark absent src-loc information.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/03/09 11:06:12	1.191
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/03/09 11:06:30	1.192
@@ -1,7 +1,8 @@
 2009-03-09  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-kawa.scm: Use foo: style keywords because :foo is now
-	a symbol.x
+	a symbol.
+	(copy-stack): Use null to mark absent src-loc information.
 
 2009-03-08  Tobias C. Rittweiler  <tcr at freebits.de>
 
--- /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/03/09 11:06:16	1.13
+++ /project/slime/cvsroot/slime/contrib/swank-kawa.scm	2009/03/09 11:06:30	1.14
@@ -1299,7 +1299,7 @@
           (fun ((f <frame>))
             (let ((vars (ignore-errors (! visibleVariables f))))
               (pack (<faked-frame> 
-                     (ignore-errors (! location f))
+                     (or (ignore-errors (! location f)) #!null)
                      (ignore-errors (! getArgumentValues f))
                      (or vars #!null)
                      (or (and vars (ignore-errors (! get-values f vars)))