Ignore:
Timestamp:
Apr 9, 2008, 11:48:46 PM (13 years ago)
Author:
gz
Message:

Add CCL:TEST-CCL - runs the gcl test suite (checking it out into ccl:tests;
if necessary). This will print out a bunch of warnings early on (for now),
then sit there for a while (about 3 mins on a MacBook? Pro) and finally
report "No tests failed".

Propagate assorted small fixes from trunk:

r8996 - fix case of spurious defvar warning
r9027 - check arg count before deciding to use builtin-call
r9046 - small fix for ~@:C
r9047 - report a TYPE-ERROR when make-broadcast-stream is given a non-output-stream
r9048 - Make make-file-stream rejected wildcarded pathnames. Various tweaks to make

meta-. work when using pathnames relative to the file system's "current directory".

r9049 - make defclass check for illegal class options
r9052 - Don't constant-fold if arg count is obviously wrong.
r9059 - Try harder to do function calls as function calls when (OPTIMIZE (SAFETY 3))

is in effect.

r9060, r9061 - CTYPE-SUBTYPE: try harder in some cases.
r9068, r9069, r9103, r9104 - PPC2-REF-SYMBOL-VALUE: force boundp checks unless

*ppc2-reckless* (same policy as x86; the per-thread binding lookup is generally
more expensive than boundp trap these days.). Unless skipping boundp check, don't
ignore unused result (so we can error when safety is 3, mostly.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/sysutils.lisp

    r8984 r9117  
    749749(setq *type-system-initialized* t)
    750750
     751;;; Try to map from a CTYPE describing some array/stream
     752;;; element-type to a target-specific typecode, catching
     753;;; cases that CTYPE-SUBTYPE missed.
     754
     755(defun harder-ctype-subtype (ctype)
     756  (cond ((csubtypep ctype (load-time-value (specifier-type 'bit)))
     757         target::subtag-bit-vector)
     758        ((csubtypep ctype (load-time-value (specifier-type '(unsigned-byte 8))))
     759         target::subtag-u8-vector)
     760        ((csubtypep ctype (load-time-value (specifier-type '(unsigned-byte 16))))
     761         target::subtag-u16-vector)
     762        ((csubtypep ctype (load-time-value (specifier-type '(unsigned-byte 32))))
     763         target::subtag-u32-vector)
     764        #+64-bit-target
     765        ((csubtypep ctype (load-time-value (specifier-type '(unsigned-byte 64))))
     766         target::subtag-u64-vector)
     767        ((csubtypep ctype (load-time-value (specifier-type '(signed-byte 8))))
     768         target::subtag-s8-vector)
     769        ((csubtypep ctype (load-time-value (specifier-type '(signed-byte 16))))
     770         target::subtag-s16-vector)
     771        #+32-bit-target
     772        ((csubtypep ctype (load-time-value (specifier-type `(integer ,target::target-most-negative-fixnum ,target::target-most-positive-fixnum))))
     773         target::subtag-fixnum-vector)
     774        ((csubtypep ctype (load-time-value (specifier-type '(signed-byte 32))))
     775         target::subtag-s32-vector)
     776        #+64-bit-target
     777        ((csubtypep ctype (load-time-value (specifier-type `(integer ,target::target-most-negative-fixnum ,target::target-most-positive-fixnum))))
     778         target::subtag-fixnum-vector)
     779        #+64-bit-target
     780        ((csubtypep ctype (load-time-value (specifier-type '(signed-byte 64))))
     781         target::subtag-s64-vector)
     782        (t target::subtag-simple-vector)))
     783
     784
    751785#+count-gf-calls
    752786(progn
Note: See TracChangeset for help on using the changeset viewer.