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

Diff of /mcclim/describe.lisp

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

revision 1.2 by moore, Fri Sep 6 02:47:15 2002 UTC revision 1.3 by mikemac, Mon Nov 11 18:37:00 2002 UTC
# Line 120  Line 120 
120    (format stream "   it has the nicknames of ")    (format stream "   it has the nicknames of ")
121    (clim:present (package-nicknames thing) 'clim:expression    (clim:present (package-nicknames thing) 'clim:expression
122                  :stream stream)                  :stream stream)
123    (terpri)    (terpri stream)
124    (format stream "   it uses these packages: ")    (format stream "   it uses these packages: ")
125    (clim:present (package-use-list thing) 'clim:expression    (clim:present (package-use-list thing) 'clim:expression
126                  :stream stream)                  :stream stream)
127    (terpri)    (terpri stream)
128    (format stream "   it is used by the packages: ")    (format stream "   it is used by the packages: ")
129    (clim:present (package-used-by-list thing) 'clim:expression    (clim:present (package-used-by-list thing) 'clim:expression
130                  :stream stream)                  :stream stream)
131    (terpri))    (terpri stream))
132    
133  (defmethod describe-object ((thing structure-object) stream)  (defmethod describe-object ((thing structure-object) stream)
134    (clim:present thing (clim:presentation-type-of thing)    (clim:present thing (clim:presentation-type-of thing)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5