/[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.4 by camm, Thu Oct 23 15:14:07 2003 UTC revision 1.5 by camm, Wed Aug 25 22:48:24 2004 UTC
# Line 366  Line 366 
366    (dolist (v slot-descriptions)    (dolist (v slot-descriptions)
367            (when (and v (car v))            (when (and v (car v))
368                  (setf type                  (setf type
369                        (best-array-element-type (caddr v))                        (or (best-array-element-type (caddr v)) t)
370                        (caddr v) type)                        (caddr v) type)
371                  (let ((val (second v)))                  (let ((val (second v)))
372                    (unless (typep val type)                    (unless (typep val type)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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