                           (concat "{" dired-directory "}"))
                          (t
                           "[no file]")))))
-)
+  (desktop-save-mode 1)
+  )
 ;;;; general lisp things
 
 

  (put 'dohash 'lisp-indent-function 'defun)
  (put 'doitems 'lisp-indent-function 'defun)
  )




  (require 'slime-autoloads)
  (setq inferior-lisp-program "/usr/local/bin/sbcl")
  (add-to-list 'load-path "/usr/local/bin/sbcl")
  (add-hook 'slime-mode-hook 
	    '(lambda () 
	       (unless (get-process "SLIME Lisp")
		 (slime))))
  (add-hook 'inferior-lisp-mode-hook 
	    (lambda () (inferior-slime-mode t)))
)


;;;; my specific list things
