cl-cuda testing on Windows

cl-cuda-test.log

To load "cl-cuda-test":
  Load 1 ASDF system:
    cl-cuda-test
; Loading "cl-cuda-test"
......
 test cuInit
Invoking CU-INIT succeded.
 test cuDeviceGet
Invoking CU-DEVICE-GET succeded.
CUDA device handle: 0
 test cuDeviceGetCount
Invoking CU-DEVICE-GET-COUNT succeded.
CUDA device count: 2
 test cuDeviceComputeCapability
Invoking CU-DEVICE-GET succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
CUDA device compute capability: 6.1
 test cuDeviceGetName
Invoking CU-DEVICE-GET succeded.
Invoking CU-DEVICE-GET-NAME succeded.
CUDA device name: GeForce GTX 1080
 test cuCtxCreate/cuCtxDestroy
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-CTX-DESTROY succeded.
 test cuMemAlloc/cuMemFree
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 test cuMemAlloc/cuMemFree using WITH-CU-CONTEXT macro
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 test cuMemcpyHtoD/cuMemcpyDtoH
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 test cuModuleLoad
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MODULE-LOAD succeded.
CUDA module "vectorAdd_kernel.ptx" is loaded.
Invoking CU-CTX-DESTROY succeded.
 test cuModuleGetFunction
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-CTX-DESTROY succeded.
 test cuModuleGetGlobal
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-GLOBAL succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? 42 is expected to be 42 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-EVENT-CREATE succeded.
Invoking CU-EVENT-CREATE succeded.
Invoking CU-EVENT-RECORD succeded.
Invoking CU-EVENT-RECORD succeded.
Invoking CU-EVENT-SYNCHRONIZE succeded.
Invoking CU-EVENT-ELAPSED-TIME succeded.
CUDA Event - elapsed time: 0.001024
Invoking CU-EVENT-DESTROY succeded.
Invoking CU-EVENT-DESTROY succeded.
Invoking CU-CTX-DESTROY succeded.

? 1 test completed (0ms)
 C-IDENTIFIER
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

 LINES
  ? basic case 1 

  ? basic case 2 

 UNLINES
  ? basic case 1 

 INDENT
  ? basic case 1 

  ? basic case 2 

? 11 tests completed (0ms)
 Float3
 float3 foreign translation
    ? 0.0 is expected to be 0.0 

    ? 1.0 is expected to be 1.0 

    ? 2.0 is expected to be 2.0 
.
 with-float3
    ? 0.0 is expected to be 0.0 

    ? 1.0 is expected to be 1.0 

    ? 2.0 is expected to be 2.0 

 with-float4
    ? 0.0 is expected to be 0.0 

    ? 1.0 is expected to be 1.0 

    ? 2.0 is expected to be 2.0 

    ? 3.0 is expected to be 3.0 

 with-double3
    ? 0.0d0 is expected to be 0.0d0 

    ? 1.0d0 is expected to be 1.0d0 

    ? 2.0d0 is expected to be 2.0d0 

 with-double4
    ? 0.0d0 is expected to be 0.0d0 

    ? 1.0d0 is expected to be 1.0d0 

    ? 2.0d0 is expected to be 2.0d0 

    ? 3.0d0 is expected to be 3.0d0 

? 5 tests completed (0ms)
 CL-CUDA-TYPE-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 CFFI-TYPE
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 CFFI-TYPE-SIZE
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 CUDA-TYPE
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 STRUCTURE-ACCESSOR-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 STRUCTURE-ACCESSOR-CUDA-ACCESSOR
  ? basic case 1 

  ? basic case 2 

  ? ACCESSOR which is not an invalid accessor. 

 STRUCTURE-ACCESSOR-RETURN-TYPE
  ? basic case 1 

  ? basic case 2 

  ? ACCESSOR which is not an invalid accessor. 

 ARRAY-TYPE-BASE
  ? basic case 1 

  ? basic case 2 

 ARRAY-TYPE-DIMENSION
  ? basic case 1 

  ? basic case 2 

