(defun load-diag ()
  (load "chop:l.lambda-diag;lmi-debug-methods")
  (load "chop:l.lambda-diag;macros-and-variables")
  (load "chop:l.lambda-diag;rack-definitions")
  (load "chop:l.lambda-diag;path")
  (load "chop:l.lambda-diag;lambda-setup-window")
  (load "chop:l.lambda-diag;diag-window")
  )