~q3cpma/dotfiles

dotfiles/.sbclrc -rw-r--r-- 283 bytes
eb1d763dq3cpma Sync 2 months ago
                                                                                
1
2
3
4
5
6
7
8
(defun save-img (toplevel-fun img-path)
  (when (probe-file img-path)
	(error "~A: file already exists" img-path))
  (sb-ext:save-lisp-and-die img-path
							:toplevel (find-symbol (string-upcase toplevel-fun))
							:executable t))

(load "~/Programming/CL/quicklisp/setup.lisp")