/[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.26 by camm, Mon Aug 8 22:56:43 2005 UTC revision 1.27 by camm, Fri Aug 12 15:42:49 2005 UTC
# Line 1050  Line 1050 
1050          (*compiler-temps* *compiler-temps*))          (*compiler-temps* *compiler-temps*))
1051      (dolist (var vars)      (dolist (var vars)
1052        (if (and (symbolp var)        (if (and (symbolp var)
1053                 (not (si:memq var '(&optional &rest &key &aux))))                 (not (member var '(&optional &rest &key &aux))))
1054            (push (or (pop *compiler-temps*)            (push (or (pop *compiler-temps*)
1055                      (gentemp "TMP" (find-package 'compiler)))                      (gentemp "TMP" (find-package 'compiler)))
1056                  temps)                  temps)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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