cl-cuda

SBCL 1.4.4 / ASDF 3.3.1

cl-cuda-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/external-program/6f4681afcad4f7c061ff1a96dda141b8a667dfc8/external-program-20180205-git/external-program.asd" contains definition for system "external-program-test". Please only define "external-program" and secondary systems with a name starting with "external-program/" (e.g. "external-program/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180205-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/de578abbec472714b24f6283b6275586a7f07d5c/cl-colors-20180205-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: No definition for CFLAG-VDSUSP
WARNING: No definition for CFLAG-VSTATUS
WARNING: No definition for TIOCGHAYESESP
WARNING: No definition for TIOCSHAYESESP

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/driver-api/cffi-grovel.lisp
; in: DEFINE-GROVEL-SYNTAX CONSTANT-FROM-ENUM
;     (CFFI-GROVEL::DEFINE-GROVEL-SYNTAX CFFI-GROVEL::CONSTANT-FROM-ENUM
;         ((CFFI-GROVEL::LISP-NAME &REST CFFI-GROVEL::C-NAMES) &KEY (TYPE 'INTEGER)
;          DOCUMENTATION CFFI-GROVEL::OPTIONAL)
;       (WHEN (KEYWORDP CFFI-GROVEL::LISP-NAME)
;         (SETF CFFI-GROVEL::LISP-NAME
;                 (ALEXANDRIA.0.DEV:FORMAT-SYMBOL "~A" CFFI-GROVEL::LISP-NAME)))
;       (CFFI-GROVEL::C-SECTION-HEADER CFFI-GROVEL::OUT "constant"
;                                      CFFI-GROVEL::LISP-NAME)
;       (DOLIST (CFFI-GROVEL::C-NAME CFFI-GROVEL::C-NAMES)
;         (CFFI-GROVEL::C-EXPORT CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME)
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT "(cl:defconstant ")
;         (CFFI-GROVEL::C-PRINT-SYMBOL CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME T)
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ")
;         (ECASE TYPE
;           (INTEGER
;            (FORMAT CFFI-GROVEL::OUT "~&  if(_64_BIT_VALUE_FITS_SIGNED_P(~A))~%"
;                    CFFI-GROVEL::C-NAME)
;            (FORMAT CFFI-GROVEL::OUT
;                    "    fprintf(output, \"%lli\", (int64_t) ~A);"
;                    CFFI-GROVEL::C-NAME)
;            (FORMAT CFFI-GROVEL::OUT "~&  else~%")
;            (FORMAT CFFI-GROVEL::OUT
;                    "    fprintf(output, \"%llu\", (uint64_t) ~A);"
;                    CFFI-GROVEL::C-NAME))
;           (DOUBLE-FLOAT
;            (FORMAT CFFI-GROVEL::OUT
;                    "~&  fprintf(output, \"%s\", print_double_for_lisp((double)~A));~%"
;                    CFFI-GROVEL::C-NAME)))
;         (WHEN DOCUMENTATION
;           (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ~S" DOCUMENTATION))
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT ")~%")))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK DESTRUCTURING-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G14
;           (SB-C::CHECK-DS-LIST/&KEY #:ARGS1 1 1
;                                     '(# &KEY # DOCUMENTATION
;                                       CFFI-GROVEL::OPTIONAL)
;                                     #(:TYPE :DOCUMENTATION :OPTIONAL)))
;          (#:G15
;           (SB-C::CHECK-DS-LIST/&REST (POP #:G14) 1 1
;                                      '(CFFI-GROVEL::LISP-NAME &REST
;                                        CFFI-GROVEL::C-NAMES)))
;          (CFFI-GROVEL::LISP-NAME (POP #:G15))
;          (CFFI-GROVEL::C-NAMES #:G15)
;          (#:G16 (SB-C::DS-GETF #:G14 ':TYPE))
;          (TYPE
;           (IF (EQL #:G16 0)
;               'INTEGER
;               (CAR #)))
;          (#:G17 (SB-C::DS-GETF #:G14 ':DOCUMENTATION))
;          (DOCUMENTATION
;           (IF (NOT #)
;               (CAR #)))
;          (#:G18 (SB-C::DS-GETF #:G14 ':OPTIONAL))
;          (CFFI-GROVEL::OPTIONAL
;           (IF (NOT #)
;               (CAR #))))
;     (WHEN (KEYWORDP CFFI-GROVEL::LISP-NAME)
;       (SETF CFFI-GROVEL::LISP-NAME
;               (ALEXANDRIA.0.DEV:FORMAT-SYMBOL "~A" CFFI-GROVEL::LISP-NAME)))
;     (CFFI-GROVEL::C-SECTION-HEADER CFFI-GROVEL::OUT "constant"
;                                    CFFI-GROVEL::LISP-NAME)
;     (DOLIST (CFFI-GROVEL::C-NAME CFFI-GROVEL::C-NAMES)
;       (CFFI-GROVEL::C-EXPORT CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME)
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT "(cl:defconstant ")
;       (CFFI-GROVEL::C-PRINT-SYMBOL CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME T)
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ")
;       (ECASE TYPE
;         (INTEGER
;          (FORMAT CFFI-GROVEL::OUT "~&  if(_64_BIT_VALUE_FITS_SIGNED_P(~A))~%"
;                  CFFI-GROVEL::C-NAME)
;          (FORMAT CFFI-GROVEL::OUT
;                  "    fprintf(output, \"%lli\", (int64_t) ~A);"
;                  CFFI-GROVEL::C-NAME)
;          (FORMAT CFFI-GROVEL::OUT "~&  else~%")
;          (FORMAT CFFI-GROVEL::OUT
;                  "    fprintf(output, \"%llu\", (uint64_t) ~A);"
;                  CFFI-GROVEL::C-NAME))
;         (DOUBLE-FLOAT
;          (FORMAT CFFI-GROVEL::OUT
;                  "~&  fprintf(output, \"%s\", print_double_for_lisp((double)~A));~%"
;                  CFFI-GROVEL::C-NAME)))
;       (WHEN DOCUMENTATION
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ~S" DOCUMENTATION))
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT ")~%")))
; 
; caught STYLE-WARNING:
;   The variable OPTIONAL is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cuda" "src" "driver-api" "cffi-grovel">
WARNING: redefining CFFI-GROVEL::DEFINE-CONSTANTS-FROM-ENUM in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT VARIABLE
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::VARIABLE
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-VARIABLE))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (TYPE :TYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::VARIABLE {10067DA8A3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::VARIABLE-P, CL-CUDA.LANG.ENVIRONMENT::VARIABLE-NAME and CL-CUDA.LANG.ENVIRONMENT::VARIABLE-TYPE could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::VARIABLE was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT SYMBOL-MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-SYMBOL-MACRO))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::EXPANSION :EXPANSION :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO {1006946733}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-P, CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-NAME and CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-EXPANSION could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT GLOBAL
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::GLOBAL
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-GLOBAL))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (TYPE :TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::INITIALIZER :INITIALIZER :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::GLOBAL {1006AA3213}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::GLOBAL-P, CL-CUDA.LANG.ENVIRONMENT::GLOBAL-NAME, CL-CUDA.LANG.ENVIRONMENT::GLOBAL-TYPE and CL-CUDA.LANG.ENVIRONMENT::GLOBAL-INITIALIZER could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::GLOBAL was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT %FUNCTION
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::%FUNCTION
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-FUNCTION)
;          (:CONC-NAME CL-CUDA.LANG.ENVIRONMENT::FUNCTION-)
;          (:PREDICATE CL-CUDA.LANG.ENVIRONMENT::FUNCTION-P))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::RETURN-TYPE :RETURN-TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::ARGUMENT-TYPES :ARGUMENT-TYPES :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::%FUNCTION {1006C8D863}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::FUNCTION-P, CL-CUDA.LANG.ENVIRONMENT::FUNCTION-NAME, CL-CUDA.LANG.ENVIRONMENT::FUNCTION-RETURN-TYPE and CL-CUDA.LANG.ENVIRONMENT::FUNCTION-ARGUMENT-TYPES could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::%FUNCTION was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-MACRO))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::MACRO {1006E8FBE3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::MACRO-P and CL-CUDA.LANG.ENVIRONMENT::MACRO-NAME could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cuda" "src" "lang" "environment">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT %FUNCTION
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::%FUNCTION
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-FUNCTION)
;          (:CONC-NAME CL-CUDA.LANG.KERNEL::FUNCTION-)
;          (:PREDICATE CL-CUDA.LANG.KERNEL::FUNCTION-P))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::RETURN-TYPE :RETURN-TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.KERNEL::%FUNCTION {1007F9EDA3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.KERNEL::FUNCTION-P, CL-CUDA.LANG.KERNEL::FUNCTION-NAME, CL-CUDA.LANG.KERNEL::FUNCTION-RETURN-TYPE, CL-CUDA.LANG.KERNEL::FUNCTION-ARGUMENTS and CL-CUDA.LANG.KERNEL::FUNCTION-BODY could not be inlined because the structure definition for CL-CUDA.LANG.KERNEL::%FUNCTION was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-MACRO))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.KERNEL::MACRO {10082AACE3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.KERNEL::MACRO-P, CL-CUDA.LANG.KERNEL::MACRO-NAME, CL-CUDA.LANG.KERNEL::MACRO-ARGUMENTS and CL-CUDA.LANG.KERNEL::MACRO-BODY could not be inlined because the structure definition for CL-CUDA.LANG.KERNEL::MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT SYMBOL-MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::SYMBOL-MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-SYMBOL-MACRO))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::EXPANSION :EXPANSION :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.KERNEL::SYMBOL-MACRO {10084B39C3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.KERNEL::SYMBOL-MACRO-P, CL-CUDA.LANG.KERNEL::SYMBOL-MACRO-NAME and CL-CUDA.LANG.KERNEL::SYMBOL-MACRO-EXPANSION could not be inlined because the structure definition for CL-CUDA.LANG.KERNEL::SYMBOL-MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT GLOBAL
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::GLOBAL
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-GLOBAL))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::QUALIFIERS :QUALIFIERS :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::INITIALIZER :INITIALIZER :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.KERNEL::GLOBAL {100866B3B3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.KERNEL::GLOBAL-P, CL-CUDA.LANG.KERNEL::GLOBAL-NAME, CL-CUDA.LANG.KERNEL::GLOBAL-QUALIFIERS and CL-CUDA.LANG.KERNEL::GLOBAL-INITIALIZER could not be inlined because the structure definition for CL-CUDA.LANG.KERNEL::GLOBAL was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cuda" "src" "lang" "kernel">
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: CU-INIT failed with driver API error No. 100.
CUDA_ERROR_NO_DEVICE (no CUDA-capable devices were detected)

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "~A failed with driver API error No. ~A.~%~A" {1001F6E423}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "~A failed with driver API error No. ~A.~%~A" {1001F6E423}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "~A failed with driver API error No. ~A.~%~A" {1001F6E423}>)
3: (ERROR "~A failed with driver API error No. ~A.~%~A" CU-INIT 100 "CUDA_ERROR_NO_DEVICE (no CUDA-capable devices were detected)")
4: (CL-CUDA.DRIVER-API::CHECK-CUDA-ERROR CU-INIT 100)
5: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 212) file /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/dri... {100ED5A23F}> {100E871F83}> :TABLE #(106 SET *PACKAGE* "CL-USER" #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFPACKAGE "CL-CUDA-TEST.DRIVER-API" #1="CL" #2="PROVE" #3="CL-CUDA.DRIVER-API" (#1# #2# #3#) "ALEXANDRIA" ...) :STACK #(0 CU-INIT 0 #<FUNCTION (MACRO-FUNCTION WITH-CU-CONTEXT) {2288F50B}> #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/driver-api.lisp" :INDICES 163841) 163841 #<SB-KERNEL:LAYOUT for SB-C:DEFINITION-SOURCE-LOCATION {20300803}> #(#(9 3 57 90 69 8 7 251 12 177 20 166 ...) WITH-GENSYMS) WITH-GENSYMS SB-VM::ALLOC-TRAMP-R11 193793 SB-VM::ALLOC-TRAMP-R11 ...) :NAME-BUFFER #("" "DIAG-GENSYMSUG-FUN-EXTERNAL") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
6: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 212) file /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/dri... {100ED5A23F}> {100E871F83}> NIL NIL)
7: ((FLET SB-FASL::THUNK :IN LOAD))
8: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7FFFF6DA6A1B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 212) file /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/dri... {100ED5A23F}> {100E871F83}>)
9: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 212) file /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/dri... {100ED5A23F}> {100E871F83}> T)
10: (LOAD #P#<(SIMPLE-ARRAY CHARACTER (207)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/t/driver-api/driver-a... {1001F8E94F}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
11: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {100E86FE3B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
12: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cuda-test" "t" "driver-api" "driver-api">)
13: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
14: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cuda-test" "t" "driver-api" "driver-api">) [fast-method]
15: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cuda-test" "t" "driver-api" "driver-api">) [fast-method]
16: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B2F2E3}>) [fast-method]
17: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
18: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B2F2E3}>) [fast-method]
19: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cuda-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
20: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cuda-test">)
21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cuda-test">) [fast-method]
23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-cuda-test")
24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-cuda-test") [fast-method]
26: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B29BFB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
28: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005AE709B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
29: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-cuda-test") [fast-method]
30: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-cuda-test" "cl-cuda-test")
31: (DEPCHECK::MAGIC "cl-cuda-test" "cl-cuda-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-MXvKr5VQ/depcheck-win.txt")
32: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-cuda-test" "cl-cuda-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-MXvKr5VQ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-MXvKr5VQ/depcheck-fail.txt"))
33: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
34: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
35: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SB-EXT:SAVE-LISP-AND-DIE))
36: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 10 STYLE-WARNING conditions

