Addressed three review comments.

Use LISTIFY instead of a hand-coded version.  Got rid of SETQ
of a PROG variable, since variables should have been initialized
to NIL by PROG.

src/shrdlu/blockl.6

@@ -248,16 +248,13 @@
 
 (DEFUN PACKO (OBJ TYPE)
   (PROG (XX)
-    (setq xx nil)
     (MAPC (FUNCTION (LAMBDA (X)
 		      (AND (THVAL (QUOTE (THGOAL (!IS $?X
 						      $E
 						      TYPE)))
 				  (LIST (LIST (QUOTE X) X)))
 			   (SETQ XX (PACKORD X (SIZE X) XX)))))
-	  (cond ((atom obj) (list obj))
-		(t obj))
-	  )
+	  (listify obj))
     (RETURN (MAPCAR (QUOTE CADR) XX))))
 
 (DEFUN PACKON
@@ -348,4 +345,4 @@
 		       (LESSP (OR (END? TIME) 777777)
 			      (GET EV (QUOTE END))))))))
 
-
+

src/shrdlu/blockp.5

@@ -496,8 +496,7 @@ THEOREM)
    (!STACKUP $?X)
    (OR (LESSP (APPLY (QUOTE PLUS)
 		     (MAPCAR (QUOTE (LAMBDA (X) (CADDR (SIZE X))))
-			     (cond ((atom $?x) (list $?x))
-				   (t $?x))))
+		         (listify $?x)))
 	      1201)
        (NOT (DPRINT2 (QUOTE TOO/ HIGH/,))))
    (THCOND
@@ -866,4 +865,4 @@ NIL
 		 !UNGRASP))
 
 (QUOTE (PREDICATES ARE: !LOC !SUPPORT !ON !PHYSOB))
-
+

src/shrdlu/dictio.75

@@ -175,6 +175,8 @@
 		 (RETURN (PROG (CUT NBB BOTH) 
 			       (SETQ NBB N)
 			       (AND (FLUSHME)
+;ejs
+;				    (** N
 				    (move-ptw N
 					NW
 					(EQ (WORD PTW) (CAR A))

src/shrdlu/loader.20

@@ -10,7 +10,10 @@
 ;;;    NEVER NOTICE)
 ;;;
 
+;(setsyntax 44. 'single 44.)
 (setsyntax 34. 'single 34.)
+;(setsyntax 35. 'single 35.)
+;(sstatus syntax 35. 1)
 
 (SETQ GC-OVERFLOW '(LAMBDA (X) T))