clsd

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsd/16061ff515217742d0051feb3c10a8ee10076493/clsd-20260425-git/sd-login.lisp
; in: DEFUN MACHINE-GET-IFINDICES
;     (CFFI:WITH-FOREIGN-OBJECT (CLSD::RET :POINTER))
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET 
; ==>
;   (LET ((#:SIZE0 8) (CLSD::RET (ALIEN-SAP #:ALIEN1)))
;     (DECLARE (IGNORABLE #:SIZE0)))
; 
; caught STYLE-WARNING:
;   The variable RET is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "clsd" "sd-login">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/clsd/16061ff515217742d0051feb3c10a8ee10076493/clsd-20260425-git/sd-device.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE (DEVICE)
;     (CLSD::NEW-FROM CLSD::DEVNUM)
; --> LET LET SYMBOL-MACROLET LET LET 
; ==>
;   (CLSD/RAW:DEVICE-NEW-FROM-DEVNUM CLSD::RET CLSD::DEVNUM)
; 
; caught STYLE-WARNING:
;   The function CLSD/RAW:DEVICE-NEW-FROM-DEVNUM is called with two arguments, but wants exactly three.

; in: DEFUN DEVICE-GET-PROPERTIES
;     (CFFI-SYS:NULL-POINTER-P CLSD::RESULT)
; 
; note: deleting unreachable code

;     (CFFI:WITH-FOREIGN-OBJECT (CLSD::RET :POINTER)
;       (CONS (CLSD/RAW:DEVICE-GET-PROPERTY-NEXT CLSD::OBJECT CLSD::RET)
;             (CFFI:MEM-REF CLSD::RET :STRING)))
; 
; note: deleting unreachable code

;     (CFFI-SYS:NULL-POINTER-P CLSD::RESULT)
; 
; caught WARNING:
;   Derived type of CLSD::RESULT is (VALUES LIST &OPTIONAL), conflicting with its asserted type SB-SYS:SYSTEM-AREA-POINTER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; in: DEFUN DEVICE-GET-CHILDREN
;     (CFFI-SYS:NULL-POINTER-P CLSD::RESULT)
; 
; note: deleting unreachable code

;     (CFFI:WITH-FOREIGN-OBJECT (CLSD::RET :POINTER)
;       (CONS
;        (MAKE-INSTANCE 'CLSD::DEVICE :OBJECT
;                       (CLSD/RAW:DEVICE-GET-CHILD-NEXT CLSD::OBJECT CLSD::RET))
;        (CFFI:MEM-REF CLSD::RET :STRING)))
; 
; note: deleting unreachable code

;     (CFFI-SYS:NULL-POINTER-P CLSD::RESULT)
; 
; caught WARNING:
;   Derived type of CLSD::RESULT is (VALUES LIST &OPTIONAL), conflicting with its asserted type SB-SYS:SYSTEM-AREA-POINTER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; in: DEFUN DEVICE-SET-SYSATTR-VALUE
;     (CLSD/RAW:DEVICE-SET-SYSATTR-VALUE CLSD::OBJECT CLSD::SYSATTR)
; 
; caught STYLE-WARNING:
;   The function CLSD/RAW:DEVICE-SET-SYSATTR-VALUE is called with two arguments, but wants exactly three.

; in: DEFUN ENUMERATE-DEVICES
;     (CLSD/RAW:DEVICE-ENUMERATOR-ADD-MATCH-SYSATTR CLSD::ENUMERATOR CLSD::SYSATTR
;                                                   0)
; 
; caught STYLE-WARNING:
;   The function CLSD/RAW:DEVICE-ENUMERATOR-ADD-MATCH-SYSATTR is called with three arguments, but wants exactly four.

;     (CLSD/RAW:DEVICE-ENUMERATOR-ADD-MATCH-SYSATTR CLSD::ENUMERATOR CLSD::SYSATTR
;                                                   1)
; 
; caught STYLE-WARNING:
;   The function CLSD/RAW:DEVICE-ENUMERATOR-ADD-MATCH-SYSATTR is called with three arguments, but wants exactly four.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=671040 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "clsd" "sd-device">

Backtrace for: #<SB-THREAD:THREAD tid=671040 "main thread" RUNNING {1200030003}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121DEF5A53}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121DEF5A53}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121DEF5A53}>)
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 "clsd" "sd-device">)))
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 "clsd" "sd-device">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clsd" "sd-device">)
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 "clsd" "sd-device">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120430B733}>) [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 {120430B733}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clsd"> :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 "clsd">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clsd">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "clsd")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clsd") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204304F2B}> :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) {12042BBF4B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clsd") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "clsd" "clsd")
23: (DEPCHECK::MAGIC "clsd" "clsd" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-eCfHvK43/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "clsd" "clsd" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-eCfHvK43/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-eCfHvK43/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-3" :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 2 WARNING conditions
;   caught 5 STYLE-WARNING conditions
;   printed 4 notes