Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
;; This file: ;; http://angg.twu.net/.sbclrc.html ;; http://angg.twu.net/.sbclrc ;; (find-angg ".sbclrc") ;; Author: Eduardo Ochs <eduardoochs@gmail.com> ;; ;; (defun e () (interactive) (find-angg ".sbclrc")) ;; (load #P"~/quicklisp/setup.lisp") ;; (ql:quickload :slynk) ;; (slynk:create-server :port 56789 :dont-close t) ;; ;; (find-es "lisp" "quicklisp") ;; ;; (find-angg "quicklisp/") ;; ;; (find-angg "quicklisp/setup.lisp") ;; ;; ;; ;;; The following lines added by ql:add-to-init-file: ;; #-quicklisp ;; (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" ;; (user-homedir-pathname)))) ;; (when (probe-file quicklisp-init) ;; (load quicklisp-init))) ;; (defun my-load-asdf () ;; (load "/home/edrx/quicklisp/asdf.lisp") ;; (load "/home/edrx/quicklisp/setup.lisp")) ;; (find-fline "~/LOGS/2023jan09.emacs") ;; (find-fline "~/quicklisp/") ;; (find-fline "~/quicklisp/asdf.lisp") ;; (find-fline "~/quicklisp/setup.lisp") ;; (find-fline "~/quicklisp/setup.lisp" "(ensure-asdf-loaded)") (defun my-require-asdf () (or (member :asdf *features*) (load "/home/edrx/quicklisp/asdf.lisp"))) (defun my-require-quicklisp-setup () (or (member :quicklisp *features*) (load "/home/edrx/quicklisp/setup.lisp"))) ;; (member :setup *features*) ;; (member :quicklisp *features*) ;; # (find-sh "locate asdf.lisp") ;; /home/edrx/quicklisp/asdf.lisp #| • (eepitch-shell) • (eepitch-kill) • (eepitch-shell) sbcl --no-sysinit (load "/home/edrx/quicklisp/asdf.lisp") (load "/home/edrx/quicklisp/setup.lisp") (member :asdf *features* :test #'eq) (member :asdf *features*) * (eepitch-sbcl) * (eepitch-kill) * (eepitch-sbcl) (my-require-asdf) (my-require-quicklisp-setup) (macroexpand '#-quicklisp (foo)) (asdf:load-system :slynk) get SLYNK all brought in <Catie> Then you'll want to (slynk:create-server :port $PORT :dont-close t) to start up the server, and from Emacs do M-x sly-connect and give it $PORT #-quicklisp (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) (load ".sbclrc") |# ;; Local Variables: ;; coding: utf-8-unix ;; mode: lisp ;; End: