/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.531 by heller, Sat Feb 9 18:47:05 2008 UTC revision 1.532 by heller, Sat Feb 16 19:26:23 2008 UTC
# Line 23  Line 23 
23             #:inspect-in-emacs             #:inspect-in-emacs
24             #:print-indentation-lossage             #:print-indentation-lossage
25             #:swank-debugger-hook             #:swank-debugger-hook
            #:run-after-init-hook  
26             #:emacs-inspect             #:emacs-inspect
27             ;;#:inspect-slot-for-emacs             ;;#:inspect-slot-for-emacs
28             ;; These are user-configurable variables:             ;; These are user-configurable variables:
# Line 182  Backend code should treat the connection Line 181  Backend code should treat the connection
181  (defvar *after-init-hook* '()  (defvar *after-init-hook* '()
182    "Hook run after user init files are loaded.")    "Hook run after user init files are loaded.")
183    
 (defun run-after-init-hook ()  
   (run-hook *after-init-hook*))  
   
184    
185  ;;;; Connections  ;;;; Connections
186  ;;;  ;;;
# Line 2291  the filename of the module (or nil if th Line 2287  the filename of the module (or nil if th
2287      (make-pathname :directory `(:relative ,dirname) :defaults defaults)      (make-pathname :directory `(:relative ,dirname) :defaults defaults)
2288      defaults)))      defaults)))
2289    
2290  (defvar *load-path*  (defvar *load-path* '()
   (list (make-pathname :directory (merged-directory "contrib" *load-truename*)  
                        :name nil :type nil :version nil  
                        :defaults *load-truename*))  
2291    "A list of directories to search for modules.")    "A list of directories to search for modules.")
2292    
2293  (defun module-canditates (name dir)  (defun module-canditates (name dir)
# Line 3141  Collisions are caused because package in Line 3134  Collisions are caused because package in
3134    
3135  (add-hook *pre-reply-hook* 'sync-indentation-to-emacs)  (add-hook *pre-reply-hook* 'sync-indentation-to-emacs)
3136    
3137    (defun setup (version load-path)
3138      (setq *swank-wire-protocol-version* version)
3139      (setq *load-path* load-path)
3140      (swank-backend::warn-unimplemented-interfaces)
3141      (run-hook *after-init-hook*))
3142    
3143  ;;; swank.lisp ends here  ;;; swank.lisp ends here

Legend:
Removed from v.1.531  
changed lines
  Added in v.1.532

  ViewVC Help
Powered by ViewVC 1.1.5