/[gcl]/gcl/lsp/gcl_predlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_predlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by pfdietz, Fri Aug 12 00:19:27 2005 UTC revision 1.18 by camm, Fri Aug 12 02:18:04 2005 UTC
# Line 782  Line 782 
782    
783  (defun maybe-or-push (x res)  (defun maybe-or-push (x res)
784    (cond ((not res) (list x))    (cond ((not res) (list x))
785          ((and (equal (elout (caar res) (car x) '<) (caar res))          ((elgt x (car res)) (cons x res))
786                (equal (elout (cdr x) (cdar res) '>) (cdar res)))          ((cons (cons (elout (caar res) (car x) '<) (elout (cdr x) (cdar res) '>)) (cdr res)))))
          res)  
         ((cons x res))))  
787    
788  (defun range-not (x &optional res (last '* lastp))  (defun range-not (x &optional res (last '* lastp))
789    (cond ((not x) (nreverse (if (and lastp (eq last '*)) res (cons (cons (elcomp last) '*) res))))    (cond ((not x) (nreverse (if (and lastp (eq last '*)) res (cons (cons (elcomp last) '*) res))))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26