(defun old-main ()
  (load "~/quicklisp/setup.lisp")
  (funcall (intern "QUICKLOAD"
                   (find-package :QL))
           :swank)
  #+nil
  (funcall (intern "CREATE-SERVER"
                   (find-package :swank))
           :port 5060
            :dont-close t)
 
   (trivial-main-thread:with-body-in-main-thread (:blocking t)
     #+sbcl
     (sb-int:set-floating-point-modes :traps '())
 
     [#@NSAutoreleasePool @(new)]
     [#@NSApplication @(sharedApplication)]
 
     (format t "~&app: ~s~%" objc-runtime::ns-app)
     #+nil
     [objc-runtime::ns-app @(setActivationPolicy) :int 0]
 
     (let* ((application-name [[#@NSProcessInfo @(processInfo)] @(processName)]))
       (let* ((menubar [[#@NSMenu @(new)] @(autorelease)])
              (app-menu-item [[#@NSMenuItem @(new)] @(autorelease)])
              (app-menu [[#@NSMenu @(new)] @(autorelease)])
              (quit-name @"Quit")
              (key @"q")
              (quit-menu-item
                [[[#@NSMenuItem @(alloc)]
                  @(initWithTitle:action:keyEquivalent:) :pointer quit-name :pointer @(terminate?) :string key]
                 @(autorelease)]))
         [menubar @(addItem:) :pointer app-menu-item]
         [app-menu @(addItem:) :pointer quit-menu-item]
         [app-menu-item @(setSubmenu:) :pointer app-menu]
         [objc-runtime::ns-app @(setMainMenu:) :pointer menubar] )
 
       (setf (main-view *application-shim*)
             [#@NSStackView @(stackViewWithViews:) :pointer [[#@NSArray @(alloc)] @(init)]])
       (with-point (p (20 20))
         (let* ((foreign-rect (make-rect 10 10 120 120))
                (the-window (init-window [#@NSWindow @(alloc)] foreign-rect 1 2 nil)))
           
           [(value-for-key the-window "contentView") @(addSubview:) :pointer (main-view *application-shim*)]
           [the-window @(cascadeTopLeftFromPoint:) :pointer p]
           [the-window @(setTitle:) :pointer application-name]
           [the-window @(makeKeyAndOrderFront:) :pointer (cffi:null-pointer)]
           [ objc-runtime::ns-app @(activateIgnoringOtherApps:) :boolean t]
           [ objc-runtime::ns-app @(run)])))))