(handler-bind ((error #'(lambda (condition)
                            (push (format nil "~a" condition) *queue*)
                            (invoke-restart 'ignore)
                            )))
    ;; (foo a)
    (error "a")
    (error "a")
    (error "a"))