fiddlerwoaroof/dotfiles - Change T34RYYCC5CFE6BR46F65ZLCBSS7235VXNDARF54Z5WRICK3PNADQC

chore(emacs): cleanup slime configuration

Created by Edward on November 7, 2021

T34RYYCC5CFE6BR46F65ZLCBSS7235VXNDARF54Z5WRICK3PNADQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]
Deletion in emacs.d/lisp/configurations/slime-conf.el at line 100 [5.171]
B:BD[5.5548] → [5.5548:5549]
Deletion in emacs.d/lisp/configurations/slime-conf.el at line 105 [5.171]
B:BD[5.5623] → [5.5623:5625]

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 152 [5.171]

B:BD[6.1914] → [6.1914:2069]

    (let ((val (assoc id passwords)))
      (cdr
       (if val val
         (car (push (cons id (read-passwd prompt))
                    passwords))))))

[6.1914]

[6.2069]

               (let ((val (assoc id passwords)))
                 (cdr
                  (if val val
                    (car (push (cons id (read-passwd prompt))
                               passwords))))))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 161 [5.171]

B:BD[7.294] → [7.294:484]

B:BD[7.484] → [8.211:336]

      (abcl  ("abcl"))
      (lw  ("lw"))
      (ccl ("ccl"))
      (clisp ("clisp"))
      (cmucl ("cmucl" "-quiet"))
      (ecl   ("ecl"))
      ;;(mkcl  ("mkcl"))
      ;;(xcl   ("xcl"))
      (sbcl  ("sbcl" "--dynamic-space-size" "8192"))
      (sbcl-m1  ("~/sbcl-m1/bin/sbcl" "--dynamic-space-size" "8192"))))

[7.294]

[9.184]

     (abcl  ("abcl"))
     (lw  ("lw"))
     (ccl ("ccl"))
     (clisp ("clisp"))
     (cmucl ("cmucl" "-quiet"))
     (ecl   ("ecl"))
     ;;(mkcl  ("mkcl"))
     ;;(xcl   ("xcl"))
     (sbcl  ("sbcl" "--dynamic-space-size" "8192"))
     ))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 237 [5.171]

B:BD[10.3726] → [10.3726:4250]

    (:handler (lambda ()
                (interactive)
                (let ((system-files (fwoar--get-asds)))
                  (slime-eval-async (cons 'cl:progn
                                          (mapcar (lambda (it)
                                                    `(cl:progn (asdf:load-asd ,it) ,it))
                                                  system-files))
                    (lambda (r)
                      (message "Loading ASDs done: %s" r))))))
    (:one-liner "Load asd for current project"))

[10.3726]

[11.183]

                          (:handler (lambda ()
                                      (interactive)
                                      (let ((system-files (fwoar--get-asds)))
                                        (slime-eval-async (cons 'cl:progn
                                                                (mapcar (lambda (it)
                                                                          `(cl:progn (asdf:load-asd ,it) ,it))
                                                                        system-files))
                                          (lambda (r)
                                            (message "Loading ASDs done: %s" r))))))
                          (:one-liner "Load asd for current project"))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 256 [5.171]

B:BD[10.4328] → [10.4328:4944]

             (:handler (lambda ()
                         (interactive)
                         (let ((system-files (fwoar--get-asds)))
                           (slime-eval-async (cons 'cl:progn
                                                   (mapcar (lambda (it)
                                                             `(cl:progn (asdf:load-asd ,it) ,it))
                                                           system-files))
                             (lambda (r)
                               (message "Loading ASDs done: %s" r))))))
             (:one-liner "Load asd for current project"))))

[10.4328]

                                   (:handler (lambda ()
                                               (interactive)
                                               (let ((system-files (fwoar--get-asds)))
                                                 (slime-eval-async (cons 'cl:progn
                                                                         (mapcar (lambda (it)
                                                                                   `(cl:progn (asdf:load-asd ,it) ,it))
                                                                                 system-files))
                                                   (lambda (r)
                                                     (message "Loading ASDs done: %s" r))))))
                                   (:one-liner "Load asd for current project"))))