Changeset 11136


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

Allow bootstrapping from older images

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/db-io.lisp

    r11129 r11136  
    10151015        (setf (macro-function sym) #'%external-call-expander)
    10161016        sym))))
     1017
     1018#-BOOTSTRAPPED
     1019(when (eql (function-args #'read-internal) 1)
     1020  ;; loading this file into an old image, only happens during bootstrapping
     1021  (fset 'read-internal (lambda (stream eof-error-p eof-value recursive-p)
     1022                         (setq stream (input-stream-arg stream))
     1023                         (if recursive-p
     1024                           (%read-form stream (if eof-error-p 0) nil)
     1025                           (let ((%read-objects% nil) (%keep-whitespace% nil))
     1026                             (%read-form stream (if eof-error-p 0) eof-value))))))
    10171027
    10181028(defun %read-symbol-preserving-case (stream package)
Note: See TracChangeset for help on using the changeset viewer.