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

Diff of /slime/swank.lisp

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

revision 1.497 by trittweiler, Fri Aug 24 13:55:25 2007 UTC revision 1.498 by mkoeppe, Sat Aug 25 04:56:50 2007 UTC
# Line 2373  If the arglist is not available, return Line 2373  If the arglist is not available, return
2373                        t)))))))                        t)))))))
2374    (call-next-method))    (call-next-method))
2375    
 (defslimefun arglist-for-insertion (name)  
   (with-buffer-syntax ()  
     (let ((symbol (parse-symbol name)))  
       (cond  
         ((and symbol  
               (valid-operator-name-p name))  
          (let ((decoded-arglist  
                 (compute-enriched-decoded-arglist symbol nil)))  
            (if (eql decoded-arglist :not-available)  
                :not-available  
                (decoded-arglist-to-template-string decoded-arglist  
                                                    *buffer-package*))))  
         (t  
          :not-available)))))  
   
2376  (defvar *remove-keywords-alist*  (defvar *remove-keywords-alist*
2377    '((:test :test-not)    '((:test :test-not)
2378      (:test-not :test)))      (:test-not :test)))

Legend:
Removed from v.1.497  
changed lines
  Added in v.1.498

  ViewVC Help
Powered by ViewVC 1.1.5