/[mcclim]/mcclim/describe.lisp
ViewVC logotype

Diff of /mcclim/describe.lisp

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

revision 1.6 by mikemac, Sat Aug 9 00:46:44 2003 UTC revision 1.7 by kevin, Mon Aug 18 08:45:16 2003 UTC
# Line 84  Line 84 
84      (format stream "      which has the argument list ")      (format stream "      which has the argument list ")
85      (let ((arglist #+excl (excl:arglist (symbol-function thing))      (let ((arglist #+excl (excl:arglist (symbol-function thing))
86                     #+cmu (kernel:%function-arglist (symbol-function thing))                     #+cmu (kernel:%function-arglist (symbol-function thing))
87                     #+sbcl (sb-kernel:%simple-function-arglist (symbol-function thing))                     #+sbcl (sb-kernel:%simple-fun-arglist (symbol-function thing))
88                     #-(or excl cmu sbcl) "( ??? )"))                     #-(or excl cmu sbcl) "( ??? )"))
89        (when arglist        (when arglist
90          (clim:present arglist          (clim:present arglist

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5