```common lisp
(in-package "BASIC-BINARY-IPC.TESTS")

(defmethod asdf:perform ((operation asdf:test-op) (component (eql (asdf:find-system "basic-binary-ipc-tests"))))
  (lisp-unit:run-tests :all "BASIC-BINARY-IPC.TESTS"))
```

Print failures and errors when performing ASDF:TEST-SYSTEM.
user
```common lisp
(in-package "BASIC-BINARY-IPC.TESTS")

(defmethod asdf:perform ((operation asdf:test-op) (component (eql (asdf:find-system "basic-binary-ipc-tests"))))
  (dolist (pkg (list "BASIC-BINARY-IPC.TESTS"))
    (let ((report (lisp-unit:run-tests :all pkg)))
      (print-failures report)
      (print-errors report))))
```
assistant