(defun sublisq (bindings form)
  (sublis
    (mapcar #'(lambda (x)
               (cons (car x) (kwote (cdr x))))
            bindings)
    form) )

; quote something if it isn't constant.
(defun kwote (x)
  (if (constantp x) x (list 'quote x) ) )

Contents    Page-10    Prev    Next    Page+10    Index