[cmucl-ticket] [cmucl] #73: Signal errors when modifying the standard readtable or standard pprint dispatch table

#73: Signal errors when modifying the standard readtable or standard pprint dispatch table --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-02 Keywords: | --------------------+------------------------------------------------------- Fare requested that errors be signaled when modifying the standard readtable and pprint dispatch table. Conforming programs are forbidden to modify them anyway. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/73> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

#73: Signal errors when modifying the standard readtable or standard pprint dispatch table ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-02 Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by toy.raymond@…): * status: new => closed * resolution: => fixed Comment: commit 00844093cfc536936a1797bfbfa910ab1e4db7fe Author: Raymond Toy <toy.raymond@gmail.com> Date: Sat Feb 23 18:14:18 2013 -0800 Fix ticket:73 error.lisp:: * Create two new conditions, one for modifying the readtable and one for the pprint dispatch table. exports.lisp:: * Export the two new conditions. pprint.lisp:: * Add check to SET-PPRINT-DISPATCH to disallow modifying the standard pprint dispatch table. * Allow PPRINT-INIT to modify the standard pprint dispatch table. print.lisp:: * In WITH-STANDARD-IO-SYNTAX, don't copy a new dispatch table; bind *print-pprint-dispatch* to the standard table. reader.lisp:: * Add check to disallow modifying the standard readtable. * Allow INIT-STD-LISP-READTABLE to modify the standard readtable. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/73#comment:1> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.
participants (1)
-
cmucl