/[slime]/slime/swank-allegro.lisp
ViewVC logotype

Diff of /slime/swank-allegro.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.137 by heller, Tue Mar 9 08:02:37 2010 UTC revision 1.138 by heller, Tue Mar 9 08:15:05 2010 UTC
# Line 236  Line 236 
236                    (paths (source-paths-of (excl::ldb-code-source whole)                    (paths (source-paths-of (excl::ldb-code-source whole)
237                                            (excl::ldb-code-source code)))                                            (excl::ldb-code-source code)))
238                    (path (longest-common-prefix paths))                    (path (longest-common-prefix paths))
239                    (start (excl::ldb-code-start-char whole))                    (start (excl::ldb-code-start-char whole)))
240                    (probe (gethash src-file *temp-file-map*)))               (buffer-or-file
241               (cond ((not probe)                src-file
242                      (make-location `(:file ,(namestring (truename src-file)))                (lambda (file)
243                                     `(:source-path (0 . ,path) ,start)))                  (make-location `(:file ,file)
244                     (t                                 `(:source-path (0 . ,path) ,start)))
245                      (destructuring-bind (buffer bstart file) probe                (lambda (buffer bstart)
246                        (declare (ignore file))                  (make-location `(:buffer ,buffer)
247                        (make-location `(:buffer ,buffer)                                 `(:source-path (0 . ,path)
248                                       `(:source-path (0 . ,path)                                                ,(+ bstart start))))))))))
249                                                      ,(+ bstart start)))))))))))  
   
250  (defun longest-common-prefix (sequences)  (defun longest-common-prefix (sequences)
251    (assert sequences)    (assert sequences)
252    (flet ((common-prefix (s1 s2)    (flet ((common-prefix (s1 s2)

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

  ViewVC Help
Powered by ViewVC 1.1.5