;;What I typed: see below

;;I expected to have SLIME loaded in one window and then I would be automatically switched to main.scm in the other (thus this means that I expected to see the contents of the file main.scm
;;I observed that SLIME is loaded and stays rendered on my screen and I also see *scratch*, and not the contents of main.scm. 

;;This is all the relevant code
(eval-after-load 'slime48
  '(progn (add-hook 'slime-mode-hook
		    (lambda ()
		      (if (and (boundp 'scheme48-package)
			       scheme48-package)
			  (setq slime-buffer-package scheme48-package))))

	  (defun slime-init-output-buffer (connection)
  (with-current-buffer (slime-output-buffer t)
    (setq slime-buffer-connection connection)
    (setq slime-repl-directory-stack '())
    (setq slime-repl-package-stack '())
    (slime-repl-update-banner)))

(defslime-repl-shortcut slime-repl-push-directory
    ("push-directory" "+d" "pushd")
  (:handler (lambda (directory)
              (interactive
               (list (read-directory-name
                      "Push directory: "
                      (slime-eval '(swank:default-directory))
                      nil nil "")))
              (push (slime-eval '(swank:default-directory))
                    slime-repl-directory-stack)
              (slime-set-default-directory directory)))
  (:one-liner "Save the current directory and set it to a new one."))

(defslime-repl-shortcut slime-repl-pop-directory
    ("pop-directory" "-d" "popd")
  (:handler (lambda ()
              (interactive)
              (if (null slime-repl-directory-stack)
                  (message "Directory stack is empty.")
                  (slime-set-default-directory
                   (pop slime-repl-directory-stack)))))
  (:one-liner "Restore the last saved directory."))

(defslime-repl-shortcut slime-repl-push-package ("push-package" "+p")
  (:handler (lambda (package)
              (interactive (list (slime-read-package-name "Package: ")))
              (push (slime-lisp-package) slime-repl-package-stack)
              (slime-repl-set-package package)))
  (:one-liner "Save the current package and set it to a new one."))

(defslime-repl-shortcut slime-repl-pop-package ("pop-package" "-p")
  (:handler (lambda ()
              (interactive)
              (if (null slime-repl-package-stack)
                  (message "Package stack is empty.")
                  (slime-repl-set-package
                   (pop slime-repl-package-stack)))))
  (:one-liner "Restore the last saved package."))

(print "bar")
(print "bar")
(print "bar")
(print "bar")
(split-window)
(find-file "main.scm")
(print "bar")
(print "bar")
(print "bar")
(print "bar")
(print "bar")
(print "bar")


))