[Bese-devel] Problems compiling 0.2.0 with CMUCL

[Jan Rychter]

Ok, the continuing saga of problems.

I've gotten past the problems with acl-compat on CMUCL (notably it
having a strange way of loading gray-streams which fails and it
redefining without-package-locks).

I am now at a stage when yaclml and ucw compile and load
fine. 

ucw.mod-lisp also compiles fine, but when I try to load it, I get:

Attempt to modify the locked package COMMON-LISP, by redefining function
STREAM
   [Condition of type LISP::PACKAGE-LOCKED-ERROR]

Restarts:
  0: [CONTINUE] Ignore the lock and continue
  1: [UNLOCK-PACKAGE] Disable package's definition-lock, then continue
  2: [UNLOCK-ALL] Disable all package locks, then continue
  3: [CONTINUE] Return NIL from load of #p"/home/jwr/lisp/ucw-arch/ucw/src/backend/mod-lisp.x86f".
  4: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {58BF623D}> on
#<ASDF:CL-SOURCE-FILE "mod-lisp" {587011D5}>.
  5: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {58BF623D}> on
#<ASDF:CL-SOURCE-FILE "mod-lisp" {587011D5}> as having been successful.
  6: [ABORT] Return to SLIME toplevel.
  7: [ABORT] Return to Top-Level.

Backtrace:
  0: (LISP::REDEFINING-FUNCTION STREAM #<unused-arg>)
  1: (LISP::%SET-FDEFINITION STREAM
                             #<STANDARD-GENERIC-FUNCTION STREAM (0) {58E2AA79}>)
  2: (C::%%DEFUN STREAM
                 #<STANDARD-GENERIC-FUNCTION STREAM (0) {58E2AA79}>
                 NIL
                 NIL)
  3: (C::%%DEFUN 3
                 STREAM
                 #<STANDARD-GENERIC-FUNCTION STREAM (0) {58E2AA79}>
                 NIL
                 ...)[:EXTERNAL]
  4: ((SETF PCL::GDEFINITION)
      #<STANDARD-GENERIC-FUNCTION STREAM (0) {58E2AA79}> STREAM)
  5: (PCL::REAL-ENSURE-GF-USING-CLASS--NULL #<unused-arg> STREAM)
  6: ((FLET PCL::FIX
        PCL::FIX-SLOT-ACCESSORS)
      STREAM STREAM PCL::R)
  7: (PCL::FIX-SLOT-ACCESSORS
      #<STANDARD-CLASS IT.BESE.UCW::MOD-LISP-MESSAGE {58E1C3DD}>
      (#<STANDARD-DIRECT-SLOT-DEFINITION IT.BESE.UCW::HEADERS {58E1CA35}>
       #<STANDARD-DIRECT-SLOT-DEFINITION STREAM {58E1D025}>)
      PCL::ADD)
  8: ("DEFMETHOD SHARED-INITIALIZE :AFTER (STD-CLASS T)" (#(15 5 8) . #())
      #<#1=unused-arg>
      #<STANDARD-CLASS IT.BESE.UCW::MOD-LISP-MESSAGE {58E1C3DD}> #<#1#> ...)
  9: ("PRECOMPILE-RANDOM-CODE-SEGMENTS PCL" #<#1=unused-arg> #<#1#>
      #<STANDARD-CLASS IT.BESE.UCW::MOD-LISP-MESSAGE {58E1C3DD}> T ...)
  10: ("DEFMETHOD MAKE-INSTANCE (CLASS)" #<#1=unused-arg> #<#1#>
       #<STANDARD-CLASS STANDARD-CLASS {28190AE5}>
       (:NAME IT.BESE.UCW::MOD-LISP-MESSAGE :DIRECT-SUPERCLASSES NIL
        :DIRECT-SLOTS ...))
  11: ("DEFMETHOD ENSURE-CLASS-USING-CLASS (NULL T)" #<#1=unused-arg> #<#1#>
       NIL IT.BESE.UCW::MOD-LISP-MESSAGE ...)
  12: (C::DO-CALL #<Code Object "Top-Level Form" {58E1B837}> 66 67 4 ...)
  13: (LISP::FOP-FUNCALL-FOR-EFFECT)
  14: (LISP::LOAD-GROUP
       #<Stream for file "/home/jwr/lisp/ucw-arch/ucw/src/backend/mod-lisp.x86f">)
  15: (LISP::FASLOAD
       #<Stream for file "/home/jwr/lisp/ucw-arch/ucw/src/backend/mod-lisp.x86f">)
[...]


Attempting to continue unlocking the package (option [1]) results in:


Execution of a form compiled with errors:
 (DEFMETHOD PRINT-OBJECT
            ((IT.BESE.UCW::REQUEST IT.BESE.UCW::MOD-LISP-MESSAGE) STREAM)
            (PRINT-UNREADABLE-OBJECT (IT.BESE.UCW::REQUEST STREAM :TYPE T)
              (FORMAT STREAM
                      ":RAW-URL ~S"
                      (IT.BESE.UCW::RAW-URL IT.BESE.UCW::REQUEST))))
   [Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of #p"/home/jwr/lisp/ucw-arch/ucw/src/backend/mod-lisp.x86f".
  1: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {58BF623D}> on
#<ASDF:CL-SOURCE-FILE "mod-lisp" {587011D5}>.
  2: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {58BF623D}> on
#<ASDF:CL-SOURCE-FILE "mod-lisp" {587011D5}> as having been successful.
  3: [ABORT] Return to SLIME toplevel.
  4: [ABORT] Return to Top-Level.

Backtrace:
  0: (C::DO-CALL #<Code Object "Top-Level Form" {58EEA207}> 10 11 4 ...)
  1: (LISP::FOP-FUNCALL-FOR-EFFECT)
  2: (LISP::LOAD-GROUP
      #<Stream for file "/home/jwr/lisp/ucw-arch/ucw/src/backend/mod-lisp.x86f">)
[...]

Any hints?

--J.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20040325/f80af849/attachment.sig>