;; -*- coding: utf-8; -*- ;; test-simple.lisp (provide 'test.simple) ;; (defpackage :test ;; (:use :cl)) ;; (in-package :test) (defpackage :test.simple (:use :cl) (:export tests ok)) (in-package :test.simple) (defvar *test-amount* 1) (defu…