anchor.diff:    (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*))
  +  (if (not (null *display-list-id*))
  +      (gl:call-list *display-list-id*))
     
     (glut:swap-buffers))
   
  
positive.code:    (y :initarg :y :initform 0.0 :accessor y :documentation "y-axis value")
     (z :initarg :z :initform 0.0 :accessor z :documentation "z-axis value")))
  
  (defconstant +exit+ 0)
  (defconstant +fullscreen+ 1)
  
  
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))
  
  