src/kprint.c
/************************************************************************/
/*									*/
/*		      p r i n t _ N E W s t r i n g			*/
/*									*/
/*	Print a Lyric-style string (the Commonlisp-array kind), as	*/
/*	opposed to the older special-case STRINGP kind from Koto.	*/
/*									*/
/************************************************************************/
p r i n t _ N E W s t r i n g

Print a Lyric-style string (the Commonlisp-array kind), as
opposed to the older special-case STRINGP kind from Koto.
p r i n t _ N E W s t r i n g Print a Lyric - style string ( the Commonlisp - array kind ) as opposed to the older special - case STRINGP kind from Koto .
void print_NEWstring(LispPTR x) {
  NEWSTRINGP *string_point;
  DLword st_length;
  DLbyte *string_base;
  int i;
  string_point = (NEWSTRINGP *)Addr68k_from_LADDR(x);
  st_length = string_point->fillpointer;
  string_base = (DLbyte *)Addr68k_from_LADDR(string_point->base);
  string_base += string_point->offset;
  printf("%c", DOUBLEQUOTE); 
  for (i = 0; i < st_length; i++) {
    printf("%c", GETBYTE(string_base));
    string_base++;
  }
  printf("%c", DOUBLEQUOTE); 
}
void print_NEWstring ( LispPTR x ) { NEWSTRINGP * string_point ; DLword st_length ; DLbyte * string_base ; int i ; string_point = ( NEWSTRINGP * ) Addr68k_from_LADDR ( x ) ; st_length = string_point -> fillpointer ; string_base = ( DLbyte * ) Addr68k_from_LADDR ( string_point -> base ) ; string_base += string_point -> offset ; printf ( " " , DOUBLEQUOTE ) ; for ( i = 0 ; i < st_length ; i ++ ) { printf ( " " , GETBYTE ( string_base ) ) ; string_base ++ ; } printf ( " " , DOUBLEQUOTE ) ; }
p r i n t _ N E W s t r i n g
p r i n t _ N E W s t r i n g
/* print %" */ /* print %" */