[rjain-utils-cvs] CVS formulate/src

[rjain]

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 , at declare) ,formula)
                           , at 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))