anchor.diff:  ;; workaround for windows
   #+win32
   (add-hook *exit-editor-hook*
  -          (lambda ()
  -	    ;; quit slime to exit lem normally (incomplete)
  -            (ignore-errors
  -              (slime-quit))))
  +          ;; quit slime to exit lem normally (incomplete)
  +          'slime-quit*)
   
   (pushnew (cons ".lisp$" 'lisp-mode) *auto-mode-alist* :test #'equal)
   (pushnew (cons ".asd$" 'lisp-mode) *auto-mode-alist* :test #'equal)
  
positive.code:              (lisp-rex '(uiop:quit))
               t)
        (remove-connection *connection*))))
  
  (define-command slime-restart () ()
    (let ((last-command (when *connection*
  
negative.code:                   (sleep 0.5))))
      (unless successp
        (error condition)))
    (add-hook *exit-editor-hook* 'slime-quit*))
  
  (defun slime-1 (command)
    (unless command
  