[cl-dwim-devel] Some problems with current code base

[Kambiz Darabi]

Hello,

I pulled the latest changes today, built a hdws development image and
called develop-system on a system of mine which uses hdws. I get

> While computing the class precedence list of the class named HU.DWIM.ASDF:DEVELOP-OP.
> The class named HU.DWIM.ASDF::NON-PROPAGATING-OPERATION is a forward referenced class.
> The class named HU.DWIM.ASDF::NON-PROPAGATING-OPERATION is a direct superclass of the class named HU.DWIM.ASDF:DEVELOP-OP.

See the full stack trace at the end of this message.

The perform :after develop-op in fluvium.asd looks like this:

> (defmethod perform :after ((o develop-op) (c (eql (find-system :fluvium))))
>   (eval (let ((*package* (find-package :fluvium)))
>           (read-from-string
>            "(progn
>               (setf *debug-on-error* t)
>               (setf (current-locale) (list \"en\"))
>               (setf (running-in-test-mode? *fluvium-application*) t)
>               (startup-server *fluvium-server*))")))
>   (warn "Made sideffects on the following global variables: *debug-on-error*, *locale*."))

With sbcl from attila's github repo (branch hu.dwim) and slime also from
attila's github (branch hu.dwim), I have problems with the slime
inspector. When hitting C-c I, the result sometimes is:

> error in process filter: cond: Keyword argument :type not one of (:id :title :content)
> error in process filter: Keyword argument :type not one of (:id :title :content)

and this what I see in *slime-events*

> (:emacs-rex
>  (swank:init-inspector "*dojo-skin-name*")
>  ":fluvium" t 54)
> (:return
>   (:ok
>    (:content
>     (("Dimensions" ": "
>                    (:value "(6)" 1)
>                    "\n" "Element type" ": "
>                    (:value "CHARACTER" 2)
>                    "\n" "Total size" ": "
>                    (:value "6" 3)
>                    "\n" "Adjustable" ": "
>                    (:value "NIL" 4)
>                    "\n" "Fill pointer" ": "
>                    (:value "NIL" 5)
>                    "\n" ...)
>      46 0 500)
>     :id 12 :title "#<(SIMPLE-ARRAY CHARACTER (6)) {100D07BA7F}>" :type "(SIMPLE-ARRAY CHARACTER (6))" :type-id 0))
>   54)

And a small glitch: I get annoying warnings (cerrors) from hu.dwim.uri,
hu.dwim.quasi-quote.js, and hu.dwim.web-server:

> also exports the following symbols:
>             <list of exported symbols>
> ...


I would be happy if any of you had some hints as how to resolve these
problems.

Thanks


Kami


> While computing the class precedence list of the class named HU.DWIM.ASDF:DEVELOP-OP.
> The class named HU.DWIM.ASDF::NON-PROPAGATING-OPERATION is a forward referenced class.
> The class named HU.DWIM.ASDF::NON-PROPAGATING-OPERATION is a direct superclass of the class named HU.DWIM.ASDF:DEVELOP-OP.
>    [Condition of type SIMPLE-ERROR]
> Restarts:
>  0: [RETRY] Retry SLIME REPL evaluation request.
>  1: [*ABORT] Return to SLIME's top level.
>  2: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {100CBD31C3}>)
> 
> Backtrace:
>   0: (SB-PCL::CPL-ERROR #<STANDARD-CLASS DEVELOP-OP> "The class ~A is a forward referenced class.~@ ..)
>   1: (SB-PCL::CPL-FORWARD-REFERENCED-CLASS-ERROR #<STANDARD-CLASS DEVELOP-OP> #<SB-MOP:FORWARD-REFERENCED-CLASS HU.DWIM.ASDF::NON-PROPAGATING-OPERATION>)
>   2: ((LABELS SB-PCL::WALK :IN SB-PCL::COMPUTE-STD-CPL-PHASE-1) #<STANDARD-CLASS DEVELOP-OP> (#<SB-MOP:FORWARD-REFERENCED-CLASS HU.DWIM.ASDF::NON-PROPAGATING-OPERATION>))
>   3: (SB-PCL::COMPUTE-STD-CPL-PHASE-1 #<STANDARD-CLASS DEVELOP-OP> (#<SB-MOP:FORWARD-REFERENCED-CLASS HU.DWIM.ASDF::NON-PROPAGATING-OPERATION>))
>   4: (SB-PCL::COMPUTE-STD-CPL #<STANDARD-CLASS DEVELOP-OP> (#<SB-MOP:FORWARD-REFERENCED-CLASS HU.DWIM.ASDF::NON-PROPAGATING-OPERATION>))
>   5: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS))
>   6: ((FLET #:WITHOUT-INTERRUPTS-BODY-566 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
>   7: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-PCL::UPDATE-CLASS) {7FFFEEC6D9FB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-threa..
>   8: (SB-PCL::UPDATE-CLASS #<STANDARD-CLASS DEVELOP-OP> T)
>   9: ((:METHOD MAKE-INSTANCE (CLASS)) #<STANDARD-CLASS DEVELOP-OP> #<unavailable &REST argument>) [fast-method]
>  10: (UIOP/UTILITY:ENSURE-GETHASH (DEVELOP-OP :ORIGINAL-INITARGS (:VERBOSE T) :VERBOSE T) #<HASH-TABLE :TEST EQUAL :COUNT 20 {1002B07AE3}> (MAKE-INSTANCE DEVELOP-OP :ORIGINAL-INITARGS (:VERBOSE T) :VERBOSE..
>  11: ((:METHOD OPERATE (SYMBOL T)) DEVELOP-OP :FLUVIUM :VERBOSE T) [fast-method]
>  12: ((SB-PCL::EMF OPERATE) #<unused argument> #<unused argument> DEVELOP-OP :FLUVIUM :VERBOSE T)
>  13: ((LAMBDA NIL :IN OPERATE))
>  14: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN OPERATE) {100FBEE6FB}> :OVERRIDE NIL)
>  15: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN OPERATE) {100FBEE6FB}>)
>  16: ((:METHOD OPERATE :AROUND (T T)) DEVELOP-OP :FLUVIUM :VERBOSE T) [fast-method]
>  17: ((:METHOD OPERATE :AROUND (T T)) DEVELOP-OP :FLUVIUM :VERBOSE T) [fast-method]
>  18: (DEVELOP-SYSTEM :FLUVIUM)