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

Diff of /slime/swank-cmucl.lisp

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

revision 1.70 by heller, Tue Feb 24 23:31:34 2004 UTC revision 1.71 by heller, Wed Feb 25 20:51:50 2004 UTC
# Line 822  The result has the format \"(...)\"." Line 822  The result has the format \"(...)\"."
822                 "(-- <Unknown-Function>)"                 "(-- <Unknown-Function>)"
823                 (let* ((fun (or (macro-function function)                 (let* ((fun (or (macro-function function)
824                                 (symbol-function function)))                                 (symbol-function function)))
                       (df (di::function-debug-function fun))  
825                        (arglist (kernel:%function-arglist                        (arglist (kernel:%function-arglist
826                                  (kernel:%function-self fun))))                                  (kernel:%function-self fun))))
827                   (cond ((eval:interpreted-function-p fun)                   (cond ((eval:interpreted-function-p fun)
# Line 833  The result has the format \"(...)\"." Line 832  The result has the format \"(...)\"."
832                         ;; this should work both for                         ;; this should work both for
833                         ;; compiled-debug-function and for                         ;; compiled-debug-function and for
834                         ;; interpreted-debug-function                         ;; interpreted-debug-function
835                         (df (di::debug-function-lambda-list df))                         (t (let ((df (di::function-debug-function fun)))
836                         (t "(<arglist-unavailable>)"))))))                              (if df
837                                    (di::debug-function-lambda-list df)
838                                    "(<arglist-unavailable>)"))))))))
839        (etypecase arglist        (etypecase arglist
840          (string arglist)          (string arglist)
841          (cons (let ((*print-case* :downcase)          (cons (let ((*print-case* :downcase)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5