chiark - git - mdw - 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 ;; Shebang.
  27 (set-dispatch-macro-character
  28  #\# #\!
  29  (lambda (stream char arg)
  30    (declare (ignore char arg))
  31    (values (read-line stream))))
  32
  33 ;; Start up swank.
  34 (defun mdw-hacks:crank-swank (&rest #1=#:args)
  35   (let ((#2=#:swank #3=(find-package "SWANK")))
  36     (unless #2#
  37       (load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
  38       (setf #2# #3#))
  39     (set (find-symbol "*GLOBAL-DEBUGGER*" #2#) nil)
  40     (apply (find-symbol "CREATE-SERVER" #2#) #1#)))
  41
  42 #+asdf (setf asdf:*compile-file-failure-behaviour* :warn)
  43
  44 ;; Done.
  45 (pushnew :mdw *features*)
  46 ;;#+(and cmu mp) (mp::startup-idle-and-top-level-loops)