/[gcl]/gcl/cmpnew/gcl_cmpmap.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpmap.lsp

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

revision 1.6 by camm, Mon Sep 26 16:45:02 2005 UTC revision 1.7 by camm, Thu Oct 6 20:30:06 2005 UTC
# Line 68  Line 68 
68           (wt-nl "object " loc "= " (car args) ";")           (wt-nl "object " loc "= " (car args) ";")
69           (pop args))           (pop args))
70         (cond (*safe-compile*         (cond (*safe-compile*
71                (wt-nl "if(endp_prop(" (car handies) ")")                (wt-nl "if(endp(" (car handies) ")")
72                (dolist** (loc (cdr handies)) (wt "||endp_prop(" loc ")"))                (dolist** (loc (cdr handies)) (wt "||endp(" loc ")"))
73                (wt "){"))                (wt "){"))
74               (t               (t
75                (wt-nl "if(" (car handies) "==Cnil")                (wt-nl "if(" (car handies) "==Cnil")
# Line 96  Line 96 
96                (wt-nl (car handies) "=MMcdr(" (car handies) ");")                (wt-nl (car handies) "=MMcdr(" (car handies) ");")
97                (dolist** (loc (cdr handies))                (dolist** (loc (cdr handies))
98                          (wt-nl loc "=MMcdr(" loc ");"))                          (wt-nl loc "=MMcdr(" loc ");"))
99                (wt-nl "if(endp_prop(" (car handies)  ")")                (wt-nl "if(endp(" (car handies)  ")")
100                (dolist** (loc (cdr handies))                (dolist** (loc (cdr handies))
101                          (wt "||endp_prop(" loc ")"))                          (wt "||endp(" loc ")"))
102                (wt "){"))                (wt "){"))
103               (t               (t
104                (wt-nl "if((" (car handies) "=MMcdr(" (car handies) "))==Cnil")                (wt-nl "if((" (car handies) "=MMcdr(" (car handies) "))==Cnil")
# Line 135  Line 135 
135                   (wt-nl "object " loc "= " (car args) ";")                   (wt-nl "object " loc "= " (car args) ";")
136                   (pop args))                   (pop args))
137         (cond (*safe-compile*         (cond (*safe-compile*
138                (wt-nl "if(endp_prop(" (car handies) ")")                (wt-nl "if(endp(" (car handies) ")")
139                (dolist** (loc (cdr handies)) (wt "||endp_prop(" loc ")"))                (dolist** (loc (cdr handies)) (wt "||endp(" loc ")"))
140                (wt "){"))                (wt "){"))
141               (t               (t
142                (wt-nl "if(" (car handies) "==Cnil")                (wt-nl "if(" (car handies) "==Cnil")

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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