   (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)))
  (setq inferior-lisp-program "/usr/local/bin/sbcl"
       slime-contribs '(slime-fancy))i
  )


;;;; my specific list things

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


