Parent Directory | Revision Log | Patch
revision 1.8 by camm, Fri Aug 12 15:48:34 2005 UTC | revision 1.9 by camm, Wed Sep 7 02:45:51 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 |