allocation-cache-handlers.lisp

Revision 3671, 372 bytes (checked in by ksprotte, 4 months ago)
again whitespace cleanup + removed tabs

Line
1	(in-package :bos.web)
2
3	(enable-interpol-syntax)
4
5	(defclass allocation-cache-handler (admin-only-handler page-handler)
6	())
7
8	(defmethod handle ((handler allocation-cache-handler))
9	(with-bos-cms-page (:title "Allocation Cache")
10	(html
11	(:pre (:princ
12	(with-output-to-string (standard-output)
13	(bos.m2.allocation-cache:pprint-cache)))))))

Note: See TracBrowser for help on using the browser.