Subject: bug#8751: 24.0.50; CCL is broken

From: Kazuhiro Ito <[email-masked]>
Date: Sat, 28 May 2011 21:49:35 +0900

Below code raises error "Error in CCL program at 4th code" on trunk.

(progn
  (define-ccl-program ccl-test
    '(1 (loop
	 (read r0)
	 (write-repeat r0))))
  (ccl-execute-on-string 'ccl-test (make-vector 9 0) "_"))

-- 
Kazuhiro Ito