Commits

Greg Slepak committed facb1b8

fix

Comments (0)

Files changed (1)

example-site/dragonfly-framework/plugins-inactive/db/database_orm.lsp

 				(define (attr-sym value from-revert-set)
 					(if value
 						(begin
-							(set (<- attr-str change-set) value 'dirty true)
+							(setf (<- attr-str change-set) value)
+							(setf dirty true)
 							(when from-revert-set (setf (<- attr-str revert-set) value))) ; only do this if you're *SURE*
 						(if from-revert-set
 							(<- attr-str revert-set)