[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: grand at MIT-AI
- From: JONL at MIT-MC (Jon L White)
- Date: Wed, 17 Oct 79 13:42:00 GMT
- Cc: GLS at MIT-MC, (BUG LISP) at MIT-MC
- Original-date: 17 OCT 1979 0942-EDT
Date: Tue, 17 Oct 79 02:39:58 GMT
Original-Date: 10/16/79 22:39:58 EDT
To: GLS at MIT-AI
CC: (BUG LISP) at MIT-AI
Isn't change (setq + -) to (or (equal - '+) (setq - '+))
what I said?
No, you had
Change (setq + -) to (or (equal + '+) (setq + -))
I presume that the effect you want is: if you type a "+" at the
top-level loop, you don't want the next value of + to be "+".
Quux's rewriting of this as
change (SETQ + -) to (OR (EQUAL - '+) (SETQ + -))
would accomplish this (more or less at TLEVAL).