Changeset 8891


Ignore:
Timestamp:
Mar 26, 2008, 10:49:17 AM (11 years ago)
Author:
gb
Message:

Bind *FORMAT-STREAM-STACK* per-thread; this hasn't ever been thread-safe.
(This isn't even a very good way to recycle string output streams, so
we should probably get rid of this.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/format.lisp

    r4537 r8891  
    3838  "Saved arglist from top-level FORMAT call for ~* and ~@*")
    3939
    40 (defvar *format-stream-stack* ()
    41   "A stack of string streams for collecting FORMAT output")
     40
     41(def-standard-initial-binding *format-stream-stack* nil "A stack of string streams for collecting FORMAT output")
    4242
    4343(defvar *format-pprint* nil
     
    4747  "Has a ~<...~:;...~> been seen?")
    4848
    49 ; prevent circle checking rest args. Really EVIL when dynamic-extent
    50 (defvar *format-top-level* nil)
    51 
    52 ;;; Specials imported from ERRORFUNS
    53 
    54 (declaim (special *error-output*))
     49;;; prevent circle checking rest args. Really EVIL when dynamic-extent
     50(def-standard-initial-binding *format-top-level* nil)
     51
    5552
    5653;;; ERRORS
     
    8582
    8683; does this need to exist?????
    87 #| ; put it out of its misery
     84#|| ; put it out of its misery
    8885(defmacro format-with-control-string (control-string &rest forms)
    8986  `(let ((string (if (simple-string-p ,control-string)
     
    104101                                      (1+ *format-index*))
    105102                                error))))))
    106 |#
     103||#
    107104(defmacro format-indirect-error (error)
    108105  `(throw 'format-error
     
    382379
    383380; in l1-format
    384 (defvar *logical-block-xp* nil)
     381(def-standard-initial-binding *logical-block-xp* nil)
    385382(defun pop-format-arg (&aux (args *format-arguments*)(xp *logical-block-xp*))
    386383  (when xp
Note: See TracChangeset for help on using the changeset viewer.