/[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.30 by lgorrie, Mon Apr 26 17:11:36 2004 UTC revision 1.31 by heller, Fri May 21 08:19:47 2004 UTC
# Line 30  Line 30 
30    
31  ;;;; TCP Server  ;;;; TCP Server
32    
   
33  (defimplementation preferred-communication-style ()  (defimplementation preferred-communication-style ()
34    :spawn)    :spawn)
35    
# Line 62  Line 61 
61    
62  (defimplementation set-default-directory (directory)  (defimplementation set-default-directory (directory)
63    (excl:chdir directory)    (excl:chdir directory)
64    (namestring (setf *default-pathname-defaults* (truename (merge-pathnames directory)))))    (namestring (setf *default-pathname-defaults*
65                        (truename (merge-pathnames directory)))))
66    
67  ;;;; Misc  ;;;; Misc
68    
# Line 92  Line 91 
91                    (doc 'class)))                    (doc 'class)))
92        result)))        result)))
93    
   
 (defimplementation describe-definition (symbol namespace)  
   (ecase namespace  
     (:variable  
      (describe symbol))  
     ((:function :generic-function)  
      (describe (symbol-function symbol)))  
     (:class  
      (describe (find-class symbol)))))  
   
94  (defimplementation describe-definition (symbol namespace)  (defimplementation describe-definition (symbol namespace)
95    (ecase namespace    (ecase namespace
96      (:variable      (:variable
# Line 214  Line 203 
203  ;;;; Definition Finding  ;;;; Definition Finding
204    
205  (defun find-fspec-location (fspec type)  (defun find-fspec-location (fspec type)
206    (let ((file (excl::fspec-pathname fspec type)))    (let* ((fspec (if (consp fspec)
207                        (excl::to-internal-fspec fspec)
208                        fspec))
209             (info (car (excl::fspec-fspec-info fspec)))
210             (file (excl::fspec-info-pathname info)))
211      (etypecase file      (etypecase file
212        (pathname        (pathname
213         (let ((start (scm:find-definition-in-file fspec type file)))         (let ((start (scm:find-definition-in-file fspec type file)))
214           (make-location (list :file (namestring (truename file)))           (make-location (list :file (namestring (truename file)))
215                          (if start                          (if start
216                              (list :position (1+ start))                              (list :position (1+ start))
217                              (list :function-name (string fspec))))))                              (list :function-name (string (third info)))))))
218        ((member :top-level)        ((member :top-level)
219         (list :error (format nil "Defined at toplevel: ~A" fspec)))         (list :error (format nil "Defined at toplevel: ~A" fspec)))
220        (null        (null

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5