*** swank.lisp-sav	2004-05-06 17:01:52.000000000 -0400
--- swank.lisp	2004-05-06 17:20:44.000000000 -0400
***************
*** 719,725 ****
  (defun prin1-to-string-for-emacs (object)
    (with-standard-io-syntax
      (let ((*print-case* :downcase)
!           (*print-readably* t)
            (*print-pretty* nil)
            (*package* *swank-io-package*))
        (prin1-to-string object))))
--- 719,725 ----
  (defun prin1-to-string-for-emacs (object)
    (with-standard-io-syntax
      (let ((*print-case* :downcase)
!           #-clisp (*print-readably* t) #+clisp (*print-readably* nil)
            (*print-pretty* nil)
            (*package* *swank-io-package*))
        (prin1-to-string object))))
***************
*** 856,861 ****
--- 856,862 ----
                 (*print-case* :downcase)
                 (*print-pretty* t)
                 (*print-circle* nil)
+                #+clisp (*print-readably* nil)
                 (*print-level* 10)
                 (*print-length* 20))
             (pprint-logical-block (nil nil :prefix "(" :suffix ")")
