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