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

Diff of /gcl/cmpnew/cmptop.lsp

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

revision 1.8 by mjthomas, Tue Jul 8 06:50:01 2003 UTC revision 1.9 by camm, Tue Jul 15 18:03:36 2003 UTC
# Line 109  Line 109 
109  (si:putprop 'import t 'package-operation)  (si:putprop 'import t 'package-operation)
110  (si:putprop 'provide t 'package-operation)  (si:putprop 'provide t 'package-operation)
111  (si:putprop 'require t 'package-operation)  (si:putprop 'require t 'package-operation)
112    (si:putprop 'defpackage:defpackage t 'package-operation)
113    
114  ;;; Pass 1 top-levels.  ;;; Pass 1 top-levels.
115    
# Line 193  Line 194 
194                      (when *non-package-operation*                      (when *non-package-operation*
195                        (cmpwarn "The package operation ~s was in a bad place."                        (cmpwarn "The package operation ~s was in a bad place."
196                                 form))                                 form))
197                      (maybe-eval t form)                      (let ((res (if (setq fd (macro-function fun))
198                      (wt-data-package-operation form))                                     (cmp-expand-macro fd fun (copy-list (cdr form)))
199                                     form)))
200                          (maybe-eval t res)
201                          (wt-data-package-operation res)))
202                     ((setq fd (get fun 't1))                     ((setq fd (get fun 't1))
203                      (when *compile-print* (print-current-form))                      (when *compile-print* (print-current-form))
204                      (funcall fd args))                      (funcall fd args))
# Line 1015  Line 1019 
1019                (t (wt-nl "parse_key_new_new(")))                (t (wt-nl "parse_key_new_new(")))
1020          (if (eql 0 *cs*)(setq *cs* 1))          (if (eql 0 *cs*)(setq *cs* 1))
1021          (wt "narg," (if *vararg-use-vs* "base " "Vcs ")          (wt "narg," (if *vararg-use-vs* "base " "Vcs ")
1022              "+" key-offset",(struct key *)&LI" cfun "key,first,ap);")              "+" key-offset",(struct key *)(void *)&LI" cfun "key,first,ap);")
1023                    
1024          ))          ))
1025            

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