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: