V(
Size: a a a
V(
T
#
#
T
#
T
#
#
;;;; sbclrc -- configuration file for SBCL
;;;; Created :
;;;; Modified : <2020-12-15 Tue 20:32:55 GMT>
;;;; Author : Sharlatan <sharlatanus@gmail.com>
;;;; Commentary:
;;;; Code:
(defun from-home-path (path)
"Build a absolute path to user target directory including $HOME."
(merge-pathnames path (user-homedir-pathname)))
(defparameter *user-sbcl-src-path-maybe*
(mapcar 'from-home-path
'(".local/src/sbcl/"
"code/sbcl/")))
(defparameter *user-quicklisp-init-path-maybe*
(mapcar 'from-home-path
'(".local/share/common-lisp/setup.lisp" ".quicklisp/setup.lisp")))
(defparameter *user-projects*
(mapcar 'from-home-path '("code/CommonLisp" "code/ViralityEngine/")))
#+sbcl
(loop
:for sb-src in *user-sbcl-src-path-maybe*
:thereis (when (probe-file sb-src)
(sb-ext:set-sbcl-source-location sb-src)))
#-quicklisp
(loop
:for ql-init :in *user-quicklisp-init-path-maybe*
:when (probe-file ql-init)
:do (load ql-init))
(require "asdf")
;;;; sbclrc ends here
#
T
T
#
T
#
T
VS

a
VS
SD