|
Revision 3109, 0.6 kB
(checked in by hans, 8 months ago)
|
add atdoc from git
|
| Line | |
|---|
| 1 |
;;; -*- mode: lisp; indent-tabs: nil; show-trailing-whitespace: t -*- |
|---|
| 2 |
|
|---|
| 3 |
(defpackage :atdoc-system |
|---|
| 4 |
(:use :asdf :cl)) |
|---|
| 5 |
(in-package :atdoc-system) |
|---|
| 6 |
|
|---|
| 7 |
(defclass atdoc-source-file (cl-source-file) ()) |
|---|
| 8 |
|
|---|
| 9 |
#+sbcl |
|---|
| 10 |
(defmethod perform :around ((o compile-op) (s atdoc-source-file)) |
|---|
| 11 |
(handler-bind ((sb-ext:compiler-note #'muffle-warning)) |
|---|
| 12 |
(let ((*compile-print* nil)) |
|---|
| 13 |
(call-next-method)))) |
|---|
| 14 |
|
|---|
| 15 |
(asdf:defsystem :atdoc |
|---|
| 16 |
:default-component-class atdoc-source-file |
|---|
| 17 |
:components ((:file "package") |
|---|
| 18 |
(:file "atdoc" :depends-on ("package"))) |
|---|
| 19 |
:depends-on (:cxml :split-sequence :swank :xuriella :closer-mop :cl-ppcre)) |
|---|
