17 lines
355 B
Common Lisp
17 lines
355 B
Common Lisp
;;; 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)))))
|
|
|