Update of /project/rjain-utils/cvsroot/formulate/src In directory cl-net:/tmp/cvs-serv29567/src Modified Files: package.lisp variables.lisp Log Message: add FORMULATED-VARIABLE-P predicate --- /project/rjain-utils/cvsroot/formulate/src/package.lisp 2009/11/19 00:44:14 1.4 +++ /project/rjain-utils/cvsroot/formulate/src/package.lisp 2009/12/25 21:00:15 1.5 @@ -9,7 +9,8 @@ #:formula-p #:formulator-class #:formulator-options - #:define-formulated-variable) + #:define-formulated-variable + #:formulated-variable-p) (:use :cl #.(first '(#+sbcl :sb-mop :mop)))) (defpackage :formulate-user --- /project/rjain-utils/cvsroot/formulate/src/variables.lisp 2009/11/19 00:44:14 1.4 +++ /project/rjain-utils/cvsroot/formulate/src/variables.lisp 2009/12/25 21:00:15 1.5 @@ -17,6 +17,7 @@ 'formula ',formula 'formula-function (lambda () (declare ,@declare) ,formula) ,@formulator-options)) + (setf (get ',name 'formulated-variable-p) t) ',name)) (defun formulate-variable (name) @@ -26,3 +27,6 @@ (defun (setf formulate-variable) (new-value name) (setf (formulator-value (symbol-value name)) new-value)) + +(defun formulated-variable-p (name) + (get name 'formulated-variable-p nil))