Correct prove usage.

chapter-1/euclid.lisp

 
 ;; Tests
 (ql:quickload "prove")
-(prove::plan 3)
+(prove::plan 5)
 (prove::is (euclid 235 95) 5)
 (prove::is (euclid 119 544) 17)
 (prove::is (euclid -5 94) nil)
 (prove::is (euclid 94 -5) nil)
 (prove::is (euclid -94 -5) nil)
+(prove::finalize)