Introduction
Statistics
Contact
Development
Disclaimer
Help
sdf.org home page
(in-package :car)
(defun eg ()
(let ((stobj))
(seq stobj (reset stobj) (add-node stobj 0 0) (add-node stobj 0 1)
(add-node stobj 1 0) (add-node stobj 1 1)
(add-exit stobj 1 2) (add-exit stobj 2 1))))