? 26 tests completed (0ms)
 Macro
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 Literal
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 Reference
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

 Inline-if
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 Function application
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

  ? FORM which is an invalid function application. 

  ? basic case 7 

  ? basic case 8 

  ? basic case 9 

  ? FORM which is an invalid function application. 

  ? basic case 10 

  ? basic case 11 

  ? basic case 12 

 If statement
  ? basic case 1 

 Symbol-macrolet statement
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 Macrolet statement
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 Do statement
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 Do statement - binding
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 WITH-SHARED-MEMORY-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 WITH-SHARED-MEMORY-SPEC-P
  ? basic case 1 

  ? basic case 2 

 Set statement
  ? basic case 1 

  ? basic case 2 

? 58 tests completed (0ms)
 Variable environment - Variable
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

  ? basic case 7 

  ? basic case 8 

 Variable environment - Symbol macro
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 Variable environment - Global
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

  ? basic case 7 

  ? basic case 8 

  ? Invalid name. 

  ? Invalid cl-cuda type. 

  ? Invalid variable environment. 

  ? Invalid variable environment. 

  ? Invalid name. 

  ? Invalid variable environment. 

  ? Invalid name. 

  ? Invalid variable environment. 

  ? Invalid name. 

  ? Invalid variable environment. 

  ? Invalid name. 

  ? Invalid variable environment. 

  ? Invalid name. 

 Function environment - Function
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

  ? basic case 7 

 Function environment - Macro
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

? 46 tests completed (1ms)
 BUILT-IN-FUNCTION-RETURN-TYPE
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 BUILT-IN-FUNCTION-INFIX-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

 BUILT-IN-FUNCTION-C-NAME
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

