diff --git a/src/shrdlu/newans.82 b/src/shrdlu/newans.83 similarity index 99% rename from src/shrdlu/newans.82 rename to src/shrdlu/newans.83 index 8f959823..b81e96da 100644 --- a/src/shrdlu/newans.82 +++ b/src/shrdlu/newans.83 @@ -1073,7 +1073,7 @@ TEST-LOOP (DEFUN NOTELL NIL (GLOBAL-ERR THAT ISN - 'T + /'T THE KIND OF @@ -1093,7 +1093,9 @@ TEST-LOOP ;;SINGLE "SAY" PHRASE. "PHRASE" IS A FREE VARIABLE IN ;;LISTNAMES (PROG (ANS OLD NEW) - (AND (EQUAL PHRASE '(NIL)) + (AND (or + (EQUAL PHRASE '(NIL)) + (equal phrase nil)) (SETQ PHRASE (CAR ITEM)) (RETURN ITEM)) (SETQ OLD (REVERSE PHRASE))