home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e051 / 3.ddi / FRANZ / FILES.L next >
Encoding:
Text File  |  1980-01-01  |  966 b   |  34 lines
  1. turn nil))
  2.               ((memq (car la) lb) (return (car la)))
  3.               (t (setq la (cdr la)) (go top))))) 
  4.  
  5. (defun mark-conflicts (rem all)
  6.   (cond ((not (null rem))
  7.          (mark-conflicts2 (car rem) all)
  8.          (mark-conflicts (cdr rem) all)))) 
  9.  
  10. (defun mark-conflicts2 (atm lst)
  11.   (prog (l)
  12.         (setq l lst)
  13.    top  (and (atom l) (return nil))
  14.         (conflict atm (car l))
  15.         (setq l (cdr l))
  16.         (go top))) 
  17.  
  18. (defun conflict (a b)
  19.   (prog (old)
  20.     (setq old (get a 'conflicts))
  21.     (and (not (eq a b))
  22.          (not (memq b old))
  23.          (putprop a (cons b old) 'conflicts)))) 
  24.  
  25. (defun remove-duplicates (lst)
  26.   (cond ((atom lst) nil)
  27.         ((memq (car lst) (cdr lst)) (remove-duplicates (cdr lst)))
  28.         (t (cons (car lst) (remove-duplicates (cdr lst)))))) 
  29.  
  30. (defun literal-binding-of (name) (get name 'ops-bind)) 
  31.  
  32. (defun store-binding (name lit)
  33.   (putprop name lit 'ops-bind)
  34.   (add-bucket nam