Commit ffb6f9b2 authored by Dave Cooper's avatar Dave Cooper

Merge branch 'master' of common-lisp.net:gendl/gendl-patches/gendl-patches

parents ab29798f a587b5ae
......@@ -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)))))))))))
computed-slots)))
(define-object-amendment vanilla-mixin ()
:functions
((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