Commit f96c70dd authored by  Hayley Patton's avatar Hayley Patton 🐢

Add the DO-OBJECTS macro

parent d218449f
......@@ -120,6 +120,10 @@
(setf (gethash object seen) t))))
objects-seen))
(defmacro do-objects ((object starting-object) &body body)
`(map-objects (lambda (,object) ,@body)
,starting-object))
(defun map-references (function vague-object)
"Call a function with every reference in vague-object."
(let ((references-seen 0)
......
......@@ -14,7 +14,7 @@
#:netfarm-class-presentation-script
#:netfarm-class-name
#:object-value #:set-object-value #:object-makunbound #:object-boundp
#:map-objects
#:map-objects #:do-objects
#:compute-dependencies #:deep-copy-object
#:find-netfarm-class
#:find-netfarm-slot #:find-netfarm-computed-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