; generate declarations for variables

(in-package "VERRAZANO-CFFI")

; handle constant integers
(generate-for ((par namespace-type) (edg allocates) (tgt constant-type))
  (let ((val (allocates-edge-value edg))
		(name (named-name edg)))
	(define-symbol name "constant")
	`("cl:defparameter" ,name ,val)))