G:\opt\CYC_JRTL_with_CommonLisp\platform\e2c\shrdlu\consoleshrdlu>clisp -M lispinit.mem -i loader.lisp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999

;; Loading file loader.lisp ...
;;  Loading file fixes.lisp ...
;;  Loading of file fixes.lisp is finished.
;;  Loading file progmr.lisp ...
;;  Loading of file progmr.lisp is finished.
;;  Loading file cgram.lisp ...
;;  Loading of file cgram.lisp is finished.
;;  Loading file syscom.lisp ...
;;  Loading of file syscom.lisp is finished.
;;  Loading file smutil.lisp ...
;;  Loading of file smutil.lisp is finished.
;;  Loading file smspec.lisp ...
;;  Loading of file smspec.lisp is finished.
;;  Loading file smass.lisp ...
;;  Loading of file smass.lisp is finished.
;;  Loading file dictio.lisp ...
;;  Loading of file dictio.lisp is finished.
;;  Loading file morpho.lisp ...
;;  Loading of file morpho.lisp is finished.
;;  Loading file show.lisp ...
;;  Loading of file show.lisp is finished.
;;  Loading file blockl.lisp ...
;;  Loading of file blockl.lisp is finished.
;;  Loading file plnr.lisp ...
;;  Loading of file plnr.lisp is finished.
;;  Loading file setup.lisp ...
;;  Loading of file setup.lisp is finished.
;;  Loading file thtrac.lisp ...
;;  Loading of file thtrac.lisp is finished.
;;  Loading file blockp.lisp ...
;;  Loading of file blockp.lisp is finished.
;;  Loading file data.lisp ...
;;  Loading of file data.lisp is finished.
;;  Loading file newans.lisp ...
;;  Loading of file newans.lisp is finished.
;;  Loading file mover.lisp ...
;;  Loading of file mover.lisp is finished.

SHRDLU version UMR-1.0
Loaded 5/1/2019 in CLISP 1999-07-22 (July 1999)


READY
PICKUP BIG RED BLOCK

*SORRY I DON'T KNOW THE WORD " PICKUP ".
PLEASE TYPE <LF> AND CONTINUE THE SENTENCE.
READY
 .
I DON'T UNDERSTAND.
READY
PICK UP BIG RED BLOCK.
I DON'T UNDERSTAND.
READY
Pick up a big red block.
~MOVING HAND TO (100 340 500)~
~GRASPING BLOCK B7~
~MOVING HAND TO (285 970 200)~
~LETTING GO~
~MOVING HAND TO (100 450 300)~
~GRASPING BLOCK B6~
~MOVING HAND TO (100 450 1000)~
OK .

READY
Grasp the pyramid.
I DON'T KNOW WHICH PYRAMID YOU MEAN.
READY
 Find a block which is taller than the one you are holding and put it into the box.
~CHOOSING BLOCK B10~
~MOVING HAND TO (200 420 300)~
~LETTING GO~
~MOVING HAND TO (400 690 400)~
~GRASPING BLOCK B10~
~MOVING HAND TO (700 890 401)~
~LETTING GO~
OK .

READY








but new CLISP...


root@gitlab:/mnt/gggg/opt/CYC_JRTL_with_CommonLisp/platform/e2c/shrdlu/consoleshrdlu# clisp -ansi
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49.60+ (2017-06-25) <http://clisp.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "loader.lisp")
;; Loading file loader.lisp ...
;;  Loading file fixes.lisp ...
;;  Loaded file fixes.lisp
;;  Loading file progmr.lisp ...
;;  Loaded file progmr.lisp
;;  Loading file cgram.lisp ...
;;  Loaded file cgram.lisp
;;  Loading file syscom.lisp ...
;;  Loaded file syscom.lisp
;;  Loading file smutil.lisp ...
;;  Loaded file smutil.lisp
;;  Loading file smspec.lisp ...
;;  Loaded file smspec.lisp
;;  Loading file smass.lisp ...
;;  Loaded file smass.lisp
;;  Loading file dictio.lisp ...
;;  Loaded file dictio.lisp
;;  Loading file morpho.lisp ...
;;  Loaded file morpho.lisp
;;  Loading file show.lisp ...
;;  Loaded file show.lisp
;;  Loading file blockl.lisp ...
;;  Loaded file blockl.lisp
;;  Loading file plnr.lisp ...
;;  Loaded file plnr.lisp
;;  Loading file setup.lisp ...
;;  Loaded file setup.lisp
;;  Loading file thtrac.lisp ...
;;  Loaded file thtrac.lisp
;;  Loading file blockp.lisp ...
;;  Loaded file blockp.lisp
;;  Loading file data.lisp ...
;;  Loaded file data.lisp
;;  Loading file newans.lisp ...
;;  Loaded file newans.lisp
;;  Loading file mover.lisp ...
;;  Loaded file mover.lisp

SHRDLU version UMR-1.0
Loaded 4/30/2019 in CLISP 2.49.60+ (2017-06-25) (built on lgw01-amd64-012.buildd [127.0.1.1])

You are now in a read-eval-print loop.
Type "go" to enter ready state.

>>> go

READY
PICK UP A BIG RED BLOCK.

>1 #### PARSING: (CLAUSE MAJOR TOPLEVEL)
>2 #### PARSING: (NG TIME)
>2 PARSE FAILED
>2 #### PARSING: (VG IMPER)
>2 PARSE SUCEEDED: VG  (PICK)
>2 #### PARSING: (NG OBJ OBJ1)
>2 PARSE SUCEEDED: NG  (A BIG RED BLOCK)
>1 PARSE SUCEEDED: CLAUSE  (PICK UP A BIG RED BLOCK)

(THAND (THGOAL (|#PICKUP| #:OSS4) (THDBF MUMBLE) (THUSE TC-2)) (VALUEPUT) (SETQ SUCCESS T) (SETQ PLAN2 PLAN))

*** - APPLY: dotted argument list given to #<FUNCTION THTRUE (&REST X) (DECLARE (SYSTEM::IN-DEFUN THTRUE)) (BLOCK THTRUE T)> : TC-2
The following restarts are available:
SKIP           :R1      skip (INITIALSTUFF 'UMR-1.0 NIL)
RETRY          :R2      retry (INITIALSTUFF 'UMR-1.0 NIL)
STOP           :R3      stop loading file /mnt/gggg/opt/CYC_JRTL_with_CommonLisp/platform/e2c/shrdlu/consoleshrdlu/loader.lisp
ABORT          :R4      Abort main loop
Break 1 [2]>