Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/17/84; site godot.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!ihnp4!godot!massar
From: massar@godot.UUCP (J.P. Massar)
Newsgroups: net.emacs
Subject: CCA Emacs Elisp bug fix
Message-ID: <1119@godot.UUCP>
Date: Thu, 28-Feb-85 16:40:40 EST
Article-I.D.: godot.1119
Posted: Thu Feb 28 16:40:40 1985
Date-Received: Fri, 1-Mar-85 09:45:23 EST
Distribution: net
Organization: Thinking Machines, Cambridge, MA
Lines: 47

Problem:  If you type in '#()'  (the null vector) Elisp gives
you an error message!

Fix:  in the file <emacssrc>/elisp/rmacros.c:

*** rmacros.c~	Tue Nov 13 15:21:37 1984
--- rmacros.c	Wed Feb 27 23:23:47 1985
***************
*** 513,519
  {
  
  	Elisp_Val stream,ev;
! 	int vlength;
  
  	stream = Get_Nth_Arg(1,4);
  

--- 513,519 -----
  {
  
  	Elisp_Val stream,ev;
! 	int vlength = 0;
  
  	stream = Get_Nth_Arg(1,4);
  
***************
*** 518,524
  	stream = Get_Nth_Arg(1,4);
  
  	ev = std_lparen_macro();
! 	if (acg_is_cons_valid_list(ev,&vlength))
  	{ 
  		return(adi_mk_vector(vlength,ev));
  	} 

--- 518,524 -----
  	stream = Get_Nth_Arg(1,4);
  
  	ev = std_lparen_macro();
! 	if (Nil_Symbol == ev || acg_is_cons_valid_list(ev,&vlength))
  	{ 
  		return(adi_mk_vector(vlength,ev));
  	} 
-- 
-- JP Massar, Thinking Machines Corporation, Cambridge, MA
-- ihnp4!godot!massar
-- massar@cca-unix