mdw@git.distorted.org.uk Git - profile/blob - dot/lisp-init.lisp

   1 (defpackage #:mdw-hacks
   2   (:use #:cl)
   3   (:export #:crank-swank))
   4 (use-package '#:mdw-hacks)
   5
   6 ;; Obtain ASDF from somewhere.
   7 #+sbcl (require :asdf)
   8 #+clisp (let ((*compile-verbose* nil)
   9               (*load-verbose* nil))
  10           (load "/usr/share/common-lisp/source/cl-asdf/asdf.lisp"
  11                 :verbose nil)
  12           (handler-bind ((warning (lambda (cond)
  13                                     (declare (ignore cond))
  14                                     (muffle-warning))))
  15             (funcall (find-symbol "LOAD-SYSTEM" :asdf) :asdf
  16                      :verbose nil)))
  17
  18 ;; Shut up.
  19 (setf *load-verbose* nil)
  20 (setf *compile-verbose* nil)
  21 #+cmu (setf *gc-verbose* nil)
  22
  23 ;; Various fixings.
  24 #+clisp (setf custom:*parse-namestring-ansi* t)
  25
  26 ;; Start up swank.
  27 (defun mdw-hacks:crank-swank (&rest #1=#:args)
  28   (let ((#2=#:swank #3=(find-package "SWANK")))
  29     (unless #2#
  30       (load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
  31       (setf #2# #3#))
  32     (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil)
  33     (apply (find-symbol "CREATE-SERVER" #2#) #1#)))
  34
  35 #+asdf (setf asdf:*compile-file-failure-behaviour* :warn)
  36
  37 ;; Done.
  38 (pushnew :mdw *features*)
  39 ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)