18 lines
333 B
Common Lisp
18 lines
333 B
Common Lisp
;;; cl-scopes/scratch - interactive testing
|
|
|
|
(asdf:load-system :scopes)
|
|
|
|
(in-package :cl-user)
|
|
#+ecl
|
|
(use-package :ext)
|
|
|
|
;;; 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)))))
|
|
|