ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/V/c/macros.c

This is macros.c in view mode; [Download] [Up]

Changes file for /usr/local/src/kcl/./c/macros.c
Created on Thu Nov  8 04:47:05 1990
Usage \n@s[Original text\n@s|Replacement Text\n@s]
See the file rascal.ics.utexas.edu:/usr2/ftp/merge.c
for a program to merge change files.  Anything not between
"\n@s[" and  "\n@s]" is a simply a comment.
This file was constructed using emacs and  merge.el
Enhancements Copyright (c) W. Schelter All rights reserved.
   by (Bill Schelter)  wfs@carl.ma.utexas.edu 


****Change:(orig (13 14 d))
@s[object Vmacroexpand_hook;
object siSdefmacroA;

@s|
@s]


****Change:(orig (33 33 c))
@s[	clear_compiler_properties(vs_base[0]);

@s|	clear_compiler_properties(vs_base[0],MMcaddr(vs_base[1]));

@s]


****Change:(orig (91 91 c))
@s[	clear_compiler_properties(name);

@s|	clear_compiler_properties(name,MMcaddr(top[0]));

@s]


****Change:(orig (117 117 c))
@s[	vs_push(form);
/***/
	vs_push(Cnil);

@s|	vs_push(form);
/***/
/*	
	Macros may well need their functional environment to expand properly.
	For example setf needs to expand the place which may be a local
	macro.  They are not supposed to need the other parts of the
	environment
*/
#define VS_PUSH_ENV \
	if(lex_env[1]){ \
	  vs_push(list(3,lex_env[0],lex_env[1],lex_env[2]));} \
	else {vs_push(Cnil);}
        VS_PUSH_ENV ;

@s]


****Change:(orig (275 275 c))
@s[	vs_push(form);
/***/
	vs_push(Cnil);

@s|	vs_push(form);
/***/
/*	vs_push(Cnil); */
	VS_PUSH_ENV ;

@s]

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.