Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/reader.lisp
    ... ... @@ -620,8 +620,7 @@
    620 620
     	  ;; Of course, we want to be able to modify the standard
    
    621 621
     	  ;; readtable here!
    
    622 622
     	  (invoke-restart 'kernel::continue))))
    
    623
    -    (let ((*readtable* std-lisp-readtable)
    
    624
    -	  (*assert-not-standard-readtable* nil))
    
    623
    +    (let ((*readtable* std-lisp-readtable))
    
    625 624
           (set-cat-entry #\tab #.whitespace)
    
    626 625
           (set-cat-entry #\linefeed #.whitespace)  
    
    627 626
           (set-cat-entry #\space #.whitespace)