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

remove all defsetf

Browse source
This commit is contained in:
David Botton 2022-07-11 15:53:25 -04:00
parent 4130fce7ab
commit 02e4ed8fc1
10 changed files with 324 additions and 485 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-document.lisp
View file

@ -119,13 +119,12 @@ clog-document object. (Private)"))
(defmethod title ((obj clog-document))
(query obj "title"))
(defgeneric set-title (clog-document value))
(defgeneric (setf title) (value clog-document))
(defmethod set-title ((obj clog-document) value)
(defmethod (setf title) (value (obj clog-document))
(execute obj
(format nil "title='~A'" (clog-connection:escape-string value)))
value)
(defsetf title set-title)
;;;;;;;;;;;;;;;;;;
;; document-url ;;