CC: (BUG LISPM) at MIT-AI The following causes the more loosage: in Zwei: m- (do (()) (()) (print 'foo)) c-<cr> the following looses in that it doesn't more at all, but runs into infinity: m- (setq foo '(foo foo)) (rplacd foo foo) c-<cr> This last is probably not real serious, cuz one shouldn't do it, but there it is.