perfpiece

SBCL 1.4.3 / ASDF 3.3.1

perfpiece

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN GET-THREAD-MONITOR-RESULTS
;     (LIST :REAL-TIME PERFPIECE::REAL-NSEC :USER-TIME PERFPIECE::USER-NSEC)
; --> PERFPIECE::REAL-NSEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR7 'PERFPIECE::MONITOR-MEASUREMENTS
;                            'PERFPIECE::REAL-NSEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT MONITOR-MEASUREMENTS)) or (:STRUCT MONITOR-MEASUREMENTS) instead.

; --> PERFPIECE::USER-NSEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR7 'PERFPIECE::MONITOR-MEASUREMENTS
;                            'PERFPIECE::USER-NSEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT MONITOR-MEASUREMENTS)) or (:STRUCT MONITOR-MEASUREMENTS) instead.

;     (CFFI:FOREIGN-SLOT-VALUE PERFPIECE::M 'PERFPIECE::MONITOR-MEASUREMENTS
;                              'PERFPIECE::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT MONITOR-MEASUREMENTS)) or (:STRUCT MONITOR-MEASUREMENTS) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCFUN "PAPI_get_event_info"
;     (CFFI:DEFCFUN "PAPI_get_event_info"
;         PERFPIECE::PAPI-ERROR-CODE
;       (PERFPIECE::EVENT-CODE :UINT)
;       (PERFPIECE::INFO PERFPIECE::EVENT-INFO))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN PAPI-CODE-TO-EVENT
;     (PERFPIECE::CSTRING SYMBOL)
; --> SYMBOL 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO 'SYMBOL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::SHORT-DESCR)
; --> PERFPIECE::SHORT-DESCR 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO
;                            'PERFPIECE::SHORT-DESCR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::LONG-DESCR)
; --> PERFPIECE::LONG-DESCR 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO 'PERFPIECE::LONG-DESCR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::DERIVED)
; --> PERFPIECE::DERIVED 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO 'PERFPIECE::DERIVED)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::NOTE)
; --> PERFPIECE::NOTE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO 'PERFPIECE::NOTE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

;     (PLUSP COUNT)
; --> > IF > COUNT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::EVENT-INFO 'COUNT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN PAPI-EVENTS-TO-HASH-TABLE
;     (CFFI:WITH-FOREIGN-OBJECTS ((PERFPIECE::INFO 'PERFPIECE::EVENT-INFO)
;                                 (PERFPIECE::CODE :UINT))
;       (LET ((HASH-TABLE (MAKE-HASH-TABLE)))
;         (FLET ((PERFPIECE::PUSH-EVENTS #
;                  #
;                  #
;                  #))
;           (PERFPIECE::PUSH-EVENTS PERFPIECE::+PAPI-PRESET-MASK+
;            PERFPIECE::+PAPI-PRESET-ENUM-AVAIL+)
;           (PERFPIECE::PUSH-EVENTS PERFPIECE::+PAPI-NATIVE-MASK+
;            PERFPIECE::+PAPI-ENUM-EVENT+))
;         HASH-TABLE))
; ==>
;   (CFFI:WITH-FOREIGN-OBJECT (PERFPIECE::INFO 'PERFPIECE::EVENT-INFO)
;     (CFFI:WITH-FOREIGN-OBJECTS ((PERFPIECE::CODE :UINT))
;       (LET ((HASH-TABLE #))
;         (FLET (#)
;           (PERFPIECE::PUSH-EVENTS PERFPIECE::+PAPI-PRESET-MASK+
;            PERFPIECE::+PAPI-PRESET-ENUM-AVAIL+)
;           (PERFPIECE::PUSH-EVENTS PERFPIECE::+PAPI-NATIVE-MASK+
;            PERFPIECE::+PAPI-ENUM-EVENT+))
;         HASH-TABLE)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-INFO)) or (:STRUCT EVENT-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN (SETF EVENT-SET-GRANULARITY)
;     (CFFI:WITH-FOREIGN-OBJECT (PERFPIECE::OPT 'PERFPIECE::PAPI-GRANULARITY-OPTION)
;       (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::EVENT-SET PERFPIECE::GRANULARITY)
;                                 PERFPIECE::OPT PERFPIECE::PAPI-GRANULARITY-OPTION)
;         (SETF PERFPIECE::EVENT-SET (PERFPIECE::HANDLE-OF SET))
;         (SETF PERFPIECE::GRANULARITY PERFPIECE::GRN))
;       (PERFPIECE::PAPI-SET-OPT PERFPIECE::+PAPI-GRANUL+ PERFPIECE::OPT))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

;     (SETF PERFPIECE::EVENT-SET (PERFPIECE::HANDLE-OF SET))
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE4 #:PTR3 'PERFPIECE::PAPI-GRANULARITY-OPTION
;                           'PERFPIECE::EVENT-SET)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

;     (SETF PERFPIECE::GRANULARITY PERFPIECE::GRN)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE16 #:PTR3 'PERFPIECE::PAPI-GRANULARITY-OPTION
;                           'PERFPIECE::GRANULARITY)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN EVENT-SET-GRANULARITY
;     (CFFI:WITH-FOREIGN-OBJECT (PERFPIECE::OPT 'PERFPIECE::PAPI-GRANULARITY-OPTION)
;       (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::EVENT-SET PERFPIECE::GRANULARITY)
;                                 PERFPIECE::OPT PERFPIECE::PAPI-GRANULARITY-OPTION)
;         (SETF PERFPIECE::EVENT-SET (PERFPIECE::HANDLE-OF SET))
;         (PERFPIECE::PAPI-GET-OPT PERFPIECE::+PAPI-GRANUL+ PERFPIECE::OPT)
;         PERFPIECE::GRANULARITY))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

;     (SETF PERFPIECE::EVENT-SET (PERFPIECE::HANDLE-OF SET))
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE4 #:PTR3 'PERFPIECE::PAPI-GRANULARITY-OPTION
;                           'PERFPIECE::EVENT-SET)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

;     (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::EVENT-SET PERFPIECE::GRANULARITY)
;                               PERFPIECE::OPT PERFPIECE::PAPI-GRANULARITY-OPTION)
;       (SETF PERFPIECE::EVENT-SET (PERFPIECE::HANDLE-OF SET))
;       (PERFPIECE::PAPI-GET-OPT PERFPIECE::+PAPI-GRANUL+ PERFPIECE::OPT)
;       PERFPIECE::GRANULARITY)
; --> LET SYMBOL-MACROLET PERFPIECE::GRANULARITY 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR3 'PERFPIECE::PAPI-GRANULARITY-OPTION
;                            'PERFPIECE::GRANULARITY)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-GRANULARITY-OPTION)) or (:STRUCT PAPI-GRANULARITY-OPTION) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCSTRUCT PAPI-MH-LEVEL-INFO
;     (CFFI:DEFCSTRUCT PERFPIECE::PAPI-MH-LEVEL-INFO
;       (PERFPIECE::TLB PERFPIECE::PAPI-MH-TLB-INFO :COUNT 4)
;       (PERFPIECE::CACHE PERFPIECE::PAPI-MH-CACHE-INFO :COUNT 4))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'PERFPIECE::PAPI-MH-LEVEL-INFO
;                                           '(:CLASS
;                                             PERFPIECE::PAPI-MH-LEVEL-INFO-TCLASS)
;                                           '((PERFPIECE::TLB
;                                              PERFPIECE::PAPI-MH-TLB-INFO :COUNT
;                                              4)
;                                             (PERFPIECE::CACHE
;                                              PERFPIECE::PAPI-MH-CACHE-INFO
;                                              :COUNT 4)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-TLB-INFO)) or (:STRUCT PAPI-MH-TLB-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-TLB-INFO)) or (:STRUCT PAPI-MH-TLB-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-TLB-INFO)) or (:STRUCT PAPI-MH-TLB-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-TLB-INFO)) or (:STRUCT PAPI-MH-TLB-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-CACHE-INFO)) or (:STRUCT PAPI-MH-CACHE-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-CACHE-INFO)) or (:STRUCT PAPI-MH-CACHE-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-CACHE-INFO)) or (:STRUCT PAPI-MH-CACHE-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-CACHE-INFO)) or (:STRUCT PAPI-MH-CACHE-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCSTRUCT PAPI-MH-INFO
;     (CFFI:DEFCSTRUCT PERFPIECE::PAPI-MH-INFO
;       (PERFPIECE::LEVELS :INT)
;       (PERFPIECE::LEVEL PERFPIECE::PAPI-MH-LEVEL-INFO :COUNT 4))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'PERFPIECE::PAPI-MH-INFO
;                                           '(:CLASS
;                                             PERFPIECE::PAPI-MH-INFO-TCLASS)
;                                           '((PERFPIECE::LEVELS :INT)
;                                             (PERFPIECE::LEVEL
;                                              PERFPIECE::PAPI-MH-LEVEL-INFO
;                                              :COUNT 4)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-LEVEL-INFO)) or (:STRUCT PAPI-MH-LEVEL-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-LEVEL-INFO)) or (:STRUCT PAPI-MH-LEVEL-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-LEVEL-INFO)) or (:STRUCT PAPI-MH-LEVEL-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-LEVEL-INFO)) or (:STRUCT PAPI-MH-LEVEL-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCSTRUCT PAPI-HW-INFO
;     (CFFI:DEFCSTRUCT PERFPIECE::PAPI-HW-INFO
;       (PERFPIECE::NCPU :INT)
;       (PERFPIECE::NNODES :INT)
;       (PERFPIECE::TOTALCPUS :INT)
;       (PERFPIECE::VENDOR :INT)
;       (PERFPIECE::VENDOR-STRING :CHAR :COUNT 128)
;       (PERFPIECE::MODEL :INT)
;       (PERFPIECE::MODEL-STRING :CHAR :COUNT 128)
;       (PERFPIECE::REVISION :FLOAT)
;       (PERFPIECE::MHZ :FLOAT)
;       (PERFPIECE::CLOCK-MHZ :INT)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'PERFPIECE::PAPI-HW-INFO
;                                           '(:CLASS
;                                             PERFPIECE::PAPI-HW-INFO-TCLASS)
;                                           '((PERFPIECE::NCPU :INT)
;                                             (PERFPIECE::NNODES :INT)
;                                             (PERFPIECE::TOTALCPUS :INT)
;                                             (PERFPIECE::VENDOR :INT)
;                                             (PERFPIECE::VENDOR-STRING :CHAR
;                                              :COUNT 128)
;                                             (PERFPIECE::MODEL :INT)
;                                             (PERFPIECE::MODEL-STRING :CHAR
;                                              :COUNT 128)
;                                             (PERFPIECE::REVISION :FLOAT)
;                                             (PERFPIECE::MHZ :FLOAT)
;                                             (PERFPIECE::CLOCK-MHZ :INT)
;                                             (PERFPIECE::MEM-HIERARCHY
;                                              PERFPIECE::PAPI-MH-INFO)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-INFO)) or (:STRUCT PAPI-MH-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-INFO)) or (:STRUCT PAPI-MH-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-INFO)) or (:STRUCT PAPI-MH-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-INFO)) or (:STRUCT PAPI-MH-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-MH-INFO)) or (:STRUCT PAPI-MH-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCFUN "PAPI_get_hardware_info"
;     (CFFI:DEFCFUN "PAPI_get_hardware_info"
;         PERFPIECE::PAPI-HW-INFO)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN GET-PROCESSOR-INFO
;     (LIST :CPUS PERFPIECE::TOTALCPUS :NODES PERFPIECE::NNODES :CPUS-PER-NODE
;           PERFPIECE::NCPU :VENDOR-ID PERFPIECE::VENDOR :VENDOR
;           (PERFPIECE::CSTRING PERFPIECE::VENDOR-STRING) :MODEL-ID ...)
; --> PERFPIECE::TOTALCPUS 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO
;                            'PERFPIECE::TOTALCPUS)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; --> PERFPIECE::NNODES 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::NNODES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; --> PERFPIECE::NCPU 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::NCPU)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; --> PERFPIECE::VENDOR 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::VENDOR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::VENDOR-STRING)
; --> PERFPIECE::VENDOR-STRING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO
;                            'PERFPIECE::VENDOR-STRING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

;     (LIST :CPUS PERFPIECE::TOTALCPUS :NODES PERFPIECE::NNODES :CPUS-PER-NODE
;           PERFPIECE::NCPU :VENDOR-ID PERFPIECE::VENDOR :VENDOR
;           (PERFPIECE::CSTRING PERFPIECE::VENDOR-STRING) :MODEL-ID ...)
; --> PERFPIECE::MODEL 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::MODEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

;     (PERFPIECE::CSTRING PERFPIECE::MODEL-STRING)
; --> PERFPIECE::MODEL-STRING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO
;                            'PERFPIECE::MODEL-STRING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

;     (LIST :CPUS PERFPIECE::TOTALCPUS :NODES PERFPIECE::NNODES :CPUS-PER-NODE
;           PERFPIECE::NCPU :VENDOR-ID PERFPIECE::VENDOR :VENDOR
;           (PERFPIECE::CSTRING PERFPIECE::VENDOR-STRING) :MODEL-ID ...)
; --> PERFPIECE::REVISION 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::REVISION)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; --> PERFPIECE::MHZ 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO 'PERFPIECE::MHZ)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; --> PERFPIECE::CLOCK-MHZ 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'PERFPIECE::PAPI-HW-INFO
;                            'PERFPIECE::CLOCK-MHZ)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PAPI-HW-INFO)) or (:STRUCT PAPI-HW-INFO) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCSTRUCT RUSAGE
;     (CFFI:DEFCSTRUCT PERFPIECE::RUSAGE
;       (PERFPIECE::UTIME PERFPIECE::TIMEVAL)
;       (PERFPIECE::STIME PERFPIECE::TIMEVAL)
;       (PERFPIECE::MAXRSS :LONG)
;       (PERFPIECE::IXRSS :LONG)
;       (PERFPIECE::IDRSS :LONG)
;       (PERFPIECE::ISRSS :LONG)
;       (PERFPIECE::MINFLT :LONG)
;       (PERFPIECE::MAJFLT :LONG)
;       (PERFPIECE::NSWAP :LONG)
;       (PERFPIECE::INBLOCK :LONG)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'PERFPIECE::RUSAGE
;                                           '(:CLASS PERFPIECE::RUSAGE-TCLASS)
;                                           '((PERFPIECE::UTIME
;                                              PERFPIECE::TIMEVAL)
;                                             (PERFPIECE::STIME
;                                              PERFPIECE::TIMEVAL)
;                                             (PERFPIECE::MAXRSS :LONG)
;                                             (PERFPIECE::IXRSS :LONG)
;                                             (PERFPIECE::IDRSS :LONG)
;                                             (PERFPIECE::ISRSS :LONG)
;                                             (PERFPIECE::MINFLT :LONG)
;                                             (PERFPIECE::MAJFLT :LONG)
;                                             (PERFPIECE::NSWAP :LONG)
;                                             (PERFPIECE::INBLOCK :LONG)
;                                             (PERFPIECE::OUTBLOCK :LONG)
;                                             (PERFPIECE::MSGSND :LONG) ...))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFCFUN "getrusage"
;     (CFFI:DEFCFUN "getrusage"
;         :INT
;       (PERFPIECE::WHO :INT)
;       (PERFPIECE::USAGE PERFPIECE::RUSAGE))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/perfpiece/f4354f80ce2e1bf453fe92702e15e8835582b053/perfpiece-20180125-git/perfpiece.lisp
; in: DEFUN GET-RESOURCE-USAGE
;     (CFFI:WITH-FOREIGN-OBJECT (PERFPIECE::RUSAGE 'PERFPIECE::RUSAGE)
;       (PERFPIECE::GETRUSAGE PERFPIECE::+RUSAGE-SELF+ PERFPIECE::RUSAGE)
;       (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::UTIME PERFPIECE::STIME
;                                  PERFPIECE::MINFLT PERFPIECE::MAJFLT
;                                  PERFPIECE::NVCSW PERFPIECE::NIVCSW)
;                                 PERFPIECE::RUSAGE PERFPIECE::RUSAGE)
;         (VALUES
;          (CFFI:WITH-FOREIGN-SLOTS (# PERFPIECE::UTIME PERFPIECE::TIMEVAL)
;            (+ # PERFPIECE::USEC))
;          (CFFI:WITH-FOREIGN-SLOTS (# PERFPIECE::STIME PERFPIECE::TIMEVAL)
;            (+ # PERFPIECE::USEC))
;          PERFPIECE::MINFLT PERFPIECE::MAJFLT PERFPIECE::NVCSW PERFPIECE::NIVCSW)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.

;     (* PERFPIECE::SEC 1000000)
; --> PERFPIECE::SEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR4 'PERFPIECE::TIMEVAL 'PERFPIECE::SEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC)
; --> PERFPIECE::USEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR4 'PERFPIECE::TIMEVAL 'PERFPIECE::USEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::SEC PERFPIECE::USEC) PERFPIECE::UTIME
;                               PERFPIECE::TIMEVAL)
;       (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC))
; --> LET PERFPIECE::UTIME 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR3 'PERFPIECE::RUSAGE 'PERFPIECE::UTIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.

; --> LET PERFPIECE::UTIME CFFI:FOREIGN-SLOT-VALUE 
; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER #:PTR3 0)
;                              'PERFPIECE::TIMEVAL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (* PERFPIECE::SEC 1000000)
; --> PERFPIECE::SEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR5 'PERFPIECE::TIMEVAL 'PERFPIECE::SEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC)
; --> PERFPIECE::USEC 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR5 'PERFPIECE::TIMEVAL 'PERFPIECE::USEC)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::SEC PERFPIECE::USEC) PERFPIECE::STIME
;                               PERFPIECE::TIMEVAL)
;       (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC))
; --> LET PERFPIECE::STIME 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR3 'PERFPIECE::RUSAGE 'PERFPIECE::STIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.

; --> LET PERFPIECE::STIME CFFI:FOREIGN-SLOT-VALUE 
; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER #:PTR3 16)
;                              'PERFPIECE::TIMEVAL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIMEVAL)) or (:STRUCT TIMEVAL) instead.

;     (VALUES
;      (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::SEC PERFPIECE::USEC) PERFPIECE::UTIME
;                                PERFPIECE::TIMEVAL)
;        (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC))
;      (CFFI:WITH-FOREIGN-SLOTS ((PERFPIECE::SEC PERFPIECE::USEC) PERFPIECE::STIME
;                                PERFPIECE::TIMEVAL)
;        (+ (* PERFPIECE::SEC 1000000) PERFPIECE::USEC))
;      PERFPIECE::MINFLT PERFPIECE::MAJFLT PERFPIECE::NVCSW PERFPIECE::NIVCSW)
; --> PERFPIECE::MINFLT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR3 'PERFPIECE::RUSAGE 'PERFPIECE::MINFLT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT RUSAGE) instead.

; --> PERFPIECE::MAJFLT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR3 'PERFPIECE::RUSAGE 'PERFPIECE::MAJFLT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RUSAGE)) or (:STRUCT