Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (13 sloc) 0.45 kb
(in-package :academy)
(defun save-website ()
(with-output-to-file ((format nil "~A/index.html" (asdf-system-base-path :academy)))
(format
t
"<html>
<head>
<title>⚡ ⚕ The academy ⚛ ♬</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
</head>
<body style=\"background:black;color:white;font-size:24px;\"><pre>")
(print-log)
(princ "</pre></body></html>")))
Jump to Line
Something went wrong with that request. Please try again.