Mon Nov 23 11:38:12 UTC 2009 pix@kepibu.org
* No longer needed
hunk ./selectors.lisp 104
- (format t "cc:: el: ~s, s: ~s~%" (element-parent element) selector)
hunk ./unify.lisp 11
-(defun merge-environments (env1 env2)
- (assert (or (unify::empty-environment-p env1)
- (equal (unify::environment-variables env1)
- (unify::environment-variables env2))))
- (format t "ev1: ~s, ev2: ~s~%" (unify::environment-values env1) (unify::environment-values env2))
- (format t "q: ~s~%" (unify::find-variable-value '?i env1))
- (unify::fill-environment (unify::environment-variables env1)
- (mapcar (lambda (a b) (format t "a: ~s, b: ~s~%" a b) (append a b))
- (unify::environment-values env1)
- (unify::environment-values env2))
- (make-empty-environment)))
-