/[gcl]/gcl/lsp/gcl_defstruct.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_defstruct.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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