Ignore:
Timestamp:
Nov 3, 2006, 7:35:44 PM (13 years ago)
Author:
gb
Message:

type-errors (as encoded in UUOs) are now in the range 128-255, rather than 64-127;
more are defined.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/arch.lisp

    r5442 r5445  
    5454(defconstant error-cant-call 17)        ; Attempt to funcall something that is not a symbol or function.
    5555(eval-when (:compile-toplevel :load-toplevel :execute)
    56   (defconstant error-type-error 64)
     56  (defconstant error-type-error 128)
    5757)
    5858
     
    6262(defconstant error-memory-full 2048)
    6363
    64 ;; These are now supposed to match (mod 64) the %type-error-typespecs%
     64;; These are now supposed to match (mod ERROR-TYPE-ERROR) the %type-error-typespecs%
    6565;; array that %err-disp looks at.
    6666(ccl::defenum (:start  error-type-error :prefix "ERROR-OBJECT-NOT-")
     
    108108  array-2d
    109109  array-3d
    110   array_bit
    111   array_s8
    112   array_u8
    113   array_s16
    114   array_u16
    115   array_s32
    116   array_u32
    117   array_s64
    118   array_u64
    119   array_fixnum
    120   array_single_float
    121   array_double_float
    122   array_char
     110  array-t
     111  array-bit
     112  array-s8
     113  array-u8
     114  array-s16
     115  array-u16
     116  array-s32
     117  array-u32
     118  array-s64
     119  array-u64
     120  array-fixnum
     121  array-single-float
     122  array-double-float
     123  array-char
     124  array-t-2d
     125  array-bit-2d
     126  array-s8-2d
     127  array-u8-2d
     128  array-s16-2d
     129  array-u16-2d
     130  array-s32-2d
     131  array-u32-2d
     132  array-s64-2d
     133  array-u64-2d
     134  array-fixnum-2d
     135  array-single-float-2d
     136  array-double-float-2d
     137  array-char-2d
     138  simple-array-t-2d
     139  simple-array-bit-2d
     140  simple-array-s8-2d
     141  simple-array-u8-2d
     142  simple-array-s16-2d
     143  simple-array-u16-2d
     144  simple-array-s32-2d
     145  simple-array-u32-2d
     146  simple-array-s64-2d
     147  simple-array-u64-2d
     148  simple-array-fixnum-2d
     149  simple-array-char-2d
     150  ;; Sentinel
     151  unused-max-type-error
    123152  )
     153
     154(assert (<= error-object-not-unused-max-type-error (* 2 error-type-error)))
    124155
    125156
Note: See TracChangeset for help on using the changeset viewer.