- (let ((got (read-linish *ed-out*)))
- (unless (equal response got)
- (error "wanted ~S from ed, got ~S" response got)))
+ (when response
+ (let ((got (read-linish *ed-out*)))
+ (unless (equal response got)
+ (error "wanted '~A' from ed, got '~A'" response got))))