msvc build is broken

[Arseny S. <am...@ic...>]

Hi,

  Sam, could you please give me a hand (another one) ? I'm trying to
  check nobject_out with MSVC build, but it's now broken too (but
  luckily nobject_out is working). Now when condition.lisp is being
  loaded line

(clos:defclass condition () ())

  causes an error in record.d (pmake_instance): list (variable l) contains
  the following:

(#(CLOS::ID (:ID) 1 (#<CLOSURE CLOS::DEFAULT-ID>) (COMMON-LISP::SVREF (COMMON-LISP::GET (COMMON-LISP::QUOTE CLOS::CLASS)
 (COMMON-LISP::QUOTE SYSTEM::DEFSTRUCT-DESCRIPTION)) 4) COMMON-LISP::T COMMON-LISP::NIL #:ID)
 #(CLOS::METACLASS (:METACLASS) 2 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:METACLASS)
 #(CLOS::CLASSNAME (:CLASSNAME) 3
  (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:CLASSNAME)
 #(CLOS::DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 4 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:DIRECT-SUPERCLASSES)
 #(CLOS::ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 5 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:ALL-SUPERCLASSES)
 #(CLOS::PRECEDENCE-LIST (:PRECEDENCE-LIST) 6 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:PRECEDENCE-LIST)
 #(CLOS::SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 7 (COMMON-LISP::NIL . #<varobject type=0 address=0x1A3D5E80>) CLOS::EMPTY-HT COMMON-LISP::T COMMON-LISP::NIL #:SLOT-LOCATION-TABLE)
 #(CLOS::DIRECT-SUBCLASSES (:DIRECT-SUBCLASSES) 8 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:DIRECT-SUBCLASSES)
 #(CLOS::SLOTS (:SLOTS) 9
   (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:SLOTS)
 #(CLOS::DEFAULT-INITARGS (:DEFAULT-INITARGS)
   10 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:DEFAULT-INITARGS)
 #(CLOS::VALID-INITARGS (:VALID-INITARGS) 11 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:VALID-INITARGS)
 #(CLOS::INSTANCE-SIZE (:INSTANCE-SIZE) 12 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:INSTANCE-SIZE)
 #(CLOS::SHARED-SLOTS (:SHARED-SLOTS) 13 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:SHARED-SLOTS)
 #(CLOS::DIRECT-SLOTS (:DIRECT-SLOTS) 14 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T COMMON-LISP::NIL #:DIRECT-SLOTS)
 #(CLOS::DIRECT-DEFAULT-INITARGS (:DIRECT-DEFAULT-INITARGS) 15 (COMMON-LISP::NIL) COMMON-LISP::NIL COMMON-LISP::T
   COMMON-LISP::NIL #:DIRECT-DEFAULT-INITARGS))
  
which is not the list of conses. So Car and Cdr applied to
default_initarg result in invalid objects. You have been
working recently on CLOS, maybe this tells you something?


-- 
Best regards,
 Arseny                          mailto:am...@vt...