? 12 tests completed (0ms)
 MAKE-KERNEL
  ? basic case 1 

  ? basic case 2 

 KERNEL-FUNCTION-NAMES
  ? basic case 1 

 KERNEL-MACRO-NAMES
  ? basic case 1 

 KERNEL-SYMBOL-MACRO-NAMES
  ? kernel basic 1 

 KERNEL-GLOBAL-NAMES
  ? kernel basic 1 

 KERNEL-DEFINE-FUNCTION
  ? basic case 1 

  ? NAME which is not a cl-cuda symbol. 

  ? RETURN-TYPE which is not a cl-cuda type. 

  ? ARGUMENTS which are invlalid arguments. 

 KERNEL-FUNCTION-EXISTS-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 KERNEL-DEFINE-MACRO
  ? basic case 1 

  ? NAME which is not a cl-cuda symbol. 

 KERNEL-MACRO-EXISTS-P
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

 EXPAND-MACRO-1
  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((FOO 1) T) is expected to be ((FOO 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (A T) is expected to be (A T) 

  ? (C NIL) is expected to be (C NIL) 

  ? (EXPAND-MACRO-1 '(FOO) KERNEL) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {1004F5B673}>) 

 EXPAND-MACRO
  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (C NIL) is expected to be (C NIL) 

  ? (EXPAND-MACRO '(FOO) KERNEL) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {10050272D3}>) 

 KERNEL-DEFINE-SYMBOL-MACRO
  ? basic case 1 

  ? NAME which is not a cl-cuda symbol. 

 KERNEL-SYMBOL-MACRO-EXISTS-P
  ? basic case 1 

  ? basic case 2 

 kernel-define-global
    ? T is expected to be T 

    ? FOO is expected to be FOO 

    ? "cl_cuda_test_lang_kernel_foo" is expected to be "cl_cuda_test_lang_kernel_foo" 

    ? (:DEVICE) is expected to be (:DEVICE) 

    ? 42 is expected to be 42 

    ? T is expected to be T 

    ? NIL is expected to be NIL 

    ? (:DEVICE :CONSTANT) is expected to be (:DEVICE :CONSTANT) 

    ? Invalid kernel. 

    ? Invalid name. 

    ? Invalid qualifier. 

 kernel-global-exists-p
    ? T is expected to be T 

    ? NIL is expected to be NIL 

    ? NIL is expected to be NIL 

    ? Invalid kernel. 

    ? Invalid name. 

 kernel-global-name
    ? FOO is expected to be FOO 

    ? Global not found. 

    ? Invalid kernel. 

    ? Invalid name. 

 kernel-global-c-name
    ? "cl_cuda_test_lang_kernel_foo" is expected to be "cl_cuda_test_lang_kernel_foo" 

    ? Global not found. 

    ? Invalid kernel. 

    ? Invalid name. 

 kernel-global-qualifiers
    ? (:DEVICE) is expected to be (:DEVICE) 

    ? Global not found. 

    ? Invalid kernel. 

    ? Invalid name. 

 kernel-global-initializer
    ? 42 is expected to be 42 

    ? Global not found. 

    ? Invalid kernel. 

    ? Invalid name. 

? 42 tests completed (1ms)
 COMPILE-SYMBOL
  ? basic case 1 

  ? basic case 2 

 COMPILE-BOOL
  ? basic case 1 

  ? basic case 2 

 COMPILE-INT
  ? basic case 1 

 COMPILE-FLOAT
  ? basic case 1 

 COMPILE-DOUBLE
  ? basic case 1 

  ? basic case 2 

? 8 tests completed (0ms)
 COMPILE-TYPE
  ? basic case 1 

? 1 test completed (0ms)
 TYPE-OF-EXPRESSION
  ? INT is expected to be INT 

 TYPE-OF-LITERAL
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 TYPE-OF-CUDA-DIMENSION
  ? basic case 1 

 TYPE-OF-REFERENCE - VARIABLE
  ? basic case 1 

  ? basic caase 2 

  ? FORM which is a variable not found. 

  ? FORM which is a variable not found. 

 TYPE-OF-REFERENCE - STRUCTURE
  ? FLOAT is expected to be FLOAT 

  ? FLOAT is expected to be FLOAT 

  ? (TYPE-OF-REFERENCE '(FLOAT4-X X) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The structure reference ~S is invalid." {100514A7A3}>) 

 TYPE-OF-REFERENCE - ARRAY
  ? (TYPE-OF-REFERENCE '(AREF X) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The expression ~S is malformed." {1005356553}>) 

  ? INT is expected to be INT 

  ? (TYPE-OF-REFERENCE '(AREF X 0 0) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The dimension of array reference ~S is invalid." {10053658F3}>) 

  ? (TYPE-OF-REFERENCE '(AREF X 0) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The dimension of array reference ~S is invalid." {100536E213}>) 

  ? INT is expected to be INT 

 TYPE-OF-INLINE-IF
  ? (TYPE-OF-INLINE-IF '(IF) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The expression ~S is malformed." {100537BC83}>) 

  ? (TYPE-OF-INLINE-IF '(IF (= 1 1)) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The expression ~S is malformed." {1005380143}>) 

  ? (TYPE-OF-INLINE-IF
     '(IF (= 1 1)
          1)
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The expression ~S is malformed." {1005384843}>) 

  ? INT is expected to be INT 

  ? (TYPE-OF-INLINE-IF
     '(IF 1
          2
          3)
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of expression ~S is invalid." {100538C0A3}>) 

  ? (TYPE-OF-INLINE-IF
     '(IF (= 1 1)
          1
          2.0)
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of expression ~S is invalid." {1005391C43}>) 

 TYPE-OF-FUNCTION
  ? INT is expected to be INT 

  ? INT is expected to be INT 

  ? FLOAT is expected to be FLOAT 

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

  ? FLOAT is expected to be FLOAT 

× 1 of 30 tests failed (0ms)
 COMPILE-EXPRESSION
  ? "1" is expected to be "1" 

 COMPILE-MACRO
  ? basic case 1 

 COMPILE-SYMBOL-MACRO
  ? basic case 1 

 COMPILE-LITERAL
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

 COMPILE-CUDA-DIMENSION
  ? basic case 1 

 COMPILE-REFERENCE - VARIABLE
  ? basic case 1 

  ? basic case 2 

  ? FORM which is a variable not found. 

  ? FORM which is a variable not found. 

 COMPILE-REFERENCE - STRUCTURE
  ? basic case 1 

  ? basic case 2 

  ? (COMPILE-REFERENCE '(FLOAT4-X X) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The structure reference ~S is invalid." {10054645A3}>) 

 COMPILE-REFERENCE - ARRAY
  ? basic case 1 

 COMPILE-INLINE-IF
  ? basic case 1 

 COMPILE-CONSTRUCTOR
  ? base case 1 

  ? base case 2 

 COMPILE-ARITHMETIC
  ? basic case 1 

 COMPILE-FUNCTION
  ? basic case 1 

  ? (COMPILE-FUNCTION '(FOO 1 1 1) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The function application ~S is invalid." {10054863C3}>) 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 1 

? 27 tests completed (1ms)
 COMPILE-IF
  ? basic case 1 

  ? basic case 2 

  ? (COMPILE-IF LISP-CODE VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of statement ~S is invalid." {10054AD003}>) 

 COMPILE-LET
  ? basic case 1 

  ? (COMPILE-LET
     '(LET (I)
        (RETURN))
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The statement ~S is malformed." {10054B6C03}>) 

  ? (COMPILE-LET
     '(LET ((I))
        (RETURN))
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The statement ~S is malformed." {10054BC423}>) 

  ? (COMPILE-LET
     '(LET ((X 1) (Y X))
        (RETURN Y))
     VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The variable ~S not found." {10054C1DD3}>) 

 COMPILE-SYMBOL-MACROLET
  ? basic case 1 

 COMPILE-MACROLET
  ? basic case 1 

  ? basic case 2 

 COMPILE-DO
  ? basic case 1 

 COMPILE-WITH-SHARED-MEMORY
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 

  ? basic case 5 

  ? basic case 6 

  ? (COMPILE-WITH-SHARED-MEMORY LISP-CODE VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The statement ~S is malformed." {100555F533}>) 

  ? (COMPILE-WITH-SHARED-MEMORY LISP-CODE VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The dimension of array reference ~S is invalid." {1005579173}>) 

 COMPILE-SET
  ? basic case 1 

  ? (COMPILE-SET '(SET X 1.0) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of statement ~S is invalid." {1005581703}>) 

  ? basic case 2 

  ? (COMPILE-SET '(SET (AREF X 0) 1.0) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of statement ~S is invalid." {10055957D3}>) 

  ? basic case 3 

  ? (COMPILE-SET '(SET (FLOAT3-X X) 1) VAR-ENV FUNC-ENV) is expected to raise a condition SIMPLE-ERROR (got #<SIMPLE-ERROR "The type of statement ~S is invalid." {10055A10D3}>) 

? 25 tests completed (3ms)
 COMPILE-KERNEL
  ? basic case 1 

? 1 test completed (1ms)
 KERNEL-MANAGER
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 

  ? basic case 4 
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 5 

  ? basic case 6 

  ? basic case 7 

  ? basic case 8 
Invoking CU-MODULE-LOAD succeded.
  ? basic case 9 

  ? basic case 10 

  ? basic case 11 

  ? basic case 12 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? basic case 11 

  ? basic case 12 

  ? basic case 13 

  ? basic case 14 
Invoking CU-MODULE-GET-GLOBAL succeded.
  ? basic case 15 
Invoking CU-MODULE-UNLOAD succeded.
  ? basic case 16 

  ? basic case 17 

  ? basic case 18 

  ? basic case 19 

  ? basic case 20 

  ? basic case 21 

  ? basic case 22 

  ? basic case 23 
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-COMPILE-MODULE
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? KERNEL-MANAGER whose state is compiled state. 
Invoking CU-MODULE-LOAD succeded.
  ? KERNEL-MANAGER whose state is module-loaded state. 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? KERNEL-MANAGER whose state is function-loaded state. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-LOAD-MODULE
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? KERNEL-MANAGER whose state is initial state. 
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
  ? KERNEL-MANAGER whose state is module-loaded state. 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? KERNEL-MANAGER whose state is function-loaded state. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-LOAD-FUNCTION
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? KERNEL-MANAGER whose state is initial state. 
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? KERNEL-MANAGER whose state is compiled state. 
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? The kernel function FOO has been already loaded. 

  ? The kernel function BAR is not defined. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? The kernel module which KERNEL-MANAGER specifies does not exist. 
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-LOAD-GLOBAL
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? Invalid kernel manager state. 
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? Invalid kernel manager state. 
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-GLOBAL succeded.
  ? The kernel global A has been already loaded. 

  ? The kernel global B is not defined. 
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-UNLOAD
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? basic case 1 
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 2 
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-DEFINE-FUNCTION
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
  ? KERNEL-MANAGER whose state is module-loaded state. 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? KERNEL-MANAGER whose state is function-loaded state. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-DEFINE-MACRO
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
  ? KERNEL-MANAGER whose state is module-loaded state. 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? KERNEL-MANAGER whose state is function-loaded state. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-DEFINE-SYMBOL-MACRO
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
  ? KERNEL-MANAGER whose state is module-loaded state. 
Invoking CU-MODULE-GET-FUNCTION succeded.
  ? KERNEL-MANAGER whose state is function-loaded state. 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 KERNEL-MANAGER-DEFINE-GLOBAL
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
  ? basic case 1 

  ? basic case 2 

  ? basic case 3 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
  ? Invalid kernel manager state. 
Invoking CU-MODULE-GET-GLOBAL succeded.
  ? Invalid kernel manager state. 
Invoking CU-CTX-DESTROY succeded.
 EXPAND-MACRO-1
  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((FOO 1) T) is expected to be ((FOO 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (A T) is expected to be (A T) 

  ? (C NIL) is expected to be (C NIL) 

  ? (EXPAND-MACRO-1 '(FOO) MGR) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {1005E29E93}>) 

 EXPAND-MACRO
  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (C NIL) is expected to be (C NIL) 
.
  ? (EXPAND-MACRO '(FOO) MGR) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {1005F02203}>) 

? 76 tests completed (4ms)
 ALLOC-MEMORY-BLOCK / FREE-MEMORY-BLOCK
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? TYPE which is a void type 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? SIZE which specifies memory larger than available on the gpu 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  ? SIZE which is zero 
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
  × SIZE which is negative 
    (ALLOC-MEMORY-BLOCK 'INT -1) is expected to raise a condition TYPE-ERROR (got #<SIMPLE-ERROR "~A failed with driver API error No. ~A.~%~A" {1005F407A3}>)
Invoking CU-CTX-DESTROY succeded.
 MEMORY-BLOCK-DEVICE-PTR
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 MEMORY-BLOCK-HOST-PTR
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 MEMORY-BLOCK-TYPE
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 MEMORY-BLOCK-SIZE
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 MEMORY-BLOCK-AREF
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
  ? basic case 2 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.
 SYNC-MEMORY-BLOCK
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 1 
Invoking CU-MEM-FREE succeded.
Invoking CU-CTX-DESTROY succeded.

× 1 of 12 tests failed (0ms)
 WITH-LAUNCHING-ARGUMENTS
  ? basic case 1 

 DEFKERNEL
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 1 (1658ms)
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 2 (1643ms)
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 3 (1641ms)
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 4 (1716ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 5 

  ? basic case 6 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 7 (1558ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 8 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 9 (1514ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 10 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 11 (1468ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 12 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 13 (1521ms)
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 14 
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
  ? basic case 15 

  ? basic case 16 
Invoking CU-MEM-FREE succeded.
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 17 (1522ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 18 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 19 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 DEFKERNELMACRO
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 19 (1560ms)
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 DEFKERNEL-SYMBOL-MACRO
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 20 (1893ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 21 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 DEFGLOBAL
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-GLOBAL succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? 42 is expected to be 42 (1601ms)
Invoking CU-MODULE-GET-GLOBAL succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? 0 is not expected to be 42 
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? 42 is expected to be 42 
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-MEM-ALLOC succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
nvcc -arch=sm_61 -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-LAUNCH-KERNEL succeded.
  ? basic case 22 (1627ms)
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
  ? basic case 23 
Invoking CU-MEM-FREE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
 EXPAND-MACRO
  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((FOO 1) T) is expected to be ((FOO 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (A T) is expected to be (A T) 

  ? (C NIL) is expected to be (C NIL) 

  ? (EXPAND-MACRO-1 '(FOO)) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {1004E2B0F3}>) 

  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((RETURN 1) T) is expected to be ((RETURN 1) T) 

  ? ((BAZ 1) NIL) is expected to be ((BAZ 1) NIL) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (1.0 T) is expected to be (1.0 T) 

  ? (C NIL) is expected to be (C NIL) 

  ? (EXPAND-MACRO '(FOO)) is expected to raise a condition ERROR (got #<SB-KERNEL::ARG-COUNT-ERROR {1004EF1503}>) 

? 42 tests completed (20926ms)
 TIMER
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-CTX-CREATE succeded.
Invoking CU-DEVICE-COMPUTE-CAPABILITY succeded.
Invoking CU-EVENT-CREATE succeded.
Invoking CU-EVENT-CREATE succeded.
Invoking CU-EVENT-RECORD succeded.
Invoking CU-EVENT-RECORD succeded.
Invoking CU-EVENT-SYNCHRONIZE succeded.
Invoking CU-EVENT-ELAPSED-TIME succeded.
  ? 0.002048 is expected to be T 
Invoking CU-EVENT-DESTROY succeded.
Invoking CU-EVENT-DESTROY succeded.
Invoking CU-CTX-DESTROY succeded.

? 1 test completed (0ms)

To load "cl-cuda-interop-test":
  Load 1 ASDF system:
    cl-cuda-interop-test
; Loading "cl-cuda-interop-test"
...Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02D50FD0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X00AA80C0)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02D50FD0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X00AA83A0) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
nvcc -I C:/Users/sgrf/.roswell/lisp/quicklisp/dists/quicklisp/software/cl-cuda-20171227-git/include -ptx -o C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.ptx C:/Users/sgrf/AppData/Local/Temp/cl-cuda.tmp.cu -Xcompiler /source-charset:utf-8
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02D523F0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X00AA8240)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02D523F0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X00AA8270) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02DBBFD0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X02D5CAD0)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02DBBCE0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X02D5CB70) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02DBBCE0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X02D5CC50)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02DBBCE0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X02D5CB40) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02DBBCE0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X02D5CA70)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02DBBCE0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X02D5CD00) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(CL-CUDA-INTEROP.API.MEMORY::MEMORY-BLOCK
       :HOST-PTR #.(SB-SYS:INT-SAP #X02DBBCE0)
       :VERTEX-BUFFER-OBJECT 1
       :GRAPHIC-RESOURCE-PTR #.(SB-SYS:INT-SAP #X02D5CC00)
       :TYPE INT
       :SIZE 1024) is expected to be T 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
  ? 73071067136 is expected to be T 
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? #.(SB-SYS:INT-SAP #X02DBBCE0) is expected to be T 

  ? 1 is expected to be T 

  ? #.(SB-SYS:INT-SAP #X02D5CD80) is expected to be T 

  ? INT is expected to be INT 

  ? 1024 is expected to be 1024 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1 is expected to be 1 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? 1.0 is expected to be 1.0 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) is expected to be #S(FLOAT3 :X 1.0 :Y 1.0 :Z 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
  ? #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) is expected to be #S(FLOAT4 :X 1.0 :Y 1.0 :Z 1.0 :W 1.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-CTX-DESTROY succeded.
Invoking CU-INIT succeded.
Invoking CU-DEVICE-GET succeded.
Invoking CU-GL-CTX-CREATE succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-GL-REGISTER-BUFFER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-HOST-TO-DEVICE succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-MODULE-LOAD succeded.
Invoking CU-MODULE-GET-FUNCTION succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-LAUNCH-KERNEL succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-SET-MAP-FLAGS succeded.
Invoking CU-GRAPHICS-MAP-RESOURCES succeded.
Invoking CU-GRAPHICS-RESOURCE-GET-MAPPED-POINTER succeded.
Invoking CU-MEMCPY-DEVICE-TO-HOST succeded.
Invoking CU-GRAPHICS-UNMAP-RESOURCES succeded.
  ? 2 is expected to be 2 

  ? 2.0 is expected to be 2.0 

  ? #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) is expected to be #S(FLOAT3 :X 2.0 :Y 2.0 :Z 2.0) 
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-GRAPHICS-UNREGISTER-RESOURCE succeded.
Invoking CU-MODULE-UNLOAD succeded.
Invoking CU-CTX-DESTROY succeded.
press 'Q' on the test window to quit

? 84 tests completed (0ms)

cl-cuda-test.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  ;;#+quicklisp(ql:quickload '(:cl-cuda-test :cl-cuda-interop-test) :silent t)
  )

(defpackage :ros.script.cl-cuda-test.3777879883
  (:use :cl))
(in-package :ros.script.cl-cuda-test.3777879883)

(defun main (&rest argv)
  (declare (ignorable argv))
  (ql:quickload :cl-cuda-test)
  (ql:quickload :cl-cuda-interop-test)
  )
;;; vim: set ft=lisp lisp: