28 lines
667 B
Common Lisp
28 lines
667 B
Common Lisp
;;;; cl-scopes/scratch - interactive testing
|
|
|
|
;(asdf:load-system :scopes)
|
|
(asdf:load-system :scopes-csys)
|
|
|
|
;(in-package :cl-user)
|
|
(use-package :trivial-package-local-nicknames)
|
|
|
|
;;;; csys stuff
|
|
|
|
(add-package-local-nickname :basic :scopes/csys/program/basic)
|
|
(add-package-local-nickname :environ :scopes/csys/environ)
|
|
|
|
(scopes/util/async:init)
|
|
(setf environ:*env* (environ:simple-setup (basic:config-b2)))
|
|
|
|
;(environ:send-value '(:s02 "1-0") 2)
|
|
|
|
;;;; iterator experiments - obsolete?
|
|
|
|
(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)))))
|
|
|