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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(compiler-note-location): Use make-location to instead of `(:location
...). This initializes the new hint slot.

Date: Fri May  7 17:11:18 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.30 slime/swank-clisp.lisp:1.31
--- slime/swank-clisp.lisp:1.30	Wed Apr 28 18:19:14 2004
+++ slime/swank-clisp.lisp	Fri May  7 17:11:18 2004
@@ -299,9 +299,11 @@
 	(lineno2 sys::*compile-file-lineno2*)
 	(file sys::*compile-file-truename*))
     (cond ((and file lineno1 lineno2)
-	   `(:location (:file ,(namestring file)) (:line ,lineno1)))
+	   (make-location (list ':file (namestring file))
+			  (list ':line lineno1)))
 	  (*buffer-name*
-	   `(:location (:buffer ,*buffer-name*) (:position ,*buffer-offset*)))
+	   (make-location (list ':buffer *buffer-name*) 
+			  (list ':position *buffer-offset*)))
 	  (t
 	   (list :error "No error location available")))))