编辑器/阅读器

开发平台：

DOS

test33.in：源码内容

							Test for 'lisp'
STARTTEST
:set lisp
/^(defun
=G:/^(defun/,$wq! test.out
ENDTEST
(defun html-file (base)
(format nil "~(~A~).html" base))
(defmacro page (name title &rest body)
(let ((ti (gensym)))
`(with-open-file (*standard-output*
(html-file ,name)
:direction :output
:if-exists :supersede)
(let ((,ti ,title))
(as title ,ti)
(with center 
(as h2 (string-upcase ,ti)))
(brs 3)
,@body))))
;;; Utilities for generating links
(defmacro with-link (dest &rest body)
`(progn
(format t "<a href="~A">" (html-file ,dest))
,@body
(princ "</a>")))

						