lisprc @ 46fd11ae3808

Merge
author Steve Losh <steve@stevelosh.com>
date Thu, 13 Jun 2024 12:30:10 -0400
parents 80f0db7bdfd0
children (none)
;;;; Quicklisp ----------------------------------------------------------------
#-quicklisp
(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

;;;; Configuration ------------------------------------------------------------
(setf *print-pretty* t
      *print-escape* t
      *print-right-margin* 100
      *print-miser-width* nil
      *print-length* 50
      *print-level* 50)

;;;; REPL Utilities -----------------------------------------------------------
(defun :ls (package)
  (do-external-symbols (s package)
    (print s)))

(defmacro := (var val)
  `(progn
     (defglobal ,var nil)
     (setf ,var ,val)))

(defun :vlime ()
  (load "~/src/dotfiles/vim/bundle/vlime/lisp/start-vlime.lisp"))


;;;; Scratch Marker -----------------------------------------------------------
(defun sharp-semicolon-reader (stream sub-char numarg)
  (declare (ignore sub-char numarg))
  (loop :while (read-line stream nil nil))
  (values))

(defun shebang-reader (stream sub-char numarg)
  (declare (ignore sub-char numarg))
  (read-line stream)
  (values))

(set-dispatch-macro-character #\# #\; #'sharp-semicolon-reader)
;; (set-dispatch-macro-character #\# #\! #'shebang-reader)