;;; cl-scopes/scratch - interactive testing

(asdf:load-system :scopes)

(in-package :cl-user)
(use-package :trivial-package-local-nicknames)

;;; real scratch area

(defun make-iter ()
  (let ((pointers (vector nil nil nil)))
    #'(lambda (fn)
        (funcall fn pointers))))

(defun iter-current (it)
  (funcall it #'(lambda (p) (car (svref p 0)))))