mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Corrections caught by sbcl

Browse source
This commit is contained in:
David Botton 2021-01-06 18:23:27 -05:00
parent 964e76536a
commit b200a0e43c
8 changed files with 59 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

10
clog-document.lisp
View file

@ -126,14 +126,14 @@ clog-documentation object. (Private)"))
(execute obj (format nil "title='~A'" (cc:escape-string value))))
(defsetf title set-title)
;;;;;;;;;
;; url ;;
;;;;;;;;;
;;;;;;;;;;;;;;;;;;
;; document-url ;;
;;;;;;;;;;;;;;;;;;
(defgeneric url (clog-document)
(defgeneric document-url (clog-document)
(:documentation "Get url."))
(defmethod url ((obj clog-document))
(defmethod document-url ((obj clog-document))
(query obj "url"))
;;;;;;;;;;;;;;;;;