;;; -*- Mode: LISP; Syntax: COMMON-Package: CL-USER; Base: 10 -*-

;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init #p"~/Emacs/quicklisp/setup.lisp"))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

(let* ((mac? (string-not-equal "root" (sb-ext:posix-getenv "USER")))
       (cloud? (not mac?))
       (home (if cloud? "/root" "/Users/Can")))
  
  ;; (push (format nil "~A/Projects/" home)  ql:*local-project-directories*)
  ;; (push (format nil "~A/fan-xuan/" home) ql:*local-project-directories*)
  ;; (push (format nil "~A/school/" home) ql:*local-project-directories*)
  ;; (push (format nil "~A/hotel/" home) ql:*local-project-directories*)
  ;; (push (format nil "~A/leovinci/" home) ql:*local-project-directories*)
  ;; (push (format nil "~A/wecat/" home) ql:*local-project-directories*)
  (push (format nil "~A/every-lisp/" home) ql:*local-project-directories*)
  (push (format nil "~A/saver/server" home) ql:*local-project-directories*)
  (push (format nil "~A/viva/server" home) ql:*local-project-directories*)
  (push (format nil "~A/vault/server" home) ql:*local-project-directories*)
  
  (ql:quickload :celwk)
  (use-package :celwk)
  (format t "**********************~%")
  (format t "Welcome to Lisp, Can!!"))


#+:ubuntu
(sb-ext:set-sbcl-source-location "/usr/share/sbcl-source")