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

The length of code-buffer is #x1000, on no longer functions
may be compiled.

ct:cref is expanded as macro, so it takes a lot of space.
In your example every v_i requires #x26e bytes, so the total
length is too large.

You can define a function create-point and call it 8 times:

 (create-point v0 -1.0 -1.0 1.0)
... repeat until v7

Pavel Grozman

> -----Ursprungligt meddelande-----
> FrÃ¥n: lcluke [mailto:[email protected]]
> Skickat: den 4 april 2003 11:04
> Till: [email protected]
> Ämne: [cormanlisp] ;;; 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
>
>
>
>
>
> 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/
>
>
>


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/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/