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

Diff of /slime/swank.lisp

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

revision 1.535 by heller, Sat Feb 23 10:28:01 2008 UTC revision 1.536 by heller, Sun Feb 24 16:49:49 2008 UTC
# Line 1855  WHAT can be: Line 1855  WHAT can be:
1855    
1856  Returns true if it actually called emacs, or NIL if not."  Returns true if it actually called emacs, or NIL if not."
1857    (flet ((pathname-or-string-p (thing)    (flet ((pathname-or-string-p (thing)
1858             (or (pathnamep thing) (typep thing 'string))))             (or (pathnamep thing) (typep thing 'string)))
1859             (canonicalize-filename (filename)
1860               (namestring (or (probe-file filename) filename))))
1861      (let ((target      (let ((target
1862             (cond ((and (listp what) (pathname-or-string-p (first what)))             (cond ((and (listp what) (pathname-or-string-p (first what)))
1863                    (cons (canonicalize-filename (car what)) (cdr what)))                    (cons (canonicalize-filename (car what)) (cdr what)))
# Line 2166  the local variables in the frame INDEX." Line 2168  the local variables in the frame INDEX."
2168  (defun clear-compiler-notes ()  (defun clear-compiler-notes ()
2169    (setf *compiler-notes* '()))    (setf *compiler-notes* '()))
2170    
 (defun canonicalize-filename (filename)  
   (namestring (truename filename)))  
   
2171  (defslimefun compiler-notes-for-emacs ()  (defslimefun compiler-notes-for-emacs ()
2172    "Return the list of compiler notes for the last compilation unit."    "Return the list of compiler notes for the last compilation unit."
2173    (reverse *compiler-notes*))    (reverse *compiler-notes*))

Legend:
Removed from v.1.535  
changed lines
  Added in v.1.536

  ViewVC Help
Powered by ViewVC 1.1.5