Parent Directory | Revision Log | Patch
revision 1.6 by camm, Fri Jul 8 06:11:00 2005 UTC | revision 1.7 by camm, Fri Aug 12 15:42:49 2005 UTC | |
---|---|---|
# | Line 376 | Line 376 |
376 | (setf val (symbol-value val))) | (setf val (symbol-value val))) |
377 | (and (constantp val) | (and (constantp val) |
378 | (setf (cadr v) (coerce val type))))) | (setf (cadr v) (coerce val type))))) |
379 | (cond ((memq type '(signed-char unsigned-char | (cond ((member type '(signed-char unsigned-char |
380 | short unsigned-short | short unsigned-short |
381 | long-float | long-float |
382 | bit)) | bit)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |