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

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

Changes file for /usr/local/src/kcl/./c/error.c
Created on Wed Jun 19 10:59:53 1991
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 (15 15 c))
@s[*/

#include "include.h"


@s|*/

#include "include.h"
#include <varargs.h>

@s]


****Change:(orig (43 43 c))
@s[		if (y == Slambda_block) {

@s|		if (y == Slambda_block || y == siSlambda_block_expanded) {

@s]


****Change:(orig (63 63 a))
@s[				return(Slambda_block_closure);
			return(x->c.c_car);
		}

@s|				return(Slambda_block_closure);
			return(x->c.c_car);
		}
		/* a general special form */
		if (y->s.s_sfdef != NOT_SPECIAL)
		  return y;

@s]


****Change:(orig (66 66 a))
@s[		return(Cnil);

	case t_cfun:

@s|		return(Cnil);

	case t_cfun:
        case t_sfun:
        case t_vfun:
        case t_cclosure:
        case t_gfun:


@s]


****Change:(orig (69 71 d))
@s[	case t_cclosure:
		return(x->cc.cc_name);


@s|
@s]


****Change:(orig (142 142 c))
@s[	vs_push(make_simple_string("~S requires more than ~R argument~:p."));

@s|	vs_push(make_simple_string("~S [or a callee] requires more than ~R argument~:p."));

@s]


****Change:(orig (171 171 c))
@s[	vs_push(make_simple_string("~S requires less than ~R argument~:p."));

@s|	vs_push(make_simple_string("~S [or a callee] requires less than ~R argument~:p."));

@s]


****Change:(orig (536 537 c))
@s[	    vs_push(make_simple_string("~S requires ~R argument~:p,~%\
but only ~R ~:*~[were~;was~:;were~] supplied."));

@s|	    vs_push(make_simple_string("~S [or a callee] requires ~R argument~:p,~%but only ~R ~:*~[were~;was~:;were~] supplied."));

@s]


****Change:(orig (539 540 c))
@s[	    vs_push(make_simple_string("~S requires only ~R argument~:p,~%\
but ~R ~:*~[were~;was~:;were~] supplied."));

@s|	    vs_push(make_simple_string("~S [or a callee] requires only ~R argument~:p,~%but ~R ~:*~[were~;was~:;were~] supplied."));

@s]


****Change:(orig (624 624 a))
@s[	FEerror("~S is an illegal index to ~S.", 2, i, x);
}


@s|	FEerror("~S is an illegal index to ~S.", 2, i, x);
}

     

@s]


****Change:(orig (635 635 c))
@s[	vs_push(ihs_function_name((ihs_top - 1)->ihs_function));

@s|	vs_push( (ihs_top > ihs_org) ?
		ihs_function_name((ihs_top - 1)->ihs_function)
		: Cnil);

@s]


****Change:(orig (641 641 a))
@s[	call_error_handler();
}


@s|	call_error_handler();
}

object
LVerror(va_alist)
     va_dcl
{va_list ap;
 va_start(ap);
 fcall.fun= make_cfun(Lerror,Cnil,Cnil,0,0);
 fcalln_general(ap);
 va_end(ap);
 return Cnil;
}
     

@s]


****Change:(orig (658 658 c))
@s[	vs_base = vs_top;
	vs_push(Cnil);
}


@s|	vs_base = vs_top;
	vs_push(Cnil);
}
int
vfun_wrong_number_of_args(x)
     object x;
{FEerror("Expected ~S args but received ~S args",2,
	 x,make_fixnum(VFUN_NARGS));
}

@s]

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