try to parse the Args: line in most ecl functions to make modelines m…

…ore interesting
antifuchs · Dec 22, 2007 · d31550c · d31550c
1 parent 961cbe4
commit d31550c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/swank-ecl.lisp b/swank-ecl.lisp
@@ -157,6 +157,19 @@
       (typecase name 
         (generic-function
          (clos::generic-function-lambda-list name))
+        (compiled-function
+         ; most of the compiled functions have an Args: line in their docs
+         (with-input-from-string (s (or
+                                     (si::get-documentation
+                                      (si:compiled-function-name name) 'function)
+                                     ""))
+           (do ((line (read-line s nil) (read-line s nil)))
+               ((not line) :not-available)
+             (ignore-errors
+               (if (string= (subseq line 0 6) "Args: ")
+                   (return-from nil
+                     (read-from-string (subseq line 6))))))))
+         ;
         (function
          (let ((fle (function-lambda-expression name)))
            (case (car fle)