 object stream)))  (redefine-lucid-io-function lisp:print (object &optional (stream *standard-output*))          (%string-stream stream (lisp:print object stream)))  (redefine-lucid-io-function lisp:prin