trivial-timeout-test doesn't build

[xach]

It looks like tests/tests.lisp uses lift::while-measuring in a way that is incompatible with its current API. I get an error when trying to build, as SBCL derives that there aren't enough values to bind.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-timeout/8611effb9a684ce7dbf65554d7b423492e4c44fb/trivial-timeout-20180126-darcs/tests/tests.lisp
; in: ADDTEST (TRIVIAL-TIMEOUT-TEST)
;     (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75)
; 
; caught WARNING:
;   Derived type of (CAR MEASURES) is (VALUES NULL &OPTIONAL), conflicting with its asserted type REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-timeout/8611effb9a684ce7dbf65554d7b423492e4c44fb/trivial-timeout-20180126-darcs/tests/tests.lisp
; in: ADDTEST (TRIVIAL-TIMEOUT-TEST)
;     (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75)
; 
; caught WARNING:
;   Derived type of (CAR MEASURES) is (VALUES NULL &OPTIONAL), conflicting with its asserted type REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">

I don't know what the fix is - a trivial update to the call site didn't help.

[gwkkwg]

Thanks Zach, I will try to look into this this weekend.

…

On Jan 26, 2018, at 8:48 AM, Zach Beane ***@***.***> wrote: It looks like tests/tests.lisp uses lift::while-measuring in a way that is incompatible with its current API. I get an error when trying to build, as SBCL derives that there aren't enough values to bind. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-timeout/8611effb9a684ce7dbf65554d7b423492e4c44fb/trivial-timeout-20180126-darcs/tests/tests.lisp ; in: ADDTEST (TRIVIAL-TIMEOUT-TEST) ; (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75) ; ; caught WARNING: ; Derived type of (CAR MEASURES) is (VALUES NULL &OPTIONAL), conflicting with its asserted type REAL. ; See also: ; The SBCL Manual, Node "Handling of Types" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-timeout/8611effb9a684ce7dbf65554d7b423492e4c44fb/trivial-timeout-20180126-darcs/tests/tests.lisp ; in: ADDTEST (TRIVIAL-TIMEOUT-TEST) ; (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75) ; ; caught WARNING: ; Derived type of (CAR MEASURES) is (VALUES NULL &OPTIONAL), conflicting with its asserted type REAL. ; See also: ; The SBCL Manual, Node "Handling of Types" Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests"> I don't know what the fix is - a trivial update to the call site didn't help. — You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub <#1>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AAJ3IKtlTuU_jXgTbETgByvUh5-e5SQRks5tOdfJgaJpZM4RuUqN>.

[Hellseher]

Hi

I've got some issue with deprecated functionality as well during tests

WARNING:
   Reference to deprecated function (SB-DEBUG:BACKTRACE) from GET-BACKTRACE-AS-STRING
; compiling file "/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/tests/package.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE #:COMMON-LISP-USER)
; processing (DEFPACKAGE #:TRIVIAL-TIMEOUT-TEST ...)

; wrote /gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/lib/common-lisp/sbcl/trivial-timeout/tests/package-tmpGHU3ALSV.fasl
; compilation finished in 0:00:00.000
; compiling file "/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/tests/tests.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE #:TRIVIAL-TIMEOUT-TEST)
; processing (DEFTESTSUITE TRIVIAL-TIMEOUT-TEST ...)
; processing (ADDTEST (TRIVIAL-TIMEOUT-TEST) ...)
; file: /gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/tests/tests.lisp
; in: ADDTEST (TRIVIAL-TIMEOUT-TEST)
;     (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75)
; 
; caught WARNING:
;   Derived type of (CAR MEASURES) is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/tests/tests.lisp
; in: ADDTEST (TRIVIAL-TIMEOUT-TEST)
;     (< (FIRST TRIVIAL-TIMEOUT-TEST::MEASURES) 0.75)
; 
; caught WARNING:
;   Derived type of (CAR MEASURES) is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     REAL.
;   See also:
;     The SBCL Manual, Node "Handling of Types"


; wrote /gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/lib/common-lisp/sbcl/trivial-timeout/tests/tests-tmpAAURSO1.fasl
; compilation finished in 0:00:00.032
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                                          {1001880103}>:
  COMPILE-FILE-ERROR while
  compiling #<CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001880103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100714CC63}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100714CC63}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100714CC63}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "trivial-timeout-test" "setup" "tests">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100589ABA3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100589ABA3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "trivial-timeout"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "trivial-timeout">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM "trivial-timeout">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:TEST-OP "trivial-timeout")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "trivial-timeout") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100588DBBB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100588AA9B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:TEST-OP "trivial-timeout") [fast-method]
22: (ASDF/OPERATE:TEST-SYSTEM "trivial-timeout")
23: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:TEST-SYSTEM "trivial-timeout") #<NULL-LEXENV>)
24: (EVAL (ASDF/OPERATE:TEST-SYSTEM "trivial-timeout"))
25: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(asdf:load-asd (truename \"/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/trivial-timeout-test.asd\"))") (:EVAL . "(asdf:load-asd (truename \"/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/trivial-timeout.asd\"))") (:EVAL . "(when (uiop:file-exists-p \"trivial-timeout-tests.asd\") (asdf:load-asd (truename \"trivial-timeout-tests.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"trivial-timeout-test.asd\") (asdf:load-asd (truename \"trivial-timeout-test.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd (truename \"tests.asd\")))") (:EVAL . "(when (uiop:file-exists-p \"test.asd\") (asdf:load-asd (truename \"test.asd\")))") (:EVAL . "(asdf:test-system \"trivial-timeout\")") (:QUIT)))
26: (SB-IMPL::TOPLEVEL-INIT)
27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
28: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
29: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 2 WARNING conditions
command "/gnu/store/wyfbw52srslpf3cbyjzfxhd16n7ilk91-sbcl-2.1.0/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/trivial-timeout-test.asd\"))" "--eval" "(asdf:load-asd (truename \"/gnu/store/zka7vhbkxslsc83maw6b00z8gfkar7ll-sbcl-trivial-timeout-0.1.5-1.feb8693/share/common-lisp/sbcl/trivial-timeout/trivial-timeout.asd\"))" "--eval" "(when (uiop:file-exists-p \"trivial-timeout-tests.asd\") (asdf:load-asd (truename \"trivial-timeout-tests.asd\")))" "--eval" "(when (uiop:file-exists-p \"trivial-timeout-test.asd\") (asdf:load-asd (truename \"trivial-timeout-test.asd\")))" "--eval" "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd (truename \"tests.asd\")))" "--eval" "(when (uiop:file-exists-p \"test.asd\") (asdf:load-asd (truename \"test.asd\")))" "--eval" "(asdf:test-system \"trivial-timeout\")" failed with status 1
builder for `/gnu/store/7xbjpfc6l560jf5yrdvp3g4ry920hcrn-sbcl-trivial-timeout-0.1.5-1.feb8693.drv' failed with exit code 1

[gwkkwg]

Hi Hellseher,

My apologies but I'm really not maintaining this library or Lisping anymore. If you'd like to take over, let me know.