a-nano

I modified test-system. To use `(asdf:test-system :cl-annot).

I replaced from asdf:run-shell-command to uiop:run-program. Because, this kind of warning comes out. ```common-lisp WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function ASDF/BACKWARD-INTERFACE:RUN-SHELL-COMMAND -- please update your code to use a newer API....

Modify run-program and added #+ccl. Please use it if you like.