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

Diff of /slime/swank.lisp

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

revision 1.517 by heller, Sat Nov 24 08:04:27 2007 UTC revision 1.518 by heller, Sat Nov 24 08:14:50 2007 UTC
# Line 1442  VERSION: the protocol version" Line 1442  VERSION: the protocol version"
1442                :type ,(machine-type)                :type ,(machine-type)
1443                :version ,(machine-version))                :version ,(machine-version))
1444      :features ,(features-for-emacs)      :features ,(features-for-emacs)
1445        :modules ,*modules*
1446      :package (:name ,(package-name *package*)      :package (:name ,(package-name *package*)
1447                :prompt ,(package-string-for-prompt *package*))                :prompt ,(package-string-for-prompt *package*))
1448      :version ,*swank-wire-protocol-version*))      :version ,*swank-wire-protocol-version*))
# Line 2269  Record compiler notes signalled as `comp Line 2270  Record compiler notes signalled as `comp
2270    
2271  ;;;;; swank-require  ;;;;; swank-require
2272    
2273  (defslimefun swank-require (module &optional filename)  (defslimefun swank-require (modules &optional filename)
2274    "Load the module MODULE."    "Load the module MODULE."
2275    (unless (member (string module) *modules* :test #'string=)    (dolist (module (if (listp modules) modules (list modules)))
2276      (require module (or filename (module-filename module))))      (unless (member (string module) *modules* :test #'string=)
2277    nil)        (require module (or filename (module-filename module)))))
2278      *modules*)
2279    
2280  (defvar *find-module* 'find-module  (defvar *find-module* 'find-module
2281    "Pluggable function to locate modules.    "Pluggable function to locate modules.

Legend:
Removed from v.1.517  
changed lines
  Added in v.1.518

  ViewVC Help
Powered by ViewVC 1.1.5