Path: g2news1.google.com!news2.google.com!news4.google.com!feeder.news-service.com!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!usenet-fr.net!nerim.net!proxad.net!feeder1-2.proxad.net!cleanfeed3-b.proxad.net!nnrp13-1.free.fr!not-for-mail
Content-Type: text/plain; charset="ISO-8859-1"
From: Gerhard <felds...@gmx.net>
Date: Mon, 25 Jul 2011 10:20:35 +0200
User-Agent: KNode/4.4.8
Content-Transfer-Encoding: 7Bit
Newsgroups: comp.lang.lisp
Subject: sbcl and lift problem
Followup-To: comp.lang.lisp
MIME-Version: 1.0
Lines: 123
Message-ID: <4e2d2753$0$13105$426a34cc@news.free.fr>
Organization: Guest of ProXad - France
NNTP-Posting-Date: 25 Jul 2011 10:20:35 MEST
NNTP-Posting-Host: 88.165.121.146
X-Trace: 1311582035 news-4.free.fr 13105 88.165.121.146:44379
X-Complaints-To: abuse@proxad.net

Hello,

I am trying to install lift on sbcl 1.0.50 on linux. I get a bunch of 
error messages, and the compilation fails, either with quickload, or 
the version I downloaded from github. The error messages appear to be 
the same either way.

Here are the messages:

CL-USER> (ql:quickload "lift")
To load "lift":
  Load 1 ASDF system:
    lift
; Loading "lift"
.

; file: /home/gerhard/.sbcl/site/lift/dev/lift.lisp
; in: DEFCONDITION (TEST-TIMEOUT-CONDITION :SLOT-NAMES (MESSAGE))
;     (LIFT::DEFCONDITION
;      (LIFT::TEST-TIMEOUT-CONDITION :SLOT-NAMES (LIFT::MESSAGE))
;      (LIFT:TEST-CONDITION)
;      ((LIFT::MAXIMUM-TIME :INITFORM LIFT:*TEST-MAXIMUM-TIME*))
;      "Test ran out of time (longer than ~S-second~:P)" 
LIFT::MAXIMUM-TIME)
; 
; caught ERROR:
;   (during macroexpansion of (DEFCONDITION (TEST-TIMEOUT-CONDITION 
:SLOT-NAMES ...) ...))
;   error while parsing arguments to DESTRUCTURING-BIND:
;     unknown keyword: :SLOT-NAMES; expected one of :EXPORTP, 
:DOCUMENTATION

; in: DEFCONDITION (ENSURE-FAILED-ERROR :SLOT-NAMES (MESSAGE))
;     (LIFT::DEFCONDITION (LIFT::ENSURE-FAILED-ERROR :SLOT-NAMES 
(LIFT::MESSAGE))
;                         (LIFT:TEST-CONDITION) ((LIFT::ASSERTION 
:INITFORM ""))
;                         "Ensure failed: ~S ~@[(~a)~]" 
LIFT::ASSERTION
;                         LIFT::MESSAGE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFCONDITION (ENSURE-FAILED-ERROR 
:SLOT-NAMES ...) ...))
;   error while parsing arguments to DESTRUCTURING-BIND:
;     unknown keyword: :SLOT-NAMES; expected one of :EXPORTP, 
:DOCUMENTATION

; in: DEFCONDITION (ENSURE-NULL-FAILED-ERROR :SLOT-NAMES (MESSAGE))
;     (LIFT::DEFCONDITION
;      (LIFT::ENSURE-NULL-FAILED-ERROR :SLOT-NAMES (LIFT::MESSAGE))
;      (LIFT::ENSURE-FAILED-ERROR)
;      ((LIFT::VALUE :INITFORM "") (LIFT::ASSERTION :INITFORM ""))
;      "Ensure null failed: ~s evaluates to ~s ~@[(~a)~]" 
LIFT::ASSERTION
;      LIFT::VALUE LIFT::MESSAGE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFCONDITION (ENSURE-NULL-FAILED-ERROR 
:SLOT-NAMES ...) ...))
;   error while parsing arguments to DESTRUCTURING-BIND:
;     unknown keyword: :SLOT-NAMES; expected one of :EXPORTP, 
:DOCUMENTATION
.
; in:
;      DEFCONDITION (ENSURE-NOT-SAME :SLOT-NAMES
;                (FIRST-VALUE SECOND-VALUE TEST MESSAGE))
;     (LIFT::DEFCONDITION
;      (LIFT::ENSURE-NOT-SAME :SLOT-NAMES
;       (LIFT::FIRST-VALUE LIFT::SECOND-VALUE LIFT::TEST 
LIFT::MESSAGE))
;      (LIFT:FAILED-COMPARISON-CONDITION) NIL
;      "Ensure-same: ~S is not ~a to ~S~@[ (~a)~]" LIFT::FIRST-VALUE
;      (LIFT::TEST-FUNCTION-NAME LIFT::TEST) LIFT::SECOND-VALUE 
LIFT::MESSAGE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFCONDITION (ENSURE-NOT-SAME :SLOT-
NAMES ...) ...))
;   error while parsing arguments to DESTRUCTURING-BIND:
;     unknown keyword: :SLOT-NAMES; expected one of :EXPORTP, 
:DOCUMENTATION

; in:
;      DEFCONDITION (ENSURE-SAME :SLOT-NAMES (FIRST-VALUE SECOND-VALUE 
TEST MESSAGE))
;     (LIFT::DEFCONDITION
;      (LIFT:ENSURE-SAME :SLOT-NAMES
;                        (LIFT::FIRST-VALUE LIFT::SECOND-VALUE 
LIFT::TEST
;                         LIFT::MESSAGE))
;      (LIFT:FAILED-COMPARISON-CONDITION) NIL
;      "Ensure-different: ~S is ~a to ~S~@[ (~a)~]" LIFT::FIRST-VALUE
;      (LIFT::TEST-FUNCTION-NAME LIFT::TEST) LIFT::SECOND-VALUE 
LIFT::MESSAGE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFCONDITION (ENSURE-SAME :SLOT-NAMES 
...) ...))
;   error while parsing arguments to DESTRUCTURING-BIND:
;     unknown keyword: :SLOT-NAMES; expected one of :EXPORTP, 
:DOCUMENTATION
..............

If I just accept every time, I get the following summary:

                      ; compilation unit finished
                      ;   Undefined functions:
                      ;     LIFT::ACCUMULATE-PROBLEM LIFT:MAKE-TEST-
RESULT LIFT::PRINT-TEST-PROBLEM LIFT:TESTSUITE-LOG-DATA LIFT::WITH-
PROFILE-REPORT-FN
                      ;   Undefined variable:
                      ;     LIFT::*PROFILE-STYLE*
                      ;   caught 7 ERROR conditions

("lift")

Any idea whether the problem is with sbcl or with lift (or with 
something else)?

Thank you in advance for your help,

Gerhard