/[gcl]/gcl/pcl/gcl_pcl_vector.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_vector.lisp

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

revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC revision 1.3 by camm, Sat Jul 23 08:56:18 2005 UTC
# Line 931  Line 931 
931                                '*variable-declarations-without-argument*)                                '*variable-declarations-without-argument*)
932                          (push declaration-name                          (push declaration-name
933                                *variable-declarations-without-argument*))                                *variable-declarations-without-argument*))
934                        (when arg-p                        (if (eq (car dname) 'class)
935                          (setq dname (append dname (list (pop form)))))                            (if (member (car form) args)
936                        (dolist (var form)                                (push `(declare (,@dname ,@form)) outer-decls)
937                          (if (member var args)                              (push `(declare (,@dname ,@form)) inner-decls))
938                              (push var outers)                          (progn
939                              (push var inners)))                            (when arg-p
940                        (when outers                              (setq dname (append dname (list (pop form)))))
941                          (push `(declare (,@dname ,@outers)) outer-decls))                            (dolist (var form)
942                        (when inners                              (if (member var args)
943                          (push `(declare (,@dname ,@inners)) inner-decls)))))))                                  (push var outers)
944                                  (push var inners)))
945                              (when outers
946                                (push `(declare (,@dname ,@outers)) outer-decls))
947                              (when inners
948                                (push `(declare (,@dname ,@inners)) inner-decls)))))))))
949            (setq body (cdr body)))            (setq body (cdr body)))
950      (values outer-decls inner-decls body)))      (values outer-decls inner-decls body)))
951    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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