/[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.89 by heller, Fri Jul 28 15:04:53 2006 UTC revision 1.90 by heller, Thu Aug 10 18:55:51 2006 UTC
# Line 407  Line 407 
407        (list        (list
408         (list (list nil fspec)         (list (list nil fspec)
409               (make-location (list :buffer file)               (make-location (list :buffer file)
410                              (list :position position))))))                              (list :position position t))))))
411       ((and (listp fspec) (eq (car fspec) :internal))
412        (destructuring-bind (_internal next _n) fspec
413          (fspec-definition-locations next)))
414     (t     (t
415      (let ((defs (excl::find-source-file fspec)))      (let ((defs (excl::find-source-file fspec)))
416        (if (null defs)        (if (null defs)

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

  ViewVC Help
Powered by ViewVC 1.1.5