Ignore:
Timestamp:
Feb 15, 2013, 7:24:29 AM (6 years ago)
Author:
gb
Message:

Propagate recent trunk changes.

Location:
release/1.9/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/level-1

  • release/1.9/source/level-1/l1-error-signal.lisp

    r14844 r15706  
    5454  ;;; The compiler (finally !) won't tail-apply error.  But we kind of
    5555  ;;; expect it to ...
    56   (let* ((err-typ (max (ash err-num -16) 0))
    57          (err-num (%word-to-int err-num))
    58          (format-string (%rsc-string err-num)))
    59     (%err-disp-common err-num err-typ format-string errargs frame-ptr)))
     56  (if (eql err-num $XARRLIMIT)
     57    (%error (make-condition 'vector-size-limitation
     58                            :subtag (cadr errargs)
     59                            :element-count (car errargs))
     60            nil
     61            frame-ptr)
     62    (let* ((err-typ (max (ash err-num -16) 0))
     63           (err-num (%word-to-int err-num))
     64           (format-string (%rsc-string err-num)))
     65      (%err-disp-common err-num err-typ format-string errargs frame-ptr))))
    6066
    6167(defparameter *foreign-error-condition-recognizers* ())
Note: See TracChangeset for help on using the changeset viewer.