Changeset 15405


Ignore:
Timestamp:
Jun 1, 2012, 11:27:01 PM (7 years ago)
Author:
gb
Message:

Code which updates the type cache can't allow interrupts.
See ticket:980.

File:
1 edited

Legend:

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

    r15306 r15405  
    15261526                               (progn
    15271527                                 (when (cacheable-ctype-p ctype)
    1528                                    (setf (svref type-cache-specs idx) (copy-tree spec) ; in case it was stack-consed
    1529                                          (svref type-cache-ctypes idx) ctype))
     1528                                   (let* ((spec (copy-tree spec)))  ; in case it was stack-consed
     1529                                     (without-interrupts
     1530                                      (setf (svref type-cache-specs idx) spec
     1531                                            (svref type-cache-ctypes idx) ctype))))
    15301532                                 ctype)
    15311533                               (make-unknown-ctype :specifier spec)))))
Note: See TracChangeset for help on using the changeset viewer.