From nablaone at gmail.com  Mon Oct  3 21:50:07 2005
From: nablaone at gmail.com (=?ISO-8859-2?Q?Rafa=B3_Strzali=F1ski?=)
Date: Mon, 3 Oct 2005 23:50:07 +0200
Subject: [Cl-store-devel] sbcl 0.9.5.3 Compilation error & patch
Message-ID: <f1384930510031450s121622fat7408ccbb77e10c31@mail.gmail.com>

I tried to compile cl-store under sbcl 0.9.5.3. It gives me error:

There is no class named SB-KERNEL:INSTANCE.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {9902A41}> on
#<CL-STORE.SYSTEM:NON-REQUIRED-FILE "custom" {96143E9}>.
  1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {9902A41}> on
#<CL-STORE.SYSTEM:NON-REQUIRED-FILE "custom" {96143E9}> as having been
successful.
  2: [ABORT] Abort SLIME compilation.

I think this patch should fix this problem. It works for me but I'm
not sure it's a good general solution.


Index: sbcl/custom.lisp
===================================================================
RCS file: /project/cl-store/cvsroot/cl-store/sbcl/custom.lisp,v
retrieving revision 1.8
diff -u -w -r1.8 custom.lisp
--- sbcl/custom.lisp	5 May 2005 12:58:57 -0000	1.8
+++ sbcl/custom.lisp	3 Oct 2005 21:39:38 -0000
@@ -53,7 +53,7 @@

 (defvar *sbcl-struct-inherits*
   (list (get-layout (find-class t))
-        (get-layout (find-class 'sb-kernel:instance))
+        (get-layout (find-class 'sb-pcl::slot-object))
         (get-layout (find-class 'cl:structure-object))))

 (defstruct (struct-def (:conc-name sdef-))

--
Best regards,
Rafal Strzalinski (nabla)


From sdr at jhb.ucs.co.za  Tue Oct  4 08:21:08 2005
From: sdr at jhb.ucs.co.za (Sean Ross)
Date: 04 Oct 2005 10:21:08 +0200
Subject: [Cl-store-devel] sbcl 0.9.5.3 Compilation error & patch
In-Reply-To: <f1384930510031450s121622fat7408ccbb77e10c31@mail.gmail.com>
References: <f1384930510031450s121622fat7408ccbb77e10c31@mail.gmail.com>
Message-ID: <87psql8zgr.fsf@sdr.ucs.co.za>

Rafa? Strzali?ski <nablaone at gmail.com> writes:

> I tried to compile cl-store under sbcl 0.9.5.3. It gives me error:
> 
> There is no class named SB-KERNEL:INSTANCE.
>    [Condition of type SIMPLE-ERROR]
 
Hi Rafa?,

 Thanks for the report.

 I've committed a fix to cvs which allows this to be compiled 
 with pre 0.9.5 SBCL builds and current ones.

 If you don't have access to cvs replace the current definition
 of *sbcl-struct-inherits* with the following.

 (defvar *sbcl-struct-inherits*
  `(,(get-layout (find-class t))
    ,@(when-let (class (find-class 'sb-kernel:instance nil))
        (list (get-layout class)))
    ,(get-layout (find-class 'cl:structure-object))))

 I've left out sb-pcl::slot-object as one of the superclasses
 as this caused the structure-definition test to fail, I'm 
 not so sure why this class is on a structure objects class
 precedence list but it SBCL complains when it there.


Cheers, 
  Sean.


-- 
"My doctor says that I have a malformed public-duty gland and a
 natural  deficiency in moral fibre," he muttered to himself, "and
 that I am therefore excused from saving Universes."
 - Life, the Universe, and Everything     Douglas Adams.

Confidentiality Notice: http://ucs.co.za/conf.html