(defun get-signals (obj)
  (declare (optimize (speed 0) (space 0) (debug 3)))
  (remove-if-not
   (lambda (it)
     (format t "~a~%" (getf it 'make-instance))
     (format t "~a~%" (member (getf it 'make-instance) '(sl-signal-binary sl-signal-number sl-signal-binary-lambda sl-signal-number-lambda) :test #'equalp))
     (let ((instance-type (getf it 'make-instance)))
       (member instance-type '(sl-signal-binary sl-signal-number sl-signal-binary-lambda sl-signal-number-lambda)))

     )
         (mapcar (lambda (it) (concatenate 'list (list :name (first it)) (cadr it)))
             (remove-if-not
              (lambda (it)
                (and
                 (listp (cadr it))
                 (equalp 'make-instance (caadr it))))
              (mapcar
               (lambda (slot)
                 (list
                  (c2mop:slot-definition-name slot)
                  (c2mop:slot-definition-initform slot)))
               (c2mop:class-slots (find-class (type-of obj))))))))