[hunchentoot-devel] cl-webdav errors

[Cyrus Harmon]

I'm getting some errors attempting to build the latest cl-webdav with  
the latest ediware/sbcl combo.

1) flex:flexi-stream-encoding-error is undefined. this is fixed by this:

diff --git a/util.lisp b/util.lisp
index 85b3afd..4f85165 100755
--- a/util.lisp
+++ b/util.lisp
@@ -90,5 +90,5 @@ then uses LATIN-1 if that fails."
    ;; LATIN-1...
    (handler-case
        (url-decode string +utf-8+)
-    (flex:flexi-stream-encoding-error ()
+    (flex:external-format-encoding-error ()
        (url-decode string +latin-1+))))

2) perhaps the recent constant dumping stuff in SBCL is giving cl- 
webdav fits here, but I get the following error message:

; compiling file "/Users/sly/src/lisp/cl-webdav/cl-webdav-0.1.2-git/ 
properties.lisp" (written 17 APR 2007 12:42:08 AM):
; compiling (IN-PACKAGE :CL-WEBDAV)
; compiling (DEFUN PROPERTY-EQUAL ...)
; compiling (DEFUN DAV-PROPERTY-FUNCTION ...)

; file: /Users/sly/src/lisp/cl-webdav/cl-webdav-0.1.2-git/ 
properties.lisp
; in: DEFUN DAV-PROPERTY-FUNCTION
;     (ASSOC CL-WEBDAV::PROPERTY CL-WEBDAV::+DAV-PROPERTY-ALIST+ :TEST  
#'STRING=)
; --> LET IF IF IF IF IF IF IF IF IF IF LET
; ==>
;   '("lockdiscovery" . #<CLOSURE # {13A90B0D}>)
;
; caught ERROR:
;   Objects of type FUNCTION can't be dumped into fasl files.

; --> LET IF IF IF IF IF IF IF IF IF IF
; ==>
;   '("lockdiscovery" . #<CLOSURE # {13A90B0D}>)
;
; caught ERROR:
;   Objects of type FUNCTION can't be dumped into fasl files.

; --> LET IF IF IF IF IF IF IF IF IF IF IF LET
; ==>
;   '("supportedlock" . #<CLOSURE # {13A90B1D}>)
;
; caught ERROR:
;   Objects of type FUNCTION can't be dumped into fasl files.

; --> LET IF IF IF IF IF IF IF IF IF IF IF
; ==>
;   '("supportedlock" . #<CLOSURE # {13A90B1D}>)
;
; caught ERROR:
;   Objects of type FUNCTION can't be dumped into fasl files.

; compiling (DEFUN GET-DEAD-PROPERTY ...)


are we attempting to do something out of the CL spec here or is SBCL  
choking on legal code?

thanks,

Cyrus