[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug report

We discovered the following bug: shared slots need the :initform option
to work. We have carefully followed all the instructions given in patch1.text
and patch2.text.

> (defclass foo () ((bar :allocation :class)))
>>Error: NIL has no global function definition to funcall or apply

PCL::|(METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|:
   Required arg 0 (CLASS): #<Standard-Class FOO 45703333>
   Required arg 1 (SLOT-NAMES): T
   Keyword arg 2 (DIRECT-SUPERCLASSES): (
;;; You are using the compiler in development mode (compilation-speed = 3)
;;; Generation of full safety checking code is enabled (safety = 3)
;;; Optimization of tail calls is disabled (speed = 2)
#<Standard-Class STANDARD-OBJECT 51734603>)
   Keyword arg 3 (DIRECT-SLOTS): (#<Standard-Direct-Slot-Definition BAR
45711243>)
   Keyword arg 4 (DIRECT-DEFAULT-INITARGS): NIL
:C  0: Supply a new function
:A  1: Abort to Lisp Top Level

-> :a
Abort to Lisp Top Level
Back to Lisp Top Level

> (defclass foo1 () ((bar1 :initform () :allocation :class)))
#<Standard-Class FOO1 46136323>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;

System:  Apollo Domain/OS SR10.1

LISP: Lucid Common LISP 3.0

PCL: 2/8/90 (beta 2)

                                            Luigi Sarti,Maurizio De Michele