[STUMP] Is it appropriate to modify the eval-line functioninuser.lisp ?

[Michael Raskin]

>>I want to use the following function to replace the eval-line in user.lisp:
>>
>>(defcommand eval-me (cmd) ((:rest "Eval> "))
>>     (with-output-to-string (*standard-output*)
>>         (handler-case
>>             (format t "~{~a~^~%~}"
>>                 (mapcar 'prin1-to-string
>>                     (multiple-value-list (eval (read-from-string cmd)))))
>>             (error (c)
>>                 (format t "~A" c))
>
>Tested: 
>
>
>(defcommand 
>  eval-me (cmd) ((:rest "Eval> "))
>  (message
>    "~a"
>    (with-output-to-string (*standard-output*)
>      (handler-case
>       (format t "~{~a~^~%~}"
>               (mapcar 'prin1-to-string
>                       (multiple-value-list (eval (read-from-string cmd)))))
>       (error (c)
>              (format t "~A" c))))))
>
>In .stumpwmrc works as you wanted. You can easily rebind it to ":", of
>course.

Optionally, you can also bind *error-output* and even *trace-output*
to the *standard-output* stream.