github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Fixed SHRDLU issue that caused the display of an object name, when there was no object, to be "THE IL".

Browse Source 
The LISTNAMES function needed another conditioanl clause to handle the case where it was
passed the NIL object (meaning "no object").  Now, it correctly answers "NOTHING" rather
than "THE IL".h
This commit is contained in:
Eric Swenson 2024-08-16 17:32:11 -07:00
parent a80b660435
commit 3ef34219fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/shrdlu/newans.81 → src/shrdlu/newans.82
View File

@ -783,7 +783,8 @@ TEST-LOOP
;;ANSWER HAS BEEN DECIDED ON.
(PROG (COUNT EXAM X RES ANS COMMA?)
(SETQ NAMES (MAPCAR '(LAMBDA (X) (NAMEOBJ X SPEC))
(cond ((atom names) (list names))
(cond ((null names) names)
((atom names) (list names))
(t names))))
;NAMEOBJ RETURNS A LIST OF THE OBJECT AND THE
(COND ((NULL NAMES) (RETURN '((SAY NOTHING))))) ;THIS PATCH MAY WELL BE TOTALLOUT OF PHASE WITH
@ -941,7 +942,6 @@ TEST-LOOP
;;;############################################################
(DEFUN NAMEOBJ (ITEM SPEC)
;;NAMES THE OBJECT IN ENGLISH -- GENERATES LIST OF THINGS TO
;;BE EVALUATED. SPEC IS EITHER 'INDEF OR 'DEF
(PROG (TYPE: TYPELIST TYPE NAME: COLOR: COLORLIST SIZE: