Waveform & Waveform Family

Use drIsWaveform & famIsFamily

(defun fcnName (wave_x @rest wl)
        (let (a b c)
                (cond
                        ((drIsWaveform wave_x)
                                blah blah
                                blah blah
                        ) ; is waveform
                        ((famIsFamily wave_x)
                                (apply 'famMap (constar 'fcnName wave_x wl))
                        ) ; is family
                        (t
                                (error "can't handle %L\n" wave_x)
                        ) ; not a waveform and not a family of waveform
                ) ; cond
        ) ; let
) ; defun