blob: b1aa3c26114358babd7867642975cbf47217d892 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;;; Tests
(add-to-list 'load-path ".")
(require 'stack-core)
(setq *t (stack-core-make-request "questions"))
(prog1 t (prin1 (elt (stack-core-parse-questions *t) 0)
#'insert))
(defun -stack--nuke ()
(interactive)
(mapatoms
(lambda (symbol)
(if (string-prefix-p "stack-" (symbol-name symbol))
(unintern symbol)))))
|
