Commit a587b5ae authored by Dave Cooper's avatar Dave Cooper
Browse files

added toggle-slot function

parent 55d494a2
......@@ -401,3 +401,7 @@ This function will be run in the initiating image after the build is finished."
(if (eql ,val-arg 'gdl-rule:%not-handled%) (not-handled ,self-arg ,(make-keyword attr-sym) ,args-arg) ,val-arg)))))))))))
(define-object-amendment vanilla-mixin ()
((toggle-slot! (slot) (the (set-slot! slot (not (the (evaluate slot))))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment