/[gcl]/gcl/clcs/conditions.lisp
ViewVC logotype

Diff of /gcl/clcs/conditions.lisp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:55 1999 UTC revision 1.2 by camm, Sun Dec 8 03:28:51 2002 UTC
# Line 180  Line 180 
180                         SLOT-SPECS))                         SLOT-SPECS))
181                    *condition-class-list*)                    *condition-class-list*)
182           #+kcl (setf (get ',name #+akcl 'si::s-data #-akcl 'si::is-a-structure) nil)           #+kcl (setf (get ',name #+akcl 'si::s-data #-akcl 'si::is-a-structure) nil)
183           (setf (get ',name 'documentation) ',documentation))  ;        (setf (get ',name 'documentation) ',documentation)
184             )
185        ,@(when REPORT-FUNCTION        ,@(when REPORT-FUNCTION
186             `((DEFMETHOD PRINT-OBJECT ((X ,NAME) STREAM)             `((DEFMETHOD PRINT-OBJECT ((X ,NAME) STREAM)
187                 (IF *PRINT-ESCAPE*                 (IF *PRINT-ESCAPE*

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

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26