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

Diff of /slime/swank-sbcl.lisp

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

revision 1.236 by trittweiler, Sat Mar 7 10:14:42 2009 UTC revision 1.237 by trittweiler, Sat Mar 7 19:08:03 2009 UTC
# Line 382  information." Line 382  information."
382                         (sb-ext:compiler-note :note)                         (sb-ext:compiler-note :note)
383                         (style-warning        :style-warning)                         (style-warning        :style-warning)
384                         (warning              :warning)                         (warning              :warning)
385                           (reader-error         :read-error)
386                         (error                :error))                         (error                :error))
387             :short-message (brief-compiler-message-for-emacs condition)             :short-message (brief-compiler-message-for-emacs condition)
388             :references (condition-references (real-condition condition))             :references (condition-references (real-condition condition))
# Line 413  information." Line 414  information."
414               (unless (open-stream-p stream)               (unless (open-stream-p stream)
415                 (bailout))                 (bailout))
416               (if (compiling-from-buffer-p file)               (if (compiling-from-buffer-p file)
417                     ;; The stream position for e.g. "comma not inside backquote"
418                     ;; is at the character following the comma, :offset is 0-based,
419                     ;; hence the 1-.
420                   (make-location (list :buffer *buffer-name*)                   (make-location (list :buffer *buffer-name*)
421                                  (list :offset *buffer-offset*                                  (list :offset *buffer-offset*
422                                        (file-position stream)))                                        (1- (file-position stream))))
423                   (progn                   (progn
424                     (assert (compiling-from-file-p file))                     (assert (compiling-from-file-p file))
425                       ;; No 1- because :position is 1-based.
426                     (make-location (list :file (namestring file))                     (make-location (list :file (namestring file))
427                                    (list :position (file-position stream)))))))                                    (list :position (file-position stream)))))))
428            (t (bailout)))))            (t (bailout)))))

Legend:
Removed from v.1.236  
changed lines
  Added in v.1.237

  ViewVC Help
Powered by ViewVC 1.1.5