/[gcl]/gcl/cmpnew/gcl_cmpenv.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpenv.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Fri Dec 17 21:26:30 2004 UTC revision 1.9 by camm, Mon Dec 27 22:07:17 2004 UTC
# Line 473  Line 473 
473                                            decl var)                                            decl var)
474                                     (push (cons var  'register) ts)                                     (push (cons var  'register) ts)
475                                     ))                                     ))
476                            ((:dynamic-extent dynamic-extent)
477                             (dolist** (var (cdr decl))
478                                       (cmpck (not (symbolp var))
479                                              "The type declaration ~s contains a non-symbol ~s."
480                                              decl var)
481                                       (push (cons var :dynamic-extent) ts)))
482                          ((fixnum character double-float short-float array atom bignum bit                          ((fixnum character double-float short-float array atom bignum bit
483                                   bit-vector common compiled-function complex cons float hash-table                                   bit-vector common compiled-function complex cons float hash-table
484                                   integer keyword list long-float nil null number package pathname                                   integer keyword list long-float nil null number package pathname
485                                   random-state ratio rational readtable sequence simple-array                                   random-state ratio rational readtable sequence simple-array
486                                   simple-bit-vector simple-string simple-vector single-float                                   simple-bit-vector simple-string simple-vector single-float
487                                   standard-char stream string string-char symbol t vector                                   standard-char stream string string-char symbol t vector boolean
488                                   signed-byte unsigned-byte :dynamic-extent)                                   signed-byte unsigned-byte)
489                           (let ((type (if (eq stype ':dynamic-extent) stype                           (let ((type (type-filter stype)))
                                        (type-filter stype))))  
490                             (when type                             (when type
491                               (dolist** (var (cdr decl))                               (dolist** (var (cdr decl))
492                                         (cmpck (not (symbolp var))                                         (cmpck (not (symbolp var))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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