Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
31 lines (22 sloc) 951 Bytes
This file is a part of trial
(c) 2016 Shirakumo (
Author: Nicolas Hafner <>
(in-package #:org.shirakumo.fraf.trial)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *debug-features* '(:trial-debug-controller))
(defvar *optimize-features* '())
(setf *features* (union *features* *debug-features*))
(setf *features* (set-difference *features* *debug-features*))
(setf *features* (union *features* *optimize-features*))
(setf *features* (set-difference *features* *optimize-features*)))
(defun reload-with-features (&rest features)
(setf *features* (union *features* features))
(asdf:compile-system :trial :force T :verbose NIL)
(asdf:load-system :trial :force T :verbose NIL))
;; FIXME: Put all the consistency checks and such during loading etc under features.