🚀 go-pugleaf

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
This has worked in all earlier releases of PCL.
Im using: Allegro CL 3.1.20 [NeXT] (3/7/91)
Copyright (C) 1985-1990, Franz Inc., Berkeley, CA, USA
=====
<cl> (in-package :pcl)
#<The PCL package, 2958 internal, 136 external>

<cl> (defclass foo ()
       ((list :initarg :list)
        (head :initarg :list)))
#<Standard-Class FOO 135516001>

<cl> (make-instance 'foo :list ())
Error: bad index to nthcdr: -1
[1] <cl> :zoom
Evaluation stack:

 ->(ERROR "bad index to nthcdr: ~s" -1)
   (NTHCDR -1 NIL)
   (INITIALIZE-INSTANCE-SIMPLE #(T 1) ((INSTANCE-SET 1  
#<Standard-Effective-Slot-Definition LIST 135521071>)) (:LIST NIL) #<FOO  
135676621>)
   (#:|.INITIALIZE-INSTANCE-SIMPLE-FUNCTION.ae45a0e2| #<FOO 135676621>  
(:LIST NIL))
   (|MAKE-INSTANCE FOO (:LIST) NIL| FOO (:LIST NIL))
   (MAKE-INSTANCE FOO :LIST NIL)
   (EVAL (MAKE-INSTANCE 'FOO :LIST NIL))
   (EXCL::START-REBORN-LISP)
[1] <cl>
---
Rick Taube
Zentrum fuer Kunst und Medientechnologie
Karlsruhe, Germany
hkt@zkm.de



(Respond to Rick, not me -- I am just a human gateway -- Bill).