/[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.31 by camm, Thu Oct 13 21:22:41 2005 UTC revision 1.32 by camm, Thu Oct 13 22:01:22 2005 UTC
# Line 1125  Line 1125 
1125    (cond ((eq t (cadr x)) `(cons t t))    (cond ((eq t (cadr x)) `(cons t t))
1126          ((atom (cadr x)) nil)          ((atom (cadr x)) nil)
1127          ((cons-atm (cadr x))          ((cons-atm (cadr x))
1128           (let ((car (nreconstruct-type-int (caadr x)))           (let ((car (nreconstruct-type-int (copy-tree (caadr x))));FIXME
1129                 (cdr (nreconstruct-type-int (cdadr x))))                 (cdr (nreconstruct-type-int (copy-tree (cdadr x)))))
1130             (and car cdr `(cons ,car ,cdr))))             (and car cdr `(cons ,car ,cdr))))
1131          ((eq (caadr x) 'or)          ((eq (caadr x) 'or)
1132           (let ((z (lremove-if 'not (mapcar (lambda (x) (cons-recon `(cons ,x))) (cdadr x)))))           (let ((z (lremove-if 'not (mapcar (lambda (x) (cons-recon `(cons ,x))) (cdadr x)))))

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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