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

                          (concat "{" dired-directory "}"))
                         (t
                          "[no file]")))))
)
;;;; general lisp things



  (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
