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

Diff of /slime/swank-cmucl.lisp

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

revision 1.205 by trittweiler, Tue Dec 30 18:57:54 2008 UTC revision 1.206 by heller, Sun Jan 4 20:53:30 2009 UTC
# Line 479  the error-context redundant." Line 479  the error-context redundant."
479  Return a `location' record, or (:error REASON) on failure."  Return a `location' record, or (:error REASON) on failure."
480    (if (null context)    (if (null context)
481        (note-error-location)        (note-error-location)
482        (let ((file (c::compiler-error-context-file-name context))        (with-struct (c::compiler-error-context- file-name
483              (source (c::compiler-error-context-original-source context))                                                 original-source
484              (path                                                 original-source-path) context
485               (reverse (c::compiler-error-context-original-source-path context))))          (or (locate-compiler-note file-name original-source
486          (or (locate-compiler-note file source path)                                    (reverse original-source-path))
487              (note-error-location)))))              (note-error-location)))))
488    
489  (defun note-error-location ()  (defun note-error-location ()
490    "Pseudo-location for notes that can't be located."    "Pseudo-location for notes that can't be located."
491    (list :error "No error location available."))    (cond (*compile-file-truename*
492             (make-location (list :file (unix-truename *compile-file-truename*))
493                            (list :eof)))
494            (*buffer-name*
495             (make-location (list :buffer *buffer-name*)
496                            (list :position *buffer-start-position*)))
497            (t (list :error "No error location available."))))
498    
499  (defun locate-compiler-note (file source source-path)  (defun locate-compiler-note (file source source-path)
500    (cond ((and (eq file :stream) *buffer-name*)    (cond ((and (eq file :stream) *buffer-name*)

Legend:
Removed from v.1.205  
changed lines
  Added in v.1.206

  ViewVC Help
Powered by ViewVC 1.1.5