[CM] Re: foo.cm problem

[Rick Taube]

>>
>>  The following code appears to work, but it produces an empty file:

rev 1.10 of io.scm should have this fixed. here is the relevant 
redefinition if you just want to patch your current io.lisp instread of 
waiting for cvs migration.  tested in in sbcl but not cmucl ( I dont 
have linux at home). will fix cmio versioning later today.


(defun write-event-streams (class)
   (cond ((null class) (list))
         ((consp class)
          (let ((strs (write-event-streams (car class))))
            (if (null strs) (write-event-streams (cdr class)) strs)))
         (t
          (let ((strs (class-event-streams class)))
            (if (null strs)
                (write-event-streams
                 (class-direct-superclasses class))
                strs)))
         (t (write-event-streams (class-direct-superclasses class)))))