constantp symbols (defined by defconstant) get symbol-value'd in queries
Tue Dec 1 08:13:30 PST 2009 attila.lendvai@gmail.com
* constantp symbols (defined by defconstant) get symbol-value'd in queries
diff -rN -u old-cl-perec/query/query.lisp new-cl-perec/query/query.lisp
--- old-cl-perec/query/query.lisp 2014-07-28 11:27:42.000000000 -0700
+++ new-cl-perec/query/query.lisp 2014-07-28 11:27:42.000000000 -0700
@@ -292,7 +292,9 @@
((syntax-object-p form) form)
((and (symbolp form) (find form variables :key 'name-of)) it)
((and (atom form) (constantp form))
- (make-literal-value :value form))
+ (make-literal-value :value (if (symbolp form)
+ (symbol-value form)
+ form)))
((and (consp form) (eq (first form) 'quote))
(make-literal-value :value (second form)))
((symbolp form)