((/unicode/read-file-objects.lisp::tr-read-object-all (nil nil nil nil (if) nil nil) (nil nil (mbt) (mv) (mv-let) nil nil) ((nil state) nil (state-p) (eofp read-object) (if) nil nil) ((state obj state channel state eofp) nil nil (mv) (recursive-call) nil nil) ((state channel state) nil (reverse) (cons) nil nil nil) ((acc obj acc) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/unicode/read-file-objects.lisp::read-object-all (nil nil nil nil nil (mbe) nil) ((:logic :exec) nil nil nil (if tr-read-object-all) nil nil) ((channel state nil) nil (state-p) (mv) (mv-let) nil nil) ((state nil state) nil nil (eofp read-object) (if) nil nil) ((obj state channel state eofp) nil nil (mv) (mv-let) nil nil) ((nil state) nil (rest) (recursive-call mv) nil nil nil) ((state channel state state) nil nil (cons) nil nil nil)) (/unicode/read-file-objects.lisp::read-file-objects (nil nil nil nil (mv-let) nil nil) (nil nil (channel) nil (open-input-channel if) nil nil) ((state filename :object state channel) nil nil (mv) (mv-let) nil nil) ((Error opening file. state) nil (data) (read-object-all let) nil nil nil) ((state channel state (state (close-input-channel channel state))) nil nil (mv) nil nil nil) ((data state) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))