A TYPE-OF-FUNCTION test failed

[sgr]

In my environment, a TYPE-OF-FUNCTION test is failed.

cl-cuda/t/lang/compiler/type-of-expression.lisp

Line 180 in f696263

(is-error (type-of-function '(+ 1 1.0) var-env func-env) simple-error)

× (TYPE-OF-FUNCTION '(+ 1 1.0) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got FLOAT)

It is occurred in two environments:

my environment (1)

• Ubuntu 18.04.3 LTS
• GeForce GTX 1080
• CUDA 10.1
• gcc (Ubuntu 7.4.0-1ubuntu1~18.04.1) 7.4.0
• SBCL 1.5.6

my environment (2)

• Windows 10 Pro (Version 1903 OS Build 18362.356)
• GeForce GTX 1080
• CUDA 10.1
• freeglut 3.0.0 for MinGW
• gcc (x86_64-posix-sjlj-rev0, Built by MinGW-W64 project) 8.1.0
• Visual Studio Community 2019
• SBCL 1.4.14

test_ubuntu.log