fomus

SBCL 1.4.9.46-c28d6b4 / ASDF 3.3.1

fomus

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/data.lisp
; in: DEFPARAMETER +INSTR-GROUPS+
;     (SORT FOMUS::I #'> :KEY #'CDR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (FIND FOMUS::SY
;           '(:TIMPANI :GLOCKENSPIEL :XYLOPHONE :VIBRAPHONE :MARIMBA :CHIMES
;             :CELESTA))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL SB-C::TEST-FUN)
;                   SB-C::ITEM SB-C::I)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

;     (FIND FOMUS::SY
;           '(:SOPRANO :MEZZO-SOPRANO :CONTRALTO :TENOR :TENOR-8DN :BARITONE :BASS))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL SB-C::TEST-FUN)
;                   SB-C::ITEM SB-C::I)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

;     (FIND FOMUS::SY '(:SOPRANO-CHOIR :ALTO-CHOIR :TENOR-CHOIR :BASS-CHOIR))
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB-KERNEL:%FIND-POSITION 
; --> SB-KERNEL:%FIND-POSITION-IF LET LAMBDA FUNCTION FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL SB-C::TEST-FUN)
;                   SB-C::ITEM SB-C::I)
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a (OR SYMBOL SINGLE-FLOAT DOUBLE-FLOAT RATIONAL), not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/classes.lisp
; in: DEFPRINT-CLASS REST
;     (FOMUS::DEFPRINT-CLASS REST FOMUS::ID FOMUS::PARTID FOMUS::VOICE FOMUS::OFF
;                            FOMUS::DUR FOMUS::MARKS)
; --> DEFMETHOD PROGN EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER PRINT-OBJECT NIL ((FOMUS::X REST) FOMUS::S)
;                                ((DECLARE (TYPE STREAM FOMUS::S))
;                                 (PRINC "#Z" FOMUS::S)
;                                 (IF FOMUS::*PREPEND-FM*
;                                     (FORMAT FOMUS::S "(~A:~A~{ ~S~})"
;                                             (IF #
;                                                 "fm"
;                                                 "FM")
;                                             'REST
;                                             (LIST :ID # :PARTID # :VOICE # :OFF
;                                                   # :DUR # :MARKS ...))
;                                     (PRIN1
;                                      (LIST 'REST :ID # :PARTID # :VOICE # :OFF
;                                            # :DUR # ...)
;                                      FOMUS::S))))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE ID))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE PARTID))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE VOICE))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE OFF))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE DUR))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE MARKS))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE ID))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE PARTID))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE VOICE))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE OFF))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE DUR))
; 
; note: Cannot optimize slot access, inheritance of #<STANDARD-CLASS COMMON-LISP:REST> is not yet finalizable due to forward-referenced superclasses:
;   (SLOT-VALUE X (QUOTE MARKS))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/classes.lisp
; in: DECLAIM (INLINE TIMESIG-OFF MEAS-VOICES)
;     (DECLAIM (INLINE FOMUS:TIMESIG-OFF FOMUS:MEAS-VOICES))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE FOMUS:TIMESIG-OFF FOMUS:MEAS-VOICES)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming FOMUS:TIMESIG-OFF to be INLINE, but 3 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/classes.lisp
; in: DECLAIM (INLINE PART-MEAS)
;     (DECLAIM (INLINE FOMUS:PART-MEAS))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE FOMUS:PART-MEAS) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming FOMUS:PART-MEAS to be INLINE, but 2 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "fomus" "classes">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN GETPROP
;     (DEFUN FOMUS:GETPROP (FOMUS::OBJ FOMUS::PROPID)
;       (DECLARE
;        (TYPE (OR FOMUS:MEAS FOMUS:PART FOMUS:TIMESIG-REPL FOMUS:MARK) FOMUS::OBJ)
;        (TYPE (OR SYMBOL CONS) FOMUS::PROPID))
;       (LET* ((FOMUS::MI (FOMUS::FORCE-LIST FOMUS::PROPID))
;              (FOMUS::LI (LENGTH FOMUS::MI)))
;         (FIND-IF
;          (LAMBDA (FOMUS::X)
;            (DECLARE #)
;            (LET #
;              #))
;          (FOMUS::OBJ-PROPS FOMUS::OBJ))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS:GETPROP
;                    (SB-INT:NAMED-LAMBDA FOMUS:GETPROP
;                        (FOMUS::OBJ FOMUS::PROPID)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE
;                       (TYPE
;                        (OR FOMUS:MEAS FOMUS:PART FOMUS:TIMESIG-REPL FOMUS:MARK)
;                        FOMUS::OBJ)
;                       (TYPE (OR SYMBOL CONS) FOMUS::PROPID))
;                      (BLOCK FOMUS:GETPROP
;                        (LET* (# #)
;                          (FIND-IF # #)))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS::OBJ-PROPS could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN POPPROP
;     (DEFUN FOMUS::POPPROP (FOMUS::OBJ FOMUS::PROPID)
;       (DECLARE
;        (TYPE (OR FOMUS:MEAS FOMUS:PART FOMUS:TIMESIG-REPL FOMUS:MARK) FOMUS::OBJ)
;        (TYPE (OR SYMBOL CONS) FOMUS::PROPID))
;       (LET* ((FOMUS::MI (FOMUS::FORCE-LIST FOMUS::PROPID))
;              (FOMUS::LI (LENGTH FOMUS::MI))
;              (FOMUS::F (FIND-IF # #)))
;         (FOMUS::POPPROP-AUX FOMUS::OBJ
;          (REMOVE FOMUS::F (FOMUS::OBJ-PROPS FOMUS::OBJ) :TEST #'EQUAL))
;         FOMUS::F))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::POPPROP
;                    (SB-INT:NAMED-LAMBDA FOMUS::POPPROP
;                        (FOMUS::OBJ FOMUS::PROPID)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE
;                       (TYPE
;                        (OR FOMUS:MEAS FOMUS:PART FOMUS:TIMESIG-REPL FOMUS:MARK)
;                        FOMUS::OBJ)
;                       (TYPE (OR SYMBOL CONS) FOMUS::PROPID))
;                      (BLOCK FOMUS::POPPROP
;                        (LET* (# # #)
;                          (FOMUS::POPPROP-AUX FOMUS::OBJ #)
;                          FOMUS::F))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS::POPPROP-AUX could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN MAKE-CHORD
;     (DEFUN FOMUS::MAKE-CHORD (LIST &OPTIONAL FOMUS::VOICE)
;       (DECLARE (TYPE LIST LIST)
;                (TYPE (OR NULL (INTEGER 1)) FOMUS::VOICE))
;       (MULTIPLE-VALUE-BIND (FOMUS::N FOMUS::R)
;           (FOMUS::SPLIT-LIST (SORT LIST #'FOMUS::SORT-OFFDUR) #'FOMUS:NOTEP)
;         (IF FOMUS::N
;             (LET (#)
;               (FOMUS:COPY-EVENT # :VOICE # :MARKS # :NOTE # :TIELT # :TIERT #))
;             (FOMUS:COPY-EVENT (FIRST FOMUS::R) :MARKS
;                               (FOMUS:COMBMARKS FOMUS::R)))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::MAKE-CHORD
;                    (SB-INT:NAMED-LAMBDA FOMUS::MAKE-CHORD
;                        (LIST &OPTIONAL FOMUS::VOICE)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE LIST LIST)
;                               (TYPE (OR NULL #) FOMUS::VOICE))
;                      (BLOCK FOMUS::MAKE-CHORD
;                        (MULTIPLE-VALUE-BIND (FOMUS::N FOMUS::R)
;                            (FOMUS::SPLIT-LIST # #'FOMUS:NOTEP)
;                          (IF FOMUS::N
;                              #
;                              #)))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:COPY-EVENT could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN CLEAN-TIES
;     (DEFUN FOMUS::CLEAN-TIES (FOMUS::PTS)
;       (DECLARE (TYPE LIST FOMUS::PTS))
;       (LOOP FOMUS::FOR FOMUS::P FOMUS::OF-TYPE FOMUS:PARTEX FOMUS::IN FOMUS::PTS
;             DO (LOOP FOMUS::FOR FOMUS::M FOMUS::OF-TYPE FOMUS:MEAS FOMUS::IN (FOMUS:PART-MEAS
;                                                                               FOMUS::P)
;                      DO (LOOP FOMUS::FOR FOMUS::E FOMUS::OF-TYPE (OR FOMUS:NOTEEX
;                                                                      FOMUS:RESTEX) FOMUS::IN (FOMUS:MEAS-EVENTS
;                                                                                               FOMUS::M)
;                               WHEN (AND # #)
;                               DO (MAPC # FOMUS::+MARKS-FIRST-TIE+)
;                               WHEN ...)) (FOMUS::PRINT-DOT)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::CLEAN-TIES
;                    (SB-INT:NAMED-LAMBDA FOMUS::CLEAN-TIES
;                        (FOMUS::PTS)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE LIST FOMUS::PTS))
;                      (BLOCK FOMUS::CLEAN-TIES
;                        (LOOP FOMUS::FOR FOMUS::P FOMUS::OF-TYPE FOMUS:PARTEX FOMUS::IN FOMUS::PTS
;                              DO (LOOP FOMUS::FOR FOMUS::M FOMUS::OF-TYPE FOMUS:MEAS FOMUS::IN #
;                                       DO #) (FOMUS::PRINT-DOT)))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:RMPROP could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN SEP-STAVES
;     (DEFUN FOMUS::SEP-STAVES (FOMUS::PARTS)
;       (DECLARE (TYPE LIST FOMUS::PARTS))
;       (LOOP FOMUS::FOR FOMUS::P FOMUS::OF-TYPE FOMUS:PARTEX FOMUS::IN FOMUS::PARTS
;             IF (FOMUS:PART-EVENTS FOMUS::P)
;             NCONC (MAPCAR
;                    (LAMBDA (FOMUS::E)
;                      (DECLARE #)
;                      (FOMUS:COPY-PART FOMUS::P :EVENTS #))
;                    (FOMUS::SPLIT-INTO-GROUPS (FOMUS:PART-EVENTS FOMUS::P)
;                                              #'FOMUS::EVENT-STAFF)) FOMUS::ELSE ...))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::SEP-STAVES
;                    (SB-INT:NAMED-LAMBDA FOMUS::SEP-STAVES
;                        (FOMUS::PARTS)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE LIST FOMUS::PARTS))
;                      (BLOCK FOMUS::SEP-STAVES
;                        (LOOP FOMUS::FOR FOMUS::P FOMUS::OF-TYPE FOMUS:PARTEX FOMUS::IN FOMUS::PARTS
;                              IF (FOMUS:PART-EVENTS FOMUS::P)
;                              NCONC (MAPCAR # #) FOMUS::ELSE ...))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:COPY-PART could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN GET-TIMESIGS-AUX
;     (DEFUN FOMUS::GET-TIMESIGS-AUX (FOMUS::TIMESIGS FOMUS::PARTS FOMUS::FUN)
;       (DECLARE (TYPE LIST FOMUS::TIMESIGS FOMUS::PARTS)
;                (TYPE (FUNCTION (FOMUS:PART FOMUS:TIMESIG-REPL # #) T)
;                 FOMUS::FUN))
;       (LET ((FOMUS::MX 0)
;             (FOMUS::MXO
;              (FOMUS::MLOOP FOMUS::FOR FOMUS::P FOMUS::OF-TYPE FOMUS:PART
;                            FOMUS::IN FOMUS::PARTS FOMUS::MAXIMIZE #)))
;         (FLET ((FOMUS::UT #
;                  #
;                  #))
;           (LOOP FOMUS::WITH FOMUS::DTS = (FOMUS::MAKE-TIMESIGEX*
;                                           FOMUS::*DEFAULT-TIMESIG*)
;                 FOMUS::FOR FOMUS::P FOMUS::IN FOMUS::PARTS
;                 AND (FOMUS::LO . FOMUS::AT) FOMUS::IN ...))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::GET-TIMESIGS-AUX
;                    (SB-INT:NAMED-LAMBDA FOMUS::GET-TIMESIGS-AUX
;                        (FOMUS::TIMESIGS FOMUS::PARTS FOMUS::FUN)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE LIST FOMUS::TIMESIGS FOMUS::PARTS)
;                               (TYPE (FUNCTION # T) FOMUS::FUN))
;                      (BLOCK FOMUS::GET-TIMESIGS-AUX
;                        (LET (# #)
;                          (FLET #
;                            #)))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:COPY-TIMESIG could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFUN MAKE-PARTEX*
;     (DEFUN FOMUS::MAKE-PARTEX* (FOMUS:PART FOMUS::USERORD FOMUS::EVS FOMUS::TS)
;       (DECLARE (TYPE FOMUS:PART FOMUS:PART)
;                (TYPE (INTEGER 0) FOMUS::USERORD)
;                (TYPE LIST FOMUS::EVS FOMUS::TS))
;       (LET ((FOMUS::PP
;              (FOMUS:MAKE-PARTEX FOMUS:PART :NAME # :ABBREV # :OPTS # :INSTR #
;                                 :PROPS # ...)))
;         (SETF (FOMUS:PART-EVENTS FOMUS::PP) (SORT # #'FOMUS::SORT-OFFDUR))
;         FOMUS::PP))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::MAKE-PARTEX*
;                    (SB-INT:NAMED-LAMBDA FOMUS::MAKE-PARTEX*
;                        (FOMUS:PART FOMUS::USERORD FOMUS::EVS FOMUS::TS)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE FOMUS:PART FOMUS:PART)
;                               (TYPE (INTEGER 0) FOMUS::USERORD)
;                               (TYPE LIST FOMUS::EVS FOMUS::TS))
;                      (BLOCK FOMUS::MAKE-PARTEX*
;                        (LET (#)
;                          (SETF #)
;                          FOMUS::PP))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS::MAKE-EVENTEX* could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFMETHOD MAKE-TIMESIGEX* (TIMESIG)
;     (/ (CAR (FOMUS:TIMESIG-TIME FOMUS::TS)) 3)
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (/ (FOMUS::BEAT-DIVISION FOMUS::TS))
; ==>
;   (/ 1 (THE NUMBER (FOMUS::BEAT-DIVISION FOMUS::TS)))
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The second argument is a NUMBER, not a INTEGER.

;     (FOMUS::ROUNDTO (FOMUS:TIMESIG-OFF FOMUS::TS)
;                     (/ (FOMUS::BEAT-DIVISION FOMUS::TS)))
; --> BLOCK * FOMUS::ROUNDINT 
; ==>
;   (/ FOMUS::I FOMUS::PREC)
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER.The second argument is a REAL, not a INTEGER.

; --> BLOCK 
; ==>
;   (* (FOMUS::ROUNDINT (/ FOMUS::I FOMUS::PREC)) FOMUS::PREC)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a REAL, not a INTEGER.

; --> BLOCK * FOMUS::ROUNDINT BLOCK NTH-VALUE MULTIPLE-VALUE-BIND LET TRUNCATE 
; --> TRUNCATE IF 
; ==>
;   (< FOMUS::I 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; ==>
;   (+ FOMUS::I 1/2)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a REAL, not a RATIONAL.

; --> BLOCK * FOMUS::ROUNDINT BLOCK NTH-VALUE MULTIPLE-VALUE-BIND LET TRUNCATE 
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (> FOMUS::X 1)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (FOMUS::ROUNDTO (FOMUS:TIMESIG-OFF FOMUS::TS)
;                     (/ (FOMUS::BEAT-DIVISION FOMUS::TS)))
; --> BLOCK * FOMUS::ROUNDINT 
; ==>
;   (/ FOMUS::I FOMUS::PREC)
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 12) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 19) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).

; --> BLOCK * FOMUS::ROUNDINT BLOCK NTH-VALUE MULTIPLE-VALUE-BIND LET TRUNCATE 
; --> TRUNCATE IF 
; ==>
;   (< FOMUS::I 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; --> BLOCK 
; ==>
;   (* (FOMUS::ROUNDINT (/ FOMUS::I FOMUS::PREC)) FOMUS::PREC)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a REAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/util.lisp
; in: DEFMETHOD MAKE-TIMESIGEX* (TIMESIG-REPL)
;     (/ (CAR (FOMUS:TIMESIG-TIME FOMUS::TS)) 3)
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (> FOMUS::X 1)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (DEFMETHOD FOMUS::MAKE-TIMESIGEX* ((FOMUS::TS FOMUS:TIMESIG-REPL))
;       (LET ((FOMUS::NT
;              (FOMUS:COPY-TIMESIG-REPL FOMUS::TS :COMP # :DIV # :TIME # :PROPS #)))
;         (FOMUS::TIMESIG-CHECK FOMUS::NT)
;         FOMUS::NT))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; ==>
;   (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'FOMUS::MAKE-TIMESIGEX* 'NIL
;                           (LIST (FIND-CLASS 'FOMUS:TIMESIG-REPL)) '(FOMUS::TS)
;                           (LIST* :FUNCTION
;                                  (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
;                                    (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION
;                                     SB-PCL::MF
;                                     (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION
;                                      SB-PCL::FMF '#))
;                                    SB-PCL::MF)
;                                  '(SB-PCL::PLIST (:ARG-INFO (1))
;                                    SB-PCL::SIMPLE-NEXT-METHOD-CALL T))
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:COPY-TIMESIG-REPL could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "fomus" "util">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/accidentals.lisp
; in: DEFUN ACC-NOKEY-CAUTACCS
;     (DEFUN FOMUS::ACC-NOKEY-CAUTACCS (FOMUS:MEAS)
;       (DECLARE (TYPE LIST FOMUS:MEAS))
;       (LOOP FOMUS::WITH FOMUS::R FOMUS::OF-TYPE (INTEGER -12 12) = 0
;             AND FOMUS::AS = (MAKE-ARRAY 128 :ELEMENT-TYPE
;                                         '(OR NULL (CONS # FOMUS:NOTEEX))
;                                         :INITIAL-ELEMENT NIL)
;             AND ...)
;       (FOMUS::PRINT-DOT))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'FOMUS::ACC-NOKEY-CAUTACCS
;                    (SB-INT:NAMED-LAMBDA FOMUS::ACC-NOKEY-CAUTACCS
;                        (FOMUS:MEAS)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (DECLARE (TYPE LIST FOMUS:MEAS))
;                      (BLOCK FOMUS::ACC-NOKEY-CAUTACCS
;                        (LOOP FOMUS::WITH FOMUS::R FOMUS::OF-TYPE (INTEGER -12
;                                                                   12) = 0
;                              AND FOMUS::AS = (MAKE-ARRAY 128 :ELEMENT-TYPE '#
;                                                          :INITIAL-ELEMENT NIL)
;                              AND ...)
;                        (FOMUS::PRINT-DOT))))
; 
; caught STYLE-WARNING:
;   Call to FOMUS:ADDPROP could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/fomus/ca319a5373898758cccfa40c4a37feef523d2a1a/fomus-20180622-svn/accidentals.lisp
; in: DEFUN POSTACCS
;     (FOMUS::ACC-NOKEY-POSTACCS (COPY-LIST (SORT FOMUS::EV #'FOMUS::SORT-OFFDUR)))
; 
; caught WARNING:
;   Constant NIL conflicts with its asserted type CONS.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "fomus" "accidentals">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1003316913}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1003316913}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1003316913}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fomus" "accidentals">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fomus" "accidentals">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fomus" "accidentals">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "fomus" "accidentals">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058E8BD3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058E8BD3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fomus"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fomus">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "fomus">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "fomus")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "fomus") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058E3B0B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100589FB3B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "fomus") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "fomus" "fomus")
23: (DEPCHECK::MAGIC "fomus" "fomus" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PzKTG0G1/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "fomus" "fomus" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PzKTG0G1/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-PzKTG0G1/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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