From 7e739c8e0aa0096cd7e8de417257f7665483bc62 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 28 Dec 2008 18:06:25 +0100 Subject: [PATCH] Change *default-special-bindings* to adhere to the behaviour of with-standard-io-syntax. --- src/bordeaux-threads.lisp | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/src/bordeaux-threads.lisp b/src/bordeaux-threads.lisp index 2310cca..99f876f 100644 --- a/src/bordeaux-threads.lisp +++ b/src/bordeaux-threads.lisp @@ -124,26 +124,29 @@ FUNCTION." undefined, but earlier forms take precedence over later forms for the same symbol, so defaults may be overridden by consing to the head of the list." - (*print-lines* nil) - (*print-miser-width* 40) - (*print-right-margin* nil) - (*print-readably* nil) - (*print-gensym* t) + (*package* (find-package :common-lisp-user)) (*print-array* t) + (*print-base* 10) (*print-case* :upcase) (*print-circle* nil) + (*print-escape* t) + (*print-gensym* t) (*print-length* nil) (*print-level* nil) + (*print-lines* nil) + (*print-miser-width* nil) + (*print-pprint-dispatch* (copy-pprint-dispatch nil)) + (*print-pretty* nil) (*print-radix* nil) - (*print-base* 10) - (*print-pretty* t) - (*print-escape* t) + (*print-readably* t) + (*print-right-margin* nil) (*read-base* 10) (*read-default-float-format* 'single-float) + (*read-eval* t) + (*read-suppress* nil) (*readtable* (copy-readtable nil)) (*break-on-signals* *break-on-signals*) - (*random-state* (make-random-state nil)) - (*package* (find-package :cl-user))) + (*random-state* (make-random-state nil))) ;;; FIXME: This test won't work if CURRENT-THREAD ;;; conses a new object each time -- 2.11.4.GIT