Untitled

===== dribble =====

cl-user> (push #P"/tmp/m/" asdf:*central-registry*)
(#P"/tmp/m/" #P"/tmp/s/" #P"/Users/pjb/quicklisp/quicklisp/")
cl-user> (ql:quickload "s")
To load "s":
  Load 1 ASDF system:
    s
; Loading "s"

("s")
cl-user> (do-s-thing)
"<HTML>
<HEAD>
  <title>John McCarthy, 1927-2011</title>
  <STYLE type=\"text/css\">
    BODY {text-align: center}
  </STYLE>
</HEAD>
<BODY>
<h1>John McCarthy</h1>
<img src=\"jmccolor.jpg\" alt=\"a picture of John McCarthy, from his website\"/>
<h3>1927-2011</h3>
<br><br>
<a href=\"http://www-formal.stanford.edu/jmc/\">John McCarthy's Home Page</a><br>
<a href=\"http://news.stanford.edu/news/2011/october/john-mccarthy-obit-102511.html\">Obituary</a>
</BODY>
</HTML>
"
cl-user>
===== s.asd =====
(asdf:defsystem "s"
  ;; system attributes:
  :description "Small System"
  :long-description "

This is a samll system.

"
  :author     "Pascal J. Bourguignon <pjb@informatimago.com>"
  :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
  :licence "AGPL3"
  ;; component attributes:
  :version "1.0.0"
  :properties ((#:author-email                   . "pjb@informatimago.com")
               (#:date                           . "Winter 2016")
               ((#:albert #:output-dir)          . "../documentation/hw/")
               ((#:albert #:formats)             . ("docbook"))
               ((#:albert #:docbook #:template)  . "book")
               ((#:albert #:docbook #:bgcolor)   . "white")
               ((#:albert #:docbook #:textcolor) . "black"))
  :depends-on ("drakma")
  :components ((:file "s" :depends-on ()))
  #+asdf-unicode :encoding #+asdf-unicode :utf-8)

===== s.lisp =====

(defvar *response* nil)

(defun do-s-thing ()
  (unless *response*
    (setf *response* (drakma:http-request "http://lisp.org"))))