anchor.diff:  
   (define (gettimeofday) (syscall 96 #f #f #f))
   
  +(define Context (gl:Create "7. Newton"))
  +
  +
  +
  +
   (define $ (or
   ;   (dlopen "/home/uri/Desktop/Otus Lisp/src/tutorial/newton-dynamics/coreLibrary_300/projects/posix64/libNewton.so")
      (dlopen "newton")
  
positive.code:          (glMultMatrixf matrix)
           (glCube)
           (glPopMatrix)) cubes))
  
     ; return new parameter list:
     (list
  
negative.code: 
  (define type-callback 61)
  (define type-float* (vm:or type-float #x40))
  (define NewtonWorld* type-vptr)
  (define dFloat* (vm:or type-float #x40))
  
  (define NewtonWorldGetVersion (dlsym $ type-fix+ "NewtonWorldGetVersion"))
  (define NewtonWorldFloatSize  (dlsym $ type-fix+ "NewtonWorldFloatSize"))
  