src/shell/devvars.lisp

   1
   2 ;;; Load main dev vars
   3 (load (make-pathname :directory '(:relative "src")
   4                      :name "devvars" :type "lisp"))
   5
   6 (in-package :lineal.devvars)
   7
   8 ;;; Load user preferences for shell Lineal.
   9 (load (make-pathname :directory '(:relative "src")
  10                      :name "config" :type "lisp"))
  11
  12 (unless (boundp 'use-infix-p)
  13   (set 'use-infix-p t))
  14
  15 (setq *file-tree*
  16       (nconc *file-tree*
  17              '(("shell" "main"))))
  18
  19 (compile-lineal)
  20
  21 ;;; Load up restore file if desired.
  22 (when (boundp 'restore-from-file)
  23   (let ((file (symbol-value 'restore-from-file)))
  24     (unless (pathnamep file)
  25       (setq file (make-pathname :name "captured_session")))
  26     (format t "Restoring session from: \"~A\"...~%"
  27             (namestring file))
  28     (princ (lineal::local-restore file))
  29     (fresh-line)))
  30
  31 (lineal.shell::shell-repl)
  32