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

This is att_ext.h in view mode; [Download] [Up]

Changes file for /usr/local/src/kcl/h/att_ext.h
Created on Thu Jan 31 16:56:12 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 (5 5 a))
@s[proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/

@s|proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
#ifndef COM_LENG
#define COM_LENG
#endif

@s]


****Change:(orig (23 23 c))
@s[/*  backq.c  */
backq_level;

@s|/*  backq.c  */
int backq_level;

@s]


****Change:(orig (28 33 c))
@s[struct bignum *stretch_big();
struct bignum *copy_big();
struct bignum *copy_to_big();
struct bignum *big_minus();

@s,struct bignum *big_times();

@s|object stretch_big();
object copy_big();
object copy_to_big();
object big_minus();
object big_plus();
object big_times();

@s]


****Change:(orig (49 49 d))
@s[/* block.c */
object Sblock;

@s|/* block.c */

@s]


****Change:(orig (80 80 a))
@s[object Kwrong_type_argument;

@s|object Kwrong_type_argument;
object Kcatch;
object Kprotect;
object Kcatchall;

@s]


****Change:(orig (124 124 d))
@s[object Kif_exists;
object Kerror;

@s|object Kif_exists;

@s]


****Change:(orig (132 132 d))
@s[object Kif_does_not_exist;
object Kerror;

@s|object Kif_does_not_exist;

@s]


****Change:(orig (136 136 d))
@s[object Kif_does_not_exist;

@s|
@s]


****Change:(orig (222 222 c))
@s[object macro_expand();

/*  main.c  */
ARGC;

@s|object macro_expand();

/*  main.c  */
int ARGC;

@s]


****Change:(orig (227 228 c))
@s[char lisp_implementation_version[];
char system_directory[];

@s|


@s]


****Change:(orig (232 232 a))
@s[#ifdef UNIX
char *kcl_self;
#endif

@s|#ifdef UNIX
char *kcl_self;
#endif
#if !defined(IN_MAIN) || !defined(ATT)
extern char lisp_implementation_version[COM_LENG];
extern char system_directory[COM_LENG];

@s]


****Change:(orig (233 233 a))
@s[bool initflag;

@s|bool initflag;
#endif

@s]


****Change:(orig (288 288 c))
@s[object Kuse;
intern_flag;

@s|object Kuse;
int intern_flag;

@s]


****Change:(orig (357 357 c))
@s[bool PRINTcircle;
PRINTbase;

@s|bool PRINTcircle;
int PRINTbase;

@s]


****Change:(orig (361 362 c))
@s[PRINTlevel;
PRINTlength;

@s|int PRINTlevel;
int PRINTlength;

@s]


****Change:(orig (364 364 c))
@s[bool PRINTarray;
(*write_ch_fun)();

@s|bool PRINTarray;
int (*write_ch_fun)();

@s]


****Change:(orig (377 380 d))
@s[object Kstart;
object Kend;
object Kradix;
object Kjunk_allowed;

@s|
@s]


****Change:(orig (382 383 c))
@s[READdefault_float_format;
READbase;

@s|int READdefault_float_format;
int READbase;

@s]


****Change:(orig (394 394 c))
@s[object big_register_0;
sharp_eq_context_max;

@s|object big_register_0;
int sharp_eq_context_max;

@s]


****Change:(orig (410 410 d))
@s[object symbol_function();
object Sfunction;

@s|object symbol_function();

@s]


****Change:(orig (411 411 a))
@s[

@s|


@s]


****Change:(orig (421 422 c))
@s[object siSstructure_print_function;
object siSstructure_slot_descriptions;

@s|object siLs_data;

@s]


****Change:(orig (436 436 c))
@s[object gensym_prefix;
gensym_counter;

@s|object gensym_prefix;
int gensym_counter;

@s]


****Change:(orig (438 438 c))
@s[object gentemp_prefix;
gentemp_counter;

@s|object gentemp_prefix;
int gentemp_counter;

@s]


****Change:(orig (482 482 c))
@s[Sfunction,	Scompiled_function,

@s|Scompiled_function,

@s]


****Change:(orig (498 498 a))
@s[object Ssigned_byte;
object Sunsigned_byte;

@s|object Ssigned_byte;
object Sunsigned_byte;
object Ssigned_char;
object Sunsigned_char;
object Ssigned_short;
object Sunsigned_short;

@s]


****Change:(orig (499 499 a))
@s[object SA;

@s|object SA;
object Splusp;

@s]


****Change:(orig (503 503 a))
@s[object TSnon_negative_integer;

@s|object TSnon_negative_integer;
object TSpositive_number;

@s]


****Change:(orig (511 512 c))
@s[interrupt_flag;		/* console interupt flag */
interrupt_enable;		/* console interupt enable */

@s|int interrupt_flag;		/* console interupt flag */
int interrupt_enable;		/* console interupt enable */

@s]

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