anchor.diff:  (ql:quickload :clinch)
  +
  +(ql:quickload :clinch-freeimage)
  +(ql:quickload :clinch-cairo)
   
   ;; GLFL for windowing and I/O
   (ql:quickload :cl-glfw)
   
   ;; CL-Cairo for drawing and loading textures...
   (ql:quickload :cl-cairo2)
  +
  +;; thread library
  +(ql:quickload :bordeaux-threads)
   
   ;; String for the Vertex Shader
   ;;   t1    is the texture sampler
  
positive.code: 
  	 ;; create a node under the root node. 
  	 (setf *node1* (make-instance 'clinch::node :parent *root*))
  	 (clinch::translate *node1* -1 0 -2 t)
  	 
  	 ;; create another node another level down.
  	 (setf *node2* (make-instance 'clinch::node :parent *node1*))
  
  	 ;; set the window event handlers 
  	 (glfw:set-window-size-callback 'window-size-callback)
  
negative.code:       ;; End Program
        
        (print "closed")))
  
  
  (defun start-threaded ()
    (bordeaux-threads:make-thread (lambda ()
  				  (start))))
  