anchor.diff:        (setf radian (/ (* (* angle i) pi) 180))
         (vector-push-extend (make-instance 'point :x (* radius (cos radian)) :y (* radius (sin radian))) coords))
       
  -    (setf *display-list-id* (gl:new-list *display-list-id* :compile))
  +    (setf *display-list-id* (gl:gen-lists 1))
       
  -    (cond ((not (null *display-list-id*))
  +    (cond ((> *display-list-id* 0)
   	   (gl:new-list *display-list-id* :compile)
   	   (gl:begin :lines)
   	   
  -	   (loop for i from 1 to points do
  -	     (loop for j from i to points do
  +	   (loop for i from 0 to (- points 1) do
  +	     (loop for j from i to (- points 1) do
   	       (gl:vertex (x (elt coords i)) (y (elt coords i)))
   	       (gl:vertex (x (elt coords j)) (y (elt coords j)))))
   	   
  
positive.code:   (gl:rotate (x *ang*) 0.0 1.0 0.0)
    (gl:rotate (y *ang*) 1.0 0.0 0.0)
    
    (if *display-list-id* (gl:call-list *display-list-id*))
    
    (glut:swap-buffers))
  
  
negative.code: (defparameter *anti-alias* nil)
  (defparameter *lighting* nil)
  (defparameter *fullscreen* nil)
  (defparameter *display-list-id* nil)
  
  (defparameter *pos* (make-instance 'point :z (- 3.0)))
  (defparameter *ang* (make-instance 'point))
  (defparameter *init-ang* (make-instance 'point))
  
  