[slime-cvs] CVS update: slime/swank-openmcl.lisp

[Alan Ruttenberg]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv21249/slime

Modified Files:
	swank-openmcl.lisp 
Log Message:

Date: Fri Aug 26 20:00:29 2005
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.96 slime/swank-openmcl.lisp:1.97
--- slime/swank-openmcl.lisp:1.96	Mon Aug 15 22:13:15 2005
+++ slime/swank-openmcl.lisp	Fri Aug 26 20:00:29 2005
@@ -235,7 +235,9 @@
   "Return the position in the source file of a compiler condition."
   (+ 1
      (or *buffer-offset* 0)
-     (ccl::compiler-warning-stream-position condition)))
+     ;; alanr sometimes returned stream position nil.
+     (or (ccl::compiler-warning-stream-position condition) 0))) 
+
 
 (defun handle-compiler-warning (condition)
   "Construct a compiler note for Emacs from a compiler warning