;; 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)

(defun my-package-names ()
  (sort (mapcar #'package-name (list-all-packages)) #'string<))

#|
* (eepitch-sbcl)
* (eepitch-kill)
* (eepitch-sbcl)
(my-package-names)
(mapcar #'find-package (my-package-names))

|#


;; ;; (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)")


;; (find-fline "$S/https/beta.quicklisp.org/quicklisp.lisp")
;; (find-fline "~/quicklisp/setup.lisp")
;; (find-fline "~/quicklisp/asdf.lisp")
(defun my-load-quicklisp-lisp  () (load #P"~/snarf/https/beta.quicklisp.org/quicklisp.lisp"))
(defun my-load-quicklisp-setup () (load #P"~/quicklisp/setup.lisp"))
(defun my-load-quicklisp-asdf  () (load #P"~/quicklisp/asdf.lisp"))
(defun my-require-asdf      () (or (member :asdf      *features*) (my-load-quicklisp-asdf)))
(defun my-require-quicklisp () (or (member :quicklisp *features*) (my-load-quicklisp-setup)))

;; (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")

(describe 'require)
(describe ':asdf)

(my-load-quicklisp-setup)
(my-load-quicklisp-setup)

# (find-man "sbcl")

(member :asdf *features* :test #'eq)
(member :asdf *features*)

* (eepitch-sbcl)
* (eepitch-kill)
* (eepitch-sbcl)
  (member :setup     *features*)
  (member :quicklisp *features*)
  (my-require-asdf)
  (member :asdf      *features*)
  (member :setup     *features*)
  (member :quicklisp *features*)
  (my-require-quicklisp)
  (member :setup     *features*)
  (member :quicklisp *features*)

(macroexpand '#-quicklisp (foo))

                                                    (user-homedir-pathname)
            (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))
(probe-file (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))


(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: