Add a compile-bundle-op test

[Ambrevar]

A similar error occurred in the past when I tried to package serapeum for Guix.
The fix was in the .asd.

; file: /gnu/store/spzi46n7wgmd3k64m7q6nrbd43qa0z0c-sbcl-serapeum-0.0.0-1.6aba6d5/share/common-lisp/sbcl-source/serapeum/sequences.lisp
; in: DEFSUBST SINGLE
;     (SERAPEUM:DEFSUBST SERAPEUM:SINGLE
;         (SERAPEUM::SEQ)
;       "Is SEQ a sequence of one element?"
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (AND SERAPEUM::SEQ (ENDP (CDR SERAPEUM::SEQ)))
;         (= (LENGTH SERAPEUM::SEQ) 1)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SERAPEUM:SINGLE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SERAPEUM:SINGLE to be INLINE, but 4 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.

; compiling (DEFTYPE SINGLE ...)
; compiling (DEFUN ONLY-ELT ...)
; compiling (DEFUN ROTATION ...)
; compiling (DEFUN PARTITION ...)
; compiling (DEFUN PARTITIONS ...)
; compiling (DEFCONSTRUCTOR AGROUP ...)
; file: /gnu/store/spzi46n7wgmd3k64m7q6nrbd43qa0z0c-sbcl-serapeum-0.0.0-1.6aba6d5/share/common-lisp/sbcl-source/serapeum/sequences.lisp
; in: DEFCONSTRUCTOR AGROUP
;     (SERAPEUM:DEFCONSTRUCTOR SERAPEUM::AGROUP
;       "Auxiliary data structure for `assort'. A pair of an exemplar (to
;   compare against) and a bucket of matching items. Note that while the
;   agroup is immutable, the bucket itself is mutable."
;       (SERAPEUM::EXEMPLAR T)
;       (SERAPEUM::BUCKET T))
; --> PROGN 
; ==>
;   (SERAPEUM:DEFSTRUCT-READ-ONLY (SERAPEUM::AGROUP
;                                  (:CONSTRUCTOR SERAPEUM::AGROUP
;                                   (SERAPEUM::EXEMPLAR SERAPEUM::BUCKET))
;                                  (:CONC-NAME SERAPEUM::AGROUP-)
;                                  (:PREDICATE NIL)
;                                  (:PRINT-FUNCTION
;                                   (LAMBDA
;                                       (SERAPEUM::OBJECT STREAM SERAPEUM::DEPTH)
;                                     (DECLARE #)
;                                     (LET #
;                                       #
;                                       #))))
;     "Auxiliary data structure for `assort'. A pair of an exemplar (to
; compare against) and a bucket of matching items. Note that while the
; agroup is immutable, the bucket itself is mutable."
;     (SERAPEUM::EXEMPLAR :TYPE T)
;     (SERAPEUM::BUCKET :TYPE T))
; 
; caught ERROR:
;   (during macroexpansion of (DEFSTRUCT-READ-ONLY (AGROUP # ...)
;     ...))
;   The function SERAPEUM:CAR-SAFE is undefined.

What do you think of adding a compile-bundle-op test? :)

[ruricolist]

I think that would be a good idea.

[Ambrevar]

9c5139e fixed it for me. thanks!