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

Diff of /slime/swank-abcl.lisp

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

revision 1.68 by mevenson, Wed Aug 19 14:58:02 2009 UTC revision 1.69 by mevenson, Sat Sep 12 08:47:30 2009 UTC
# Line 213  Line 213 
213    
214  (defimplementation arglist (fun)  (defimplementation arglist (fun)
215    (cond ((symbolp fun)    (cond ((symbolp fun)
216           (multiple-value-bind (arglist present) (sys::arglist fun)           (multiple-value-bind (arglist present)
217                 (or (sys::arglist fun)
218                     (and (fboundp fun)
219                          (typep (symbol-function fun) 'standard-generic-function)
220                          (let ((it (mop::generic-function-lambda-list (symbol-function fun))))
221                            (values it it))))
222             (if present arglist :not-available)))             (if present arglist :not-available)))
223          (t :not-available)))          (t :not-available)))
224    
# Line 430  Line 435 
435    
436  (defun source-location (symbol)  (defun source-location (symbol)
437    (when (pathnamep (ext:source-pathname symbol))    (when (pathnamep (ext:source-pathname symbol))
438      `(((,symbol)      (let ((pos (ext:source-file-position symbol)))
439         (:location        `(((,symbol)
440          (:file ,(namestring (ext:source-pathname symbol)))           (:location
441          (:position ,(or (ext:source-file-position symbol) 1))             (:file ,(namestring (ext:source-pathname symbol)))
442          (:align t))))))             ,(if (and pos (plusp pos))
443                    (list :position pos t)
444                    (list :function-name (string symbol)))
445               (:align t)))))))
446    
447  (defimplementation find-definitions (symbol)  (defimplementation find-definitions (symbol)
448    (source-location symbol))    (source-location symbol))

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

  ViewVC Help
Powered by ViewVC 1.1.5