[Bese-devel] UCW Compilation error

[aditya siram]

Hi all,
I am trying ucw-ajax for the first time in SBCL 1.0.15. I have
installed and loaded all the dependencies, however I get the error
below running start.lisp. Is this an issue with my version of cl-def?

Thanks ...
deech

> (load "/home/deech/MyDownloads/ucw_ajax/etc/start.lisp")
...
; compiling file
"/home/deech/MyDownloads/ucw_ajax/src/rerl/rerl-utils.lisp" (written
24 JUL 2008 04:41:06 PM):
; compiling (IN-PACKAGE :IT.BESE.UCW)
; compiling (DEF (FUNCTION I) ...)
; compiling (DEF (FUNCTION I) ...)
; compiling (DEF (FUNCTION I) ...)
; compiling (DEF (FUNCTION I) ...)
; compiling (DEF WITH-MACRO ...)

; file: /home/deech/MyDownloads/ucw_ajax/src/rerl/rerl-utils.lisp
; in: DEF WITH-MACRO
;     (CL-DEF:DEF CL-DEF:WITH-MACRO IT.BESE.UCW::WITH-LOCK-HELD-ON-SERVER
;               (IT.BESE.UCW::SERVER)
;               (MULTIPLE-VALUE-PROG1
;                   (PROGN
;                    (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                     "Entering with-lock-held-on-server for server ~S
in thread ~S"
;                     IT.BESE.UCW::SERVER (BORDEAUX-THREADS:CURRENT-THREAD))
;                    (BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD (#)
;                                                               CL-DEF:-BODY-))
;                 (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                  "Leaving with-lock-held-on-server for server ~S in thread ~S"
;                  IT.BESE.UCW::SERVER (BORDEAUX-THREADS:CURRENT-THREAD))))
;
; caught ERROR:
;   (during macroexpansion of (DEF WITH-MACRO ...))
;   Please insert at least one (-body-) form in the body of a with-macro

; compiling (DEF WITH-MACRO ...)

; file: /home/deech/MyDownloads/ucw_ajax/src/rerl/rerl-utils.lisp
; in: DEF WITH-MACRO
;     (CL-DEF:DEF CL-DEF:WITH-MACRO IT.BESE.UCW:WITH-LOCK-HELD-ON-APPLICATION
;               (IT.BESE.UCW::APPLICATION)
;               (ITERATE:ITER
;                (ITERATE:FOR (NIL IT.BESE.UCW::SESSION) :IN-HASHTABLE
;                 (IT.BESE.UCW::APPLICATION.SESSION-TABLE
;                  IT.BESE.UCW::APPLICATION))
;                (ASSERT
;                 (NOT (IT.BESE.UCW::SESSION-LOCK-HELD-P IT.BESE.UCW::SESSION))
;                 NIL
;                 "You are trying to lock the application ~A while one
of its session ~A is locked by you"
;                 IT.BESE.UCW::APPLICATION IT.BESE.UCW::SESSION))
;               (MULTIPLE-VALUE-PROG1
;                   (PROGN
;                    (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                     "Entering with-lock-held-on-application for app
~S in thread ~S"
;                     IT.BESE.UCW::APPLICATION
(BORDEAUX-THREADS:CURRENT-THREAD))
;                    (BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD (#)
;                                                               CL-DEF:-BODY-))
;                 (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                  "Leaving with-lock-held-on-application for app ~S
in thread ~S"
;                  IT.BESE.UCW::APPLICATION (BORDEAUX-THREADS:CURRENT-THREAD))))
;
; caught ERROR:
;   (during macroexpansion of (DEF WITH-MACRO ...))
;   Please insert at least one (-body-) form in the body of a with-macro

; compiling (DEF WITH-MACRO ...)

; file: /home/deech/MyDownloads/ucw_ajax/src/rerl/rerl-utils.lisp
; in: DEF WITH-MACRO
;     (CL-DEF:DEF CL-DEF:WITH-MACRO IT.BESE.UCW:WITH-LOCK-HELD-ON-SESSION
;               (IT.BESE.UCW::SESSION)
;               (MULTIPLE-VALUE-PROG1
;                   (PROGN
;                    (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                     "Entering with-lock-held-on-session for ~S in thread ~S"
;                     IT.BESE.UCW::SESSION (BORDEAUX-THREADS:CURRENT-THREAD))
;                    (BORDEAUX-THREADS:WITH-RECURSIVE-LOCK-HELD (#)
;                                                               CL-DEF:-BODY-))
;                 (IT.BESE.UCW::UCW.RERL.THREADS.DRIBBLE
;                  "Leaving with-lock-held-on-session for ~S in thread ~S"
;                  IT.BESE.UCW::SESSION (BORDEAUX-THREADS:CURRENT-THREAD))))
;
; caught ERROR:
;   (during macroexpansion of (DEF WITH-MACRO ...))
;   Please insert at least one (-body-) form in the body of a with-macro