- (values
- (progn
- (let ((node (car (clsql:select 'theme
- :where [= [slot-value 'theme 'theme-id]
- 6]
- :flatp t
- :caching nil))))
- (with-output-to-string (out)
- (format out "~a ~a ~a ~a ~a ~a"
- (slot-value node 'node-id)
- (slot-value node 'setting-id)
- (slot-value node 'theme-id)
- (slot-value node 'title)
- (slot-value node 'vars)
- (slot-value node 'doc)))))
- (progn
- (let ((node (car (clsql:select 'setting
- :where [= [slot-value 'setting 'setting-id]
- 6]
- :flatp t
- :caching nil))))
- (setf (slot-value node 'title) "Altered title")
- (setf (slot-value node 'vars) nil)
- (clsql:update-records-from-instance node)
- (with-output-to-string (out)
- (format out "~a ~a ~a"
- (slot-value node 'setting-id)
- (slot-value node 'title)
- (slot-value node 'vars)))))
- (progn
- (let ((node (car (clsql:select 'theme
- :where [= [slot-value 'theme 'theme-id]
- 6]
- :flatp t
- :caching nil))))
- (setf (slot-value node 'title) "Altered title again")
- (setf (slot-value node 'doc) "altered doc")
- (clsql:update-records-from-instance node)
- (with-output-to-string (out)
- (format out "~a ~a ~a ~a ~a ~a"
- (slot-value node 'node-id)
- (slot-value node 'setting-id)
- (slot-value node 'theme-id)
- (slot-value node 'title)
- (slot-value node 'vars)
- (slot-value node 'doc)))))
- (progn
- (let ((node (car (clsql:select 'theme
- :where [= [slot-value 'theme 'theme-id]
- 6]
- :flatp t
- :caching nil))))
- (setf (slot-value node 'title) "theme-1")
- (setf (slot-value node 'vars) "empty")
- (setf (slot-value node 'doc) "first theme")
- (clsql:update-records-from-instance node)
- (with-output-to-string (out)
- (format out "~a ~a ~a ~a ~a ~a"
- (slot-value node 'node-id)
- (slot-value node 'setting-id)
- (slot-value node 'theme-id)
- (slot-value node 'title)
- (slot-value node 'vars)
- (slot-value node 'doc))))))
+ (flet ((print-fresh-theme ()
+ (let ((node (car (clsql:select 'theme
+ :where [= [slot-value 'theme 'theme-id]
+ 6]
+ :flatp t
+ :caching nil))))
+ (format nil "~a ~a ~a ~a ~a ~a"
+ (slot-value node 'node-id)
+ (slot-value node 'setting-id)
+ (slot-value node 'theme-id)
+ (slot-value node 'title)
+ (slot-value node 'vars)
+ (slot-value node 'doc)))))
+ (values
+ (print-fresh-theme)
+ (let ((node (car (clsql:select 'setting
+ :where [= [slot-value 'setting 'setting-id]
+ 6]
+ :flatp t
+ :caching nil))))
+ (setf (slot-value node 'title) "Altered title")
+ (setf (slot-value node 'vars) nil)
+ (clsql:update-records-from-instance node)
+ (print-fresh-theme))
+ (let ((node (car (clsql:select 'theme
+ :where [= [slot-value 'theme 'theme-id]
+ 6]
+ :flatp t
+ :caching nil))))
+ (setf (slot-value node 'title) "Altered title again")
+ (setf (slot-value node 'doc) "altered doc")
+ (clsql:update-records-from-instance node)
+ (print-fresh-theme))
+ (let ((node (car (clsql:select 'theme
+ :where [= [slot-value 'theme 'theme-id]
+ 6]
+ :flatp t
+ :caching nil))))
+ (setf (slot-value node 'title) "theme-1")
+ (setf (slot-value node 'vars) "empty")
+ (setf (slot-value node 'doc) "first theme")
+ (clsql:update-records-from-instance node)
+ (print-fresh-theme))))