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

defsetf functions now return value

Browse source
This commit is contained in:
David Botton 2021-12-10 09:34:54 -05:00
parent bc9bda5c74
commit a8d6c7c162
4 changed files with 52 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-document.lisp
View file

@ -123,7 +123,8 @@ clog-document object. (Private)"))
(defmethod set-title ((obj clog-document) value)
(execute obj
(format nil "title='~A'" (clog-connection:escape-string value))))
(format nil "title='~A'" (clog-connection:escape-string value)))
value)
(defsetf title set-title)
;;;;;;;;;;;;;;;;;;