Commits

Greg Slepak  committed b6c940d

added a little hack to attrs

  • Participants
  • Parent commits 9942dac

Comments (0)

Files changed (1)

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

 				(define (attr-sym value from-revert-set)
 					(if value
 						(begin
-							(setf (<- attr-str change-set) value)
-							(setf dirty true))
+							(set (<- attr-str change-set) value '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)
 							(<- attr-str change-set))))))))