Ignore:
Timestamp:
Oct 9, 2009, 6:43:00 PM (10 years ago)
Author:
gz
Message:

distinguish between standard and initial readtables (r12497, r12889)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r12410 r12959  
    19651965
    19661966;;; This -really- gets initialized later in the file
    1967 (defvar %initial-readtable%
     1967(defvar %standard-readtable%
    19681968  (let* ((ttab (make-array 256 :element-type '(unsigned-byte 8)))
    19691969         (macs `((#\# . (,#'read-dispatch))))
     
    19801980    (%istruct 'readtable ttab macs case)))
    19811981
    1982 (setq *readtable* %initial-readtable%)
     1982(defvar %initial-readtable%)
     1983(setq *readtable* %standard-readtable%)
    19831984(def-standard-initial-binding *readtable* )
    19841985(queue-fixup (setq %initial-readtable% (copy-readtable *readtable*)))
    19851986
    19861987(defun copy-readtable (&optional (from *readtable*) to)
    1987   (setq from (if from (readtable-arg from)  %initial-readtable%))
     1988  (setq from (if from (readtable-arg from)  %standard-readtable%))
    19881989  (setq to (if to
    19891990             (readtable-arg to)
Note: See TracChangeset for help on using the changeset viewer.