/[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.10 by camm, Tue Dec 28 22:24:18 2004 UTC revision 1.11 by camm, Fri Jan 7 17:58:33 2005 UTC
# Line 479  Line 479 
479                                            "The type declaration ~s contains a non-symbol ~s."                                            "The type declaration ~s contains a non-symbol ~s."
480                                            decl var)                                            decl var)
481                                     (push (cons var 'dynamic-extent) ts)))                                     (push (cons var 'dynamic-extent) ts)))
                         ((fixnum character double-float short-float array atom bignum bit  
                                  bit-vector common compiled-function complex cons float hash-table  
                                  integer keyword list long-float nil null number package pathname  
                                  random-state ratio rational readtable sequence simple-array  
                                  simple-bit-vector simple-string simple-vector single-float  
                                  standard-char stream string string-char symbol t vector boolean  
                                  signed-byte unsigned-byte)  
                          (let ((type (type-filter stype)))  
                            (when type  
                              (dolist** (var (cdr decl))  
                                        (cmpck (not (symbolp var))  
                                               "The type declaration ~s contains a non-symbol ~s."  
                                               decl var)  
                                        (push (cons var type) ts)))))  
482                          (otherwise                          (otherwise
483                           (push decl others))))))))                           (let ((type (t-to-nil (type-filter stype))))
484                               (if type
485                                   (dolist** (var (cdr decl))
486                                             (cmpck (not (symbolp var))
487                                                    "The type declaration ~s contains a non-symbol ~s."
488                                                    decl var)
489                                             (push (cons var type) ts))
490                                 (push decl others))))))))))
491       (t (return)))       (t (return)))
492      (pop body)      (pop body)
493      )      )
   (dolist (l ts) (push l *decls*))  
494    (values body ss ts is others doc)    (values body ss ts is others doc)
495    )    )
496    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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