[PATCH] SBCL support

This is a multi-part message in MIME format.
--------------020408020607040205030408
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

I forgot to mention that I've been using SBCL (when we encountered the 
earlier problem I immediately tried it in CMUCL and CLISP; both 
exhibited the same behavior).  I have a patch to enable support for SBCL 
which works for me.  SBCL is essentially CMUCL with some differences in 
packaging and so forth.

-Andy

--------------020408020607040205030408
Content-Type: text/plain;
 name="lisa-2.1.sbcl-support.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="lisa-2.1.sbcl-support.patch"

diff -bur --ignore-matching-lines='\$Revision' --ignore-matching-lines='\$Id' --exclude CVS --exclude '*html' lisa-temp/lisa/lisa.system lisa/lisa.system
--- lisa-temp/lisa/lisa.system	2005-07-08 14:04:55.547582067 -0500
+++ lisa/lisa.system	2005-06-20 19:23:39.000000000 -0500
@@ -51,9 +51,11 @@
   (translate-logical-pathname "lisa:lib;lispworks;")
   #+CMU
   (translate-logical-pathname "lisa:lib;cmucl;")
+  #+SBCL
+  (translate-logical-pathname "lisa:lib;sbcl;")
   #+CLISP
   (translate-logical-pathname "lisa:lib;clisp;")
-  #-(or Allegro LispWorks CMU CLISP)
+  #-(or Allegro LispWorks CMU CLISP SBCL)
   (error "Unsupported implementation."))
 
 (defun lisa-debugger ()
@@ -90,7 +92,7 @@
        '("engine" "core20" "packages" "reflect" "utils" "implementations"
          "rete-compiler" "debugger" "config"))
       (lisa-supported-lisps
-       '("acl" "lispworks" "cmucl" "clisp")))
+       '("acl" "lispworks" "cmucl" "sbcl" "clisp")))
   (dolist (lisp lisa-supported-lisps)
     (dolist (dir lisa-binary-directories)
       (let ((pathname
diff -bur --ignore-matching-lines='\$Revision' --ignore-matching-lines='\$Id' --exclude CVS --exclude '*html' lisa-temp/lisa/src/packages/pkgdecl.lisp lisa/src/packages/pkgdecl.lisp
--- lisa-temp/lisa/src/packages/pkgdecl.lisp	2005-07-08 14:04:56.222465512 -0500
+++ lisa/src/packages/pkgdecl.lisp	2005-06-20 19:23:40.000000000 -0500
@@ -94,6 +95,10 @@
   (:import-from "CLOS"
                 "FINALIZE-INHERITANCE"
                 "CLASS-FINALIZED-P")
+  #+SBCL
+  (:import-from "SB-MOP"
+                "FINALIZE-INHERITANCE"
+                "CLASS-FINALIZED-P")
   (:export "CLASS-SLOT-LIST"
            "FINALIZE-INHERITANCE"
            "ENSURE-CLASS"
diff -bur --ignore-matching-lines='\$Revision' --ignore-matching-lines='\$Id' --exclude CVS --exclude '*html' lisa-temp/lisa/src/reflect/reflect.lisp lisa/src/reflect/reflect.lisp
--- lisa-temp/lisa/src/reflect/reflect.lisp	2005-07-08 14:04:56.263458433 -0500
+++ lisa/src/reflect/reflect.lisp	2005-06-20 19:23:40.000000000 -0500
@@ -127,7 +127,9 @@
 (defun find-direct-superclasses (class)
   #+clisp
   (remove-if #'is-standard-classp (clos::class-direct-superclasses class))
-  #-clisp
+  #+sbcl
+  (remove-if #'is-standard-classp (sb-pcl:class-direct-superclasses class))
+  #-(or clisp sbcl)
   (remove-if #'is-standard-classp (clos:class-direct-superclasses class)))
              
 (defun class-all-superclasses (class-or-symbol)

--------------020408020607040205030408--


-------------------------------------------------------
This SF.Net email is sponsored by the 'Do More With Dual!' webinar happening
July 14 at 8am PDT/11am EDT. We invite you to explore the latest in dual
core and dual graphics technology at this free one hour event hosted by HP,
AMD, and NVIDIA.  To register visit http://www.hp.com/go/dualwebinar