Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |