(format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
(sb-ext:exit :code 1))
(format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
(format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
(sb-ext:exit :code 1))
(format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)