anchor.diff:  
   		   ;;rendering code:
   ;		   (display)
  -		   (setf foo win)
   
   		   ;;live editing enabled:
   		   (arc:update-swank)
  
positive.code:     data))
  
  
  ;; LightingModel enums
  (defconstant +lm-phong-specular+ 0)
  (defconstant +lm-phong-only+ 1)
  (defconstant +lm-blinn-specular+ 2)
  (defconstant +lm-blinn-only+ 3)
  
  
  ;; vector of program-pairs
  (defparameter *programs*
    (make-array 4 :initial-element (make-instance 'program-pairs)))
  
  
negative.code: 	  (glm:vec4->vec3 (glm:mat*vec (glutil:top-ms model-matrix)
  				       world-light-pos)))
  
      
  
      (gl:use-program (the-program p-white-prog))
  