Changeset 12497 for trunk/source/level-1


Ignore:
Timestamp:
Jul 31, 2009, 2:34:20 PM (10 years ago)
Author:
gb
Message:

Try to distinguish between initial/standard readtables better.
(ticket:568).

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-2.lisp

    r12385 r12497  
    256256        (bin-load-provide "X86-DISASSEMBLE" "x86-disassemble")
    257257        (bin-load-provide "X86-LAPMACROS" "x86-lapmacros"))
    258      
     258
    259259
    260260      (bin-load-provide "FOREIGN-TYPES" "foreign-types")
     
    289289      #+freebsdx8632-target
    290290      (bin-load-provide "FFI-FREEBSDX8632" "ffi-freebsdx8632")
    291      
     291
     292
     293      ;; Knock wood: all standard reader macros and no non-standard
     294      ;; reader macros are defined at this point.
     295      (setq *readtable* (copy-readtable *readtable*))
     296
    292297      (bin-load-provide "DB-IO" "db-io")
    293298
  • trunk/source/level-1/l1-reader.lisp

    r12409 r12497  
    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.