(cl:defpackage #:mdw-hacks
- (:use #:cl)
- (:export #:crank-swank))
+ (:use #:cl))
(cl:defparameter mdw-hacks::*previous-package* cl:*package*)
(cl:in-package #:mdw-hacks)
(values (read-line stream))))
;; Start up swank.
+(export 'crank-swank)
(defun crank-swank (&rest args)
(let ((swank (find-package "SWANK")))
(unless swank