cl-cuda-interop-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/external-program/6f4681afcad4f7c061ff1a96dda141b8a667dfc8/external-program-20180205-git/external-program.asd" contains definition for system "external-program-test". Please only define "external-program" and secondary systems with a name starting with "external-program/" (e.g. "external-program/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180205-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/de578abbec472714b24f6283b6275586a7f07d5c/cl-colors-20180205-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: No definition for CFLAG-VDSUSP
WARNING: No definition for CFLAG-VSTATUS
WARNING: No definition for TIOCGHAYESESP
WARNING: No definition for TIOCSHAYESESP

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/driver-api/cffi-grovel.lisp
; in: DEFINE-GROVEL-SYNTAX CONSTANT-FROM-ENUM
;     (CFFI-GROVEL::DEFINE-GROVEL-SYNTAX CFFI-GROVEL::CONSTANT-FROM-ENUM
;         ((CFFI-GROVEL::LISP-NAME &REST CFFI-GROVEL::C-NAMES) &KEY (TYPE 'INTEGER)
;          DOCUMENTATION CFFI-GROVEL::OPTIONAL)
;       (WHEN (KEYWORDP CFFI-GROVEL::LISP-NAME)
;         (SETF CFFI-GROVEL::LISP-NAME
;                 (ALEXANDRIA.0.DEV:FORMAT-SYMBOL "~A" CFFI-GROVEL::LISP-NAME)))
;       (CFFI-GROVEL::C-SECTION-HEADER CFFI-GROVEL::OUT "constant"
;                                      CFFI-GROVEL::LISP-NAME)
;       (DOLIST (CFFI-GROVEL::C-NAME CFFI-GROVEL::C-NAMES)
;         (CFFI-GROVEL::C-EXPORT CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME)
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT "(cl:defconstant ")
;         (CFFI-GROVEL::C-PRINT-SYMBOL CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME T)
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ")
;         (ECASE TYPE
;           (INTEGER
;            (FORMAT CFFI-GROVEL::OUT "~&  if(_64_BIT_VALUE_FITS_SIGNED_P(~A))~%"
;                    CFFI-GROVEL::C-NAME)
;            (FORMAT CFFI-GROVEL::OUT
;                    "    fprintf(output, \"%lli\", (int64_t) ~A);"
;                    CFFI-GROVEL::C-NAME)
;            (FORMAT CFFI-GROVEL::OUT "~&  else~%")
;            (FORMAT CFFI-GROVEL::OUT
;                    "    fprintf(output, \"%llu\", (uint64_t) ~A);"
;                    CFFI-GROVEL::C-NAME))
;           (DOUBLE-FLOAT
;            (FORMAT CFFI-GROVEL::OUT
;                    "~&  fprintf(output, \"%s\", print_double_for_lisp((double)~A));~%"
;                    CFFI-GROVEL::C-NAME)))
;         (WHEN DOCUMENTATION
;           (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ~S" DOCUMENTATION))
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT ")~%")))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK DESTRUCTURING-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G14
;           (SB-C::CHECK-DS-LIST/&KEY #:ARGS1 1 1
;                                     '(# &KEY # DOCUMENTATION
;                                       CFFI-GROVEL::OPTIONAL)
;                                     #(:TYPE :DOCUMENTATION :OPTIONAL)))
;          (#:G15
;           (SB-C::CHECK-DS-LIST/&REST (POP #:G14) 1 1
;                                      '(CFFI-GROVEL::LISP-NAME &REST
;                                        CFFI-GROVEL::C-NAMES)))
;          (CFFI-GROVEL::LISP-NAME (POP #:G15))
;          (CFFI-GROVEL::C-NAMES #:G15)
;          (#:G16 (SB-C::DS-GETF #:G14 ':TYPE))
;          (TYPE
;           (IF (EQL #:G16 0)
;               'INTEGER
;               (CAR #)))
;          (#:G17 (SB-C::DS-GETF #:G14 ':DOCUMENTATION))
;          (DOCUMENTATION
;           (IF (NOT #)
;               (CAR #)))
;          (#:G18 (SB-C::DS-GETF #:G14 ':OPTIONAL))
;          (CFFI-GROVEL::OPTIONAL
;           (IF (NOT #)
;               (CAR #))))
;     (WHEN (KEYWORDP CFFI-GROVEL::LISP-NAME)
;       (SETF CFFI-GROVEL::LISP-NAME
;               (ALEXANDRIA.0.DEV:FORMAT-SYMBOL "~A" CFFI-GROVEL::LISP-NAME)))
;     (CFFI-GROVEL::C-SECTION-HEADER CFFI-GROVEL::OUT "constant"
;                                    CFFI-GROVEL::LISP-NAME)
;     (DOLIST (CFFI-GROVEL::C-NAME CFFI-GROVEL::C-NAMES)
;       (CFFI-GROVEL::C-EXPORT CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME)
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT "(cl:defconstant ")
;       (CFFI-GROVEL::C-PRINT-SYMBOL CFFI-GROVEL::OUT CFFI-GROVEL::LISP-NAME T)
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ")
;       (ECASE TYPE
;         (INTEGER
;          (FORMAT CFFI-GROVEL::OUT "~&  if(_64_BIT_VALUE_FITS_SIGNED_P(~A))~%"
;                  CFFI-GROVEL::C-NAME)
;          (FORMAT CFFI-GROVEL::OUT
;                  "    fprintf(output, \"%lli\", (int64_t) ~A);"
;                  CFFI-GROVEL::C-NAME)
;          (FORMAT CFFI-GROVEL::OUT "~&  else~%")
;          (FORMAT CFFI-GROVEL::OUT
;                  "    fprintf(output, \"%llu\", (uint64_t) ~A);"
;                  CFFI-GROVEL::C-NAME))
;         (DOUBLE-FLOAT
;          (FORMAT CFFI-GROVEL::OUT
;                  "~&  fprintf(output, \"%s\", print_double_for_lisp((double)~A));~%"
;                  CFFI-GROVEL::C-NAME)))
;       (WHEN DOCUMENTATION
;         (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT " ~S" DOCUMENTATION))
;       (CFFI-GROVEL::C-FORMAT CFFI-GROVEL::OUT ")~%")))
; 
; caught STYLE-WARNING:
;   The variable OPTIONAL is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cuda" "src" "driver-api" "cffi-grovel">
WARNING: redefining CFFI-GROVEL::DEFINE-CONSTANTS-FROM-ENUM in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT VARIABLE
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::VARIABLE
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-VARIABLE))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (TYPE :TYPE :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::VARIABLE {1006A6A8A3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::VARIABLE-P, CL-CUDA.LANG.ENVIRONMENT::VARIABLE-NAME and CL-CUDA.LANG.ENVIRONMENT::VARIABLE-TYPE could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::VARIABLE was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT SYMBOL-MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-SYMBOL-MACRO))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::EXPANSION :EXPANSION :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO {1006BD6943}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-P, CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-NAME and CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO-EXPANSION could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::SYMBOL-MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT GLOBAL
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::GLOBAL
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-GLOBAL))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (TYPE :TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::INITIALIZER :INITIALIZER :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::GLOBAL {1006D31233}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::GLOBAL-P, CL-CUDA.LANG.ENVIRONMENT::GLOBAL-NAME, CL-CUDA.LANG.ENVIRONMENT::GLOBAL-TYPE and CL-CUDA.LANG.ENVIRONMENT::GLOBAL-INITIALIZER could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::GLOBAL was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT %FUNCTION
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::%FUNCTION
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-FUNCTION)
;          (:CONC-NAME CL-CUDA.LANG.ENVIRONMENT::FUNCTION-)
;          (:PREDICATE CL-CUDA.LANG.ENVIRONMENT::FUNCTION-P))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::RETURN-TYPE :RETURN-TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::ARGUMENT-TYPES :ARGUMENT-TYPES :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::%FUNCTION {1006F1D1C3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::FUNCTION-P, CL-CUDA.LANG.ENVIRONMENT::FUNCTION-NAME, CL-CUDA.LANG.ENVIRONMENT::FUNCTION-RETURN-TYPE and CL-CUDA.LANG.ENVIRONMENT::FUNCTION-ARGUMENT-TYPES could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::%FUNCTION was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/environment.lisp
; in: DEFSTRUCT MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.ENVIRONMENT::MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.ENVIRONMENT::%MAKE-MACRO))
;       (CL-CUDA.LANG.ENVIRONMENT::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.ENVIRONMENT::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.ENVIRONMENT::MACRO {100711A3C3}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.ENVIRONMENT::MACRO-P and CL-CUDA.LANG.ENVIRONMENT::MACRO-NAME could not be inlined because the structure definition for CL-CUDA.LANG.ENVIRONMENT::MACRO was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cuda" "src" "lang" "environment">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT %FUNCTION
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::%FUNCTION
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-FUNCTION)
;          (:CONC-NAME CL-CUDA.LANG.KERNEL::FUNCTION-)
;          (:PREDICATE CL-CUDA.LANG.KERNEL::FUNCTION-P))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::RETURN-TYPE :RETURN-TYPE :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-CUDA.LANG.KERNEL::%FUNCTION {1008231203}>
;    '#(#<SB-KERNEL:LAYOUT for T {20300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {20300103}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CL-CUDA.LANG.KERNEL::FUNCTION-P, CL-CUDA.LANG.KERNEL::FUNCTION-NAME, CL-CUDA.LANG.KERNEL::FUNCTION-RETURN-TYPE, CL-CUDA.LANG.KERNEL::FUNCTION-ARGUMENTS and CL-CUDA.LANG.KERNEL::FUNCTION-BODY could not be inlined because the structure definition for CL-CUDA.LANG.KERNEL::%FUNCTION was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cuda/4992dc19fa8c9364d648602b23f78db8af2def18/cl-cuda-20180205-git/src/lang/kernel.lisp
; in: DEFSTRUCT MACRO
;     (DEFSTRUCT
;         (CL-CUDA.LANG.KERNEL::MACRO
;          (:CONSTRUCTOR CL-CUDA.LANG.KERNEL::%MAKE-MACRO))
;       (CL-CUDA.LANG.KERNEL::NAME :NAME :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::ARGUMENTS :ARGUMENTS :READ-ONLY T)
;       (CL-CUDA.LANG.KERNEL::BODY :BODY :READ-ONLY T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CL-