Skip to content
Snippets Groups Projects
Commit 236e65f8 authored by rtoy's avatar rtoy
Browse files

Use WITH-STANDARD-IO-SYNTAX when creating the string for arglists, in

case the user has set some printer vars to something too short.  SLIME
needs this.

From Helmut Eller, cmucl-imp, 2005-01-24.
parent 3e20b53d
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.11 1994/10/31 04:27:28 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/entry.lisp,v 1.12 2005/01/25 15:40:44 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -52,12 +52,12 @@
(assert (not (eq args :unspecified)))
(if (null args)
"()"
(let ((*print-pretty* t)
(*print-escape* t)
(*print-base* 10)
(*print-radix* nil)
(*print-case* :downcase))
(write-to-string args)))))
(let ((package *package*))
(with-standard-io-syntax
(let ((*package* package)
(*print-pretty* t)
(*print-case* :downcase))
(write-to-string args)))))))
;;; Compute-Entry-Info -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment