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

Diff of /mcclim/describe.lisp

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

revision 1.5 by mikemac, Fri Mar 21 21:36:58 2003 UTC revision 1.6 by mikemac, Sat Aug 9 00:46:44 2003 UTC
# Line 82  Line 82 
82    (when (fboundp thing)    (when (fboundp thing)
83      (format stream "   it has a function definition of ~S~%" (symbol-function thing))      (format stream "   it has a function definition of ~S~%" (symbol-function thing))
84      (format stream "      which has the argument list ")      (format stream "      which has the argument list ")
85      #+excl (clim:present (excl:arglist (symbol-function thing))      (let ((arglist #+excl (excl:arglist (symbol-function thing))
86                           (clim:presentation-type-of (excl:arglist (symbol-function thing)))                     #+cmu (kernel:%function-arglist (symbol-function thing))
87                           :stream stream)                     #+sbcl (sb-kernel:%simple-function-arglist (symbol-function thing))
88      #+cmu (clim:present (kernel:%function-arglist (symbol-function thing))                     #-(or excl cmu sbcl) "( ??? )"))
89                            (clim:presentation-type-of (kernel:%function-arglist (symbol-function thing)))        (when arglist
90                            :stream stream)          (clim:present arglist
91                          (clim:presentation-type-of arglist)
92                          :stream stream)))
93      (terpri))      (terpri))
94    (format stream "   it has a property list of ~S~%" (symbol-plist thing)))    (format stream "   it has a property list of ~S~%" (symbol-plist thing)))
95    

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

  ViewVC Help
Powered by ViewVC 1.1.5