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

Diff of /slime/swank-loader.lisp

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

revision 1.80 by heller, Sun Feb 17 08:20:34 2008 UTC revision 1.81 by heller, Wed Feb 20 22:10:38 2008 UTC
# Line 1  Line 1 
1  ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-  ;;;; -*- indent-tabs-mode: nil -*-
2  ;;;  ;;;
3  ;;; swank-loader.lisp --- Compile and load the Slime backend.  ;;; swank-loader.lisp --- Compile and load the Slime backend.
4  ;;;  ;;;
# Line 226  If LOAD is true, load the fasl file." Line 226  If LOAD is true, load the fasl file."
226  (defun init (&key delete reload)  (defun init (&key delete reload)
227    (when (and delete (find-package :swank))    (when (and delete (find-package :swank))
228      (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))      (mapc #'delete-package '(:swank :swank-io-package :swank-backend)))
229    (when (or (not (find-package :swank)) reload)    (cond ((or (not (find-package :swank)) reload)
230      (load-swank))           (load-swank))
231            (t
232             (warn "Not reloading SWANK.  Package already exists.")))
233    (setup))    (setup))

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5