Changeset 15408 for release/1.8


Ignore:
Timestamp:
Jun 6, 2012, 11:04:18 AM (7 years ago)
Author:
gb
Message:

Propagate r15405 to 1.8.
Fixes ticket:980 in 1.8.

File:
1 edited

Legend:

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

    r15093 r15408  
    15331533                               (progn
    15341534                                 (when (cacheable-ctype-p ctype)
    1535                                    (setf (svref type-cache-specs idx) (copy-tree spec) ; in case it was stack-consed
    1536                                          (svref type-cache-ctypes idx) ctype))
     1535                                   (let* ((spec (copy-tree spec)))  ; in case it was stack-consed
     1536                                     (without-interrupts
     1537                                      (setf (svref type-cache-specs idx) spec
     1538                                            (svref type-cache-ctypes idx) ctype))))
    15371539                                 ctype)
    15381540                               (make-unknown-ctype :specifier spec)))))
Note: See TracChangeset for help on using the changeset viewer.