Re: shared :initarg problem in August 4 PCL

Article View: comp.lang.clos

Article #197

#197

From: Richard Harris
Date: Thu, 27 Aug 1992 19:43

18 lines
1015 bytes

> In August PCL (8/4/92), using a shared :INITARG to initialize two slots at
> once breaks in INITIALIZE-INSTANCE-SIMPLE with the error:
>                 Error: bad index to nthcdr: -1

In the function make-initialization-form-list (fast-init.lisp),
Change the lines:
		  (add-forms `((pop-initargs ,(* 2 npop))
			       (instance-set ,pv-offset ,slot))
			     initialize-form-list))
To:
		  (add-forms `(,@(when (plusp npop)
				   `((pop-initargs ,(* 2 npop))))
			       (instance-set ,pv-offset ,slot))
			     initialize-form-list))


  Richard Harris

Technical Details

Message-ID: <-gqy#qp@rpi.edu>

Path: arc1-ca.pugleaf.net!sparky!uunet!caen!zaphod.mps.ohio-state.edu!rpi!rharris

References: <1992Aug27.134602.22546@leland.Stanford.EDU>

Show Full Headers

Complete Article Headers

Newsgroups: comp.lang.clos
Path: arc1-ca.pugleaf.net!sparky!uunet!caen!zaphod.mps.ohio-state.edu!rpi!rharris
From: rharris@unix.ecs.rpi.edu (Richard Harris)
Subject: Re: shared :initarg problem in August 4 PCL
Message-ID: <-gqy#qp@rpi.edu>
Nntp-Posting-Host: dice0.rdrc.rpi.edu
Organization: Rensselaer Design Research Center, RPI, Troy, NY
References: <1992Aug27.134602.22546@leland.Stanford.EDU>
Date: Thu, 27 Aug 1992 19:43:23 GMT
Lines: 18

Reply to Parent Message