Advertisement
Guest User

Untitled

a guest
Jan 20th, 2019
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.81 KB | None | 0 0
  1. ===== dribble =====
  2.  
  3. cl-user> (push #P"/tmp/m/" asdf:*central-registry*)
  4. (#P"/tmp/m/" #P"/tmp/s/" #P"/Users/pjb/quicklisp/quicklisp/")
  5. cl-user> (ql:quickload "s")
  6. To load "s":
  7. Load 1 ASDF system:
  8. s
  9. ; Loading "s"
  10.  
  11. ("s")
  12. cl-user> (do-s-thing)
  13. "<HTML>
  14. <HEAD>
  15. <title>John McCarthy, 1927-2011</title>
  16. <STYLE type=\"text/css\">
  17. BODY {text-align: center}
  18. </STYLE>
  19. </HEAD>
  20. <BODY>
  21. <h1>John McCarthy</h1>
  22. <img src=\"jmccolor.jpg\" alt=\"a picture of John McCarthy, from his website\"/>
  23. <h3>1927-2011</h3>
  24. <br><br>
  25. <a href=\"http://www-formal.stanford.edu/jmc/\">John McCarthy's Home Page</a><br>
  26. <a href=\"http://news.stanford.edu/news/2011/october/john-mccarthy-obit-102511.html\">Obituary</a>
  27. </BODY>
  28. </HTML>
  29. "
  30. cl-user>
  31. ===== s.asd =====
  32. (asdf:defsystem "s"
  33. ;; system attributes:
  34. :description "Small System"
  35. :long-description "
  36.  
  37. This is a samll system.
  38.  
  39. "
  40. :author "Pascal J. Bourguignon <pjb@informatimago.com>"
  41. :maintainer "Pascal J. Bourguignon <pjb@informatimago.com>"
  42. :licence "AGPL3"
  43. ;; component attributes:
  44. :version "1.0.0"
  45. :properties ((#:author-email . "pjb@informatimago.com")
  46. (#:date . "Winter 2016")
  47. ((#:albert #:output-dir) . "../documentation/hw/")
  48. ((#:albert #:formats) . ("docbook"))
  49. ((#:albert #:docbook #:template) . "book")
  50. ((#:albert #:docbook #:bgcolor) . "white")
  51. ((#:albert #:docbook #:textcolor) . "black"))
  52. :depends-on ("drakma")
  53. :components ((:file "s" :depends-on ()))
  54. #+asdf-unicode :encoding #+asdf-unicode :utf-8)
  55.  
  56. ===== s.lisp =====
  57.  
  58. (defvar *response* nil)
  59.  
  60. (defun do-s-thing ()
  61. (unless *response*
  62. (setf *response* (drakma:http-request "http://lisp.org"))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement