/[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.261 by trittweiler, Wed Dec 16 21:59:49 2009 UTC revision 1.262 by trittweiler, Wed Dec 16 22:02:20 2009 UTC
# Line 727  compiler state." Line 727  compiler state."
727    (with-struct (sb-introspect::definition-source-    (with-struct (sb-introspect::definition-source-
728                     pathname form-path character-offset plist)                     pathname form-path character-offset plist)
729        definition-source        definition-source
730      (when (getf plist :emacs-buffer)      (cond ((getf plist :emacs-buffer) :buffer)
731        (return-from categorize-definition-source :buffer))            ((and pathname (or form-path character-offset)) :file)
732      (when (and pathname (or form-path character-offset))            (t :invalid))))
       (return-from categorize-definition-source :file))  
     :invalid))  
733    
734  (defun definition-source-for-emacs (definition-source type name)  (defun definition-source-for-emacs (definition-source type name)
735    (with-struct (sb-introspect::definition-source-    (with-struct (sb-introspect::definition-source-

Legend:
Removed from v.1.261  
changed lines
  Added in v.1.262

  ViewVC Help
Powered by ViewVC 1.1.5