/[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.52 by heller, Sat Jan 17 09:59:48 2004 UTC revision 1.53 by heller, Sat Jan 17 10:23:19 2004 UTC
# Line 789  The result has the format \"(...)\"." Line 789  The result has the format \"(...)\"."
789                         ;; interpreted-debug-function                         ;; interpreted-debug-function
790                         (df (di::debug-function-lambda-list df))                         (df (di::debug-function-lambda-list df))
791                         (t "(<arglist-unavailable>)"))))))                         (t "(<arglist-unavailable>)"))))))
792        (if (stringp arglist)        (etypecase arglist
793            arglist          (string arglist)
794            (to-string arglist)))))          (cons (to-string arglist))
795            (null "()")))))
796    
797    
798  ;;;; Miscellaneous.  ;;;; Miscellaneous.

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

  ViewVC Help
Powered by ViewVC 1.1.5