;;; An error occurred in function GROW-CODE-BUFFER:

I'm getting a GROW-CODE-BUFFER error when I try to create a specific 
function.

The function itself looks like this: 

(defun create-object ()
        (setf (ct:cref vertex-arrayf v0 0) -1.0)
        (setf (ct:cref vertex-arrayf v0 1) -1.0)
        (setf (ct:cref vertex-arrayf v0 2) 1.0)

	(format t "v0 [~A, ~A, ~A]~%" 
	(ct:cref vertex-arrayf v0 0)
	(ct:cref vertex-arrayf v0 1)
	(ct:cref vertex-arrayf v0 2))
	        
        (setf (ct:cref vertex-arrayf v1 0) 1.0)
        (setf (ct:cref vertex-arrayf v1 1) -1.0)
        (setf (ct:cref vertex-arrayf v1 2) 1.0)

... repeat until v7

And I get the following from CCL

...

;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V0 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V1 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V2 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V3 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V4 assumed special
;;; Warning: Symbol V5 assumed special
;;; Warning: Symbol V5 assumed special
;;; An error occurred in function GROW-CODE-BUFFER:
;;; Error: not implemented




------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/W7NydA/hdqFAA/VygGAA/SyjtlB/TM
---------------------------------------------------------------------~->

To unsubscribe from this group, send an email to:
[email protected]

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/