cl-colors2

SBCL 2.1.6 / ASDF 3.3.5

cl-colors2/tests

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors2/28a62f249a29c44c7a078851773d3c33d1352792/cl-colors2-20210721-git/test.lisp
; in: DEFTEST PARSE-HEX-RGB-TEST
;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "#123456"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "123456"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "#135"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "135"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* (LIST CL-COLORS2:RGB 0.47)
;         (MULTIPLE-VALUE-LIST (CL-COLORS2:PARSE-HEX-RGB "#12345678")))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* (LIST CL-COLORS2:RGB 0.47)
;         (MULTIPLE-VALUE-LIST (CL-COLORS2:PARSE-HEX-RGB "12345678")))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* (LIST CL-COLORS2:RGB 0.47)
;         (MULTIPLE-VALUE-LIST (CL-COLORS2:PARSE-HEX-RGB "#1357")))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CLUNIT:ASSERT-EQUALITY* (LIST CL-COLORS2:RGB 0.47)
;         (MULTIPLE-VALUE-LIST (CL-COLORS2:PARSE-HEX-RGB "1357")))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (LIST CL-COLORS2:RGB 0.47)
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "135"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-LIST 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF = 
; --> LENGTH MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "#135"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-LIST 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF = 
; --> LENGTH MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "123456"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-LIST 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF = 
; --> LENGTH MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB "#123456"))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-LIST 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF = 
; --> LENGTH MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors2/28a62f249a29c44c7a078851773d3c33d1352792/cl-colors2-20210721-git/test.lisp
; in: DEFTEST HEX<->RGB-TEST
;     (CLUNIT:ASSERT-EQUALITY* CL-COLORS2:RGB
;         (CL-COLORS2:PARSE-HEX-RGB (CL-COLORS2:PRINT-HEX-RGB CL-COLORS2:RGB)))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET SB-KERNEL:THE* MULTIPLE-VALUE-LIST MULTIPLE-VALUE-LIST 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF = 
; --> LENGTH MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL 
; ==>
;   CL-COLORS2:RGB
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors2/28a62f249a29c44c7a078851773d3c33d1352792/cl-colors2-20210721-git/test.lisp
; in: DEFTEST PARSE-HEX-RGB-RANGES-TEST
;     (CLUNIT:ASSERT-EQUALITY* (CL-COLORS2:RGB 0.07 0.203 0.337)
;         (CL-COLORS2:PARSE-HEX-RGB "foo#123456zzz" :START 3 :END 10))
; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET WHEN IF FUNCTIONP 
; ==>
;   #<FUNCTION EQUALP>
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN ASSERT 
; --> TAGBODY LET SB-KERNEL:ASSERT-ERROR 
; ==>
;   '(FUNCTIONP #<FUNCTION EQUALP>)
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

; --> CLUNIT::WITH-ASSERT-RESTART RESTART-CASE BLOCK LET TAGBODY RESTART-BIND 
; --> LET PROGN RETURN-FROM PROGN LET IF CLUNIT::GEN-TEST-FORM PROGN AND IF LET 
; --> LOOP BLOCK LET LET TAGBODY WHEN IF 
; ==>
;   (NOT (FUNCALL #<FUNCTION EQUALP> CLUNIT::VALUE CLUNIT::RESULT))
; 
; caught ERROR:
;   Objects of type COMPILED-FUNCTION can't be dumped into fasl files.

;     (CL-COLORS2:RGB 0.07 0.203 0.337)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BE8103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-colors2/tests" "test">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BE8103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F390F03}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F390F03}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F390F03}>)
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 "cl-colors2/tests" "test">)))
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 "cl-colors2/tests" "test">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-colors2/tests" "test">)
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 "cl-colors2/tests" "test">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005596E83}>) [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 {1005596E83}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-colors2/tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-colors2/tests">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-colors2/tests">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-colors2/tests")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-colors2/tests") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100559125B}> :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) {10055536DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-colors2/tests") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-colors2" "cl-colors2/tests")
23: (DEPCHECK::MAGIC "cl-colors2" "cl-colors2/tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Orbl0DNq/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-colors2" "cl-colors2/tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Orbl0DNq/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Orbl0DNq/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 30 ERROR conditions
;   printed 20 notes