CLI

[Christopher C. Stacy <CSTACY at MIT-AI>]

On AI in MACLISP version 2100 with IOTA and MLMAC:

If I signal a CLI to a LISP job which has the following defined and
has run ENABLE-CLI-DEVICE, I get 

;((CLI-HANDLER NIL) NIL)  TOO MANY ARGS

   (defun enable-cli-device ()
          (setq cli-message #'cli-handler)
	  (sstatus cli T))

   (defun cli-handler ()
          (valret))


If I change ENABLE-CLI-HANDLER to

   (defun enable-cli-device ()
          (setq cli-message '(cli-handler))
	  (sstatus cli T))

It seems to work.

Chris