Changeset 11137


Ignore:
Timestamp:
Oct 17, 2008, 3:44:39 PM (11 years ago)
Author:
gz
Message:

Propagate r8891 from working-0711

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r11135 r11137  
    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
     
    390387
    391388; in l1-format
    392 (defvar *logical-block-xp* nil)
     389(def-standard-initial-binding *logical-block-xp* nil)
    393390
    394391(without-duplicate-definition-warnings
Note: See TracChangeset for help on using the changeset viewer.