[Bese-devel] Multiple errors in the latest ucw_dev

[Dan Beauchesne]

Hi list,

There are a few different errors with the latest checkout of ucw_dev.
This is with SBCL 0.9.13.52, and latest dependencies:

I posted this earlier, but I'm not sure it was noticed. There is a bug
in load-applications (config.lisp) where concatenate is being passed a
pathname instead of a string:

(let ((directory (or applications-directory
    *ucw-applications-directory*)))
    (when directory
      (unless (cl-fad:directory-exists-p directory)
	(error "~S is not a valid directory" directory))
      (push (concatenate 'string directory "/") asdf:*central-registry*)
      (prepare-applications-variables directory))

For a quick workaround I passed it a string instead (I'm not sure what
the base problem is), and came onto a problem with name conflicts
between the ucw package and cl-l10n. It seems the symbols DAY, MONTH,
and YEAR in the cl-l10n package conflict with ucw's DAY, MONTH, and
YEAR.

After doing SBCL's name resolution, I came upon this error:

; compiling (IN-PACKAGE :IT.BESE.UCW-USER)
; compiling (EVAL-ALWAYS (IT.BESE.UCW::IMPORT-CL-L10N-SYMBOLS #))
; compiling (ENABLE-SHARPQUOTE-READER)
; compiling (DEFPACKAGE :IT.BESE.UCW.LANG ...)
; compiling (EVAL-ALWAYS (LOCALE "en_US") ...)
;; Loading locale from /home/dan/src/cl-l10n_0.3/locales/en_US.

debugger invoked on a UNDEFINED-FUNCTION in thread #<THREAD "initial thread" {A6875C9}>:
  The function RELOAD-RESOURCES is undefined.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry performing #<ASDF:COMPILE-OP NIL {B36DBE1}> on
              #<ASDF:CL-SOURCE-FILE "l10n" {C584989}>.
  1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {B36DBE1}> on
              #<ASDF:CL-SOURCE-FILE "l10n" {C584989}> as having been successful.
  2: [ABORT ] Exit debugger, returning to top level.

("bogus stack frame")

0] backtrace 10

0: ("bogus stack frame")
1: (SB-IMPL::%EVAL 0 #<NULL-LEXENV>)
2: (SB-INT:EVAL-IN-LEXENV
    (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES))
    #<NULL-LEXENV>)
3: ((FLET SB-C::DEFAULT-PROCESSOR)
    (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
4: (SB-C::PROCESS-TOPLEVEL-FORM
    (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES))
    ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
       (LOCALE "en_US")
       (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
     SB-C::ORIGINAL-SOURCE-START 0 4)
    (:COMPILE-TOPLEVEL))
5: (SB-C::PROCESS-TOPLEVEL-PROGN
    ((LOCALE "en_US") (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
    ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
       (LOCALE "en_US")
       (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
     SB-C::ORIGINAL-SOURCE-START 0 4)
    (:COMPILE-TOPLEVEL))
6: (SB-C::PROCESS-TOPLEVEL-FORM
    (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
      (LOCALE "en_US")
      (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
    (SB-C::ORIGINAL-SOURCE-START 0 4)
    NIL)
7: ((FLET SB-C::DEFAULT-PROCESSOR)
    (EVAL-ALWAYS (LOCALE "en_US")
                 (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES))))
8: (SB-C::PROCESS-TOPLEVEL-FORM
    (EVAL-ALWAYS (LOCALE "en_US")
                 (WITH-RESOURCE-PACKAGE :LANG (RELOAD-RESOURCES)))
    (SB-C::ORIGINAL-SOURCE-START 0 4)
    NIL)
9: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)

I'm quite new to lisp so I'm not sure if this is between ucw and
cl-l10n or just cl-l10n. If it is the latter I'll post it on the
appropriate list. 

Thanks guys,

--

Dan Beauchesne
dbeauchesne -at- gmail -dot- com