| Paste number 22497: | Unexpected behaviour |
| Pasted by: | fasta |
| When: | 2 years, 11 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+HCX |
| Channel: | None |
| Paste contents: |
;;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")
))This paste has no annotations.