anchor.diff:  	;; Add objects
   	((@ sail add) mirror)
   	((@ scene add) projection)
  -	;;((@ scene add) absorb-arrow)
  -	)
  +	((@ scene add) absorb-arrow))
         app)
       
       (defun absorb ()
  
positive.code: 	  
  	  )
  	app))
  
      (defun add-booms (app)
        "Add booms"
        (with-slots (sail booms render) app
  
negative.code: (define-easy-handler (lib-js :uri "/js/lib.js") ()
    (setf (content-type*) "text/javascript")
    (ps
      
      (defmacro 3fn (fn &rest args)
        `((@ *three* ,fn) ,@args))
      
      (defun toggle-div (div-id)
        ((@ ($ (+ "#" div-id)) toggle)))
      
      (setf (@ *function prototype method)
  	  (lambda (name func)
  	    (when (not (elt (@ this prototype) name))
  	      (setf (elt (@ this prototype) name) func)
  	      this)))
      
      ((@ *object method) "superior"
       (lambda (name)
         (let* ((that this)
  