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

Diff of /gcl/cmpnew/gcl_cmpeval.lsp

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

revision 1.29 by pfdietz, Sat Aug 27 00:11:17 2005 UTC revision 1.30 by camm, Wed Sep 7 02:38:16 2005 UTC
# Line 1054  Line 1054 
1054          (*compiler-temps* *compiler-temps*))          (*compiler-temps* *compiler-temps*))
1055      (dolist (var vars)      (dolist (var vars)
1056        (if (and (symbolp var)        (if (and (symbolp var)
1057                 (not (si:memq var '(&optional &rest &key &aux))))                 (not (member var '(&optional &rest &key &aux))))
1058            (push (or (pop *compiler-temps*)            (push (or (pop *compiler-temps*)
1059                      (gentemp "TMP" (find-package 'compiler)))                      (gentemp "TMP" (find-package 'compiler)))
1060                  temps)                  temps)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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