On Mar 27, 12:52 am, "Vagif Verdi" <···········@gmail.com> wrote:
> Anyone had successfully run Lisa on sbcl ?
> Lisa's home page and SF forum look abandoned, so i'm trying to ask
> here.
>
> It's giving me an errors.
It's not abandoned (there's typically some daily activity), just
neglected. I simply don't have the time these days.
I just had a question like this from another Lisa user. He was
industrious and fixed the issue. Here's the patch (and some comments
from the user).
hth, david
Patch follows:
------------------------------------------------------------------------
$ diff -u3 ./src/packages/pkgdecl.lisp.orig ./src/packages/
pkgdecl.lisp
--- ./src/packages/pkgdecl.lisp.orig 2007-03-01 16:53:48.000000000
+0900
+++ ./src/packages/pkgdecl.lisp 2007-03-01 16:54:04.000000000 +0900
@@ -33,6 +33,7 @@
`(clos ,@(package-nicknames 'pcl)))))
(defpackage "LISA"
+ (:use "COMMON-LISP")
(:export "USE-LISA" "DEFRULE" "DEFTEMPLATE" "ASSERT" "DEFIMPORT"
"FACTS"
"RULES" "AGENDA" "RESET" "CLEAR" "RUN" "RETRACT" "MODIFY"
"WATCH"
"UNWATCH" "WATCHING" "HALT" "ASSERT-INSTANCE" "RETRACT-
INSTANCE"
-----------------------------------------------------------------------------------------
After fixing this, another problem apears. With google help I fix it
too.
http://bc.tech.coop/blog/040826.html, bottom of the page - for sbcl
using of clos:class-direct-superclasses should be writen as follows:
----------------------------------------------------------------------------------------
$ diff -u3 /home/rk/tmp/build/lisa/src/reflect/reflect.lisp.orig
/home/rk/tmp/build/lisa/src/reflect/reflect.lisp
--- /home/rk/tmp/build/lisa/src/reflect/reflect.lisp.orig
2007-03-01 17:03:31.000000000 +0900
+++ /home/rk/tmp/build/lisa/src/reflect/reflect.lisp 2007-03-01
17:04:43.000000000 +0900
@@ -125,10 +125,7 @@
(eq (class-name class) t)))
(defun find-direct-superclasses (class)
- #+clisp
- (remove-if #'is-standard-classp (clos::class-direct-superclasses
class))
- #-clisp
- (remove-if #'is-standard-classp (clos:class-direct-superclasses
class)))
+ (remove-if #'is-standard-classp (sb-mop:class-direct-superclasses
class)))
(defun class-all-superclasses (class-or-symbol)
(labels ((find-superclasses (class-list superclass-list)
----------------------------------------------------------------------------------------
But it wasn't last trouble :)
sbcl raise the error:
The constant +NO-META-DATA-REASON+ is being redefined (from
"LISA doesn't know about the template named by (~S). Either the name
was
mistyped or you forgot to write a DEFTEMPLATE specification for
it."
to "LISA doesn't know about the template named by (~S). Either the
name was
mistyped or you forgot to write a DEFTEMPLATE specification for
it.")
in file "src/2.0-core/meta.lisp"
but this error can be ignored, so, I press CONTINUE, and compilation
was finished succefully:
; compilation unit finished
; caught 13 STYLE-WARNING conditions
; printed 6 notes
TADAAA! :)
Now it works.
Thx David.
I actually found this guys blog on livejournal earlier and asked a
question there. He gave me this same patch. So Lisa is working ok
now. :)
Are you going to include it into next release of Lisa ?
On Mar 27, 9:16 pm, "Vagif Verdi" <···········@gmail.com> wrote:
> Thx David.
> I actually found this guys blog on livejournal earlier and asked a
> question there. He gave me this same patch. So Lisa is working ok
> now. :)
>
> Are you going to include it into next release of Lisa ?
Yes, I will. I wish I could promise when that would be...
dey