/[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.7 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.7.4.1 by camm, Wed Jul 16 02:02:48 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 1012  Line 1016 
1016                (t (wt-nl "parse_key_new_new(")))                (t (wt-nl "parse_key_new_new(")))
1017          (if (eql 0 *cs*)(setq *cs* 1))          (if (eql 0 *cs*)(setq *cs* 1))
1018          (wt "narg," (if *vararg-use-vs* "base " "Vcs ")          (wt "narg," (if *vararg-use-vs* "base " "Vcs ")
1019              "+" key-offset",(struct key *)&LI" cfun "key,first,ap);")              "+" key-offset",(struct key *)(void *)&LI" cfun "key,first,ap);")
1020                    
1021          ))          ))
1022            

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.4.1

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