search

fukamachi / cl-cookie

HTTP cookie manager
18 stars 6 forks source link

Build error: `Unhandled TYPE-ERROR in thread: The value 1731369600 is not of type FIXNUM` #17

Open barracuda156 opened 5 days ago

barracuda156 commented 5 days ago

Build from 6bcb74ac6fb331f9677cdc98c5b0b9f92246d6a7 with SBCL 2.4.10:

; wrote /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/share/common-lisp/source/cl-local-time/src/package-tmpOUEHOD9C.fasl
; compilation finished in 0:00:00.011
; compiling file "/opt/local/share/common-lisp/source/cl-local-time/src/local-time.lisp" (written 17 AUG 2024 09:34:12 PM):

; file: /opt/local/share/common-lisp/source/cl-local-time/src/local-time.lisp
; in: DEFUN %SPLIT-TIMESTRING
;     (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (+ (CAAR LOCAL-TIME::PARTS) 4)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (*
;      (THE (INTEGER 0 999999999)
;           (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
;                          LOCAL-TIME::END))
;      (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
;            (- LOCAL-TIME::END LOCAL-TIME::START)))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 1000000000), not a FIXNUM.
;       The second argument is a (INTEGER 1 1000000000), not a FIXNUM.
;       The result is a (VALUES (MOD 999999999000000001) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &OPTIONAL).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (MOD 999999999000000001) &OPTIONAL), not a (VALUES
;                                                                           (UNSIGNED-BYTE
;                                                                            32)
;                                                                           &OPTIONAL).
;       etc.

;     (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 4)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (*
;      (THE (INTEGER 0 999999999)
;           (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
;                          LOCAL-TIME::END))
;      (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
;            (- LOCAL-TIME::END LOCAL-TIME::START)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of GENERIC-*

;     (ZEROP (- LOCAL-TIME::INDEX LOCAL-TIME::LAST-MATCH))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; in: DEFUN %CONSTRUCT-TIMESTRING
;     (MOD (1- LOCAL-TIME::HOUR) 12)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -1 22), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES BIT (INTEGER -1 11) &OPTIONAL), not a (VALUES
;                                                                      (UNSIGNED-BYTE
;                                                                       29)
;                                                                      (UNSIGNED-BYTE
;                                                                       29)
;                                                                      &OPTIONAL).

;     (MOD LOCAL-TIME::YEAR 100)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -1000000 1000000), not a (UNSIGNED-BYTE
;                                                                  29).
;       The result is a (VALUES (INTEGER -10000 10000) (INTEGER -99 99) &OPTIONAL), not a (VALUES
;                                                                                          (UNSIGNED-BYTE
;                                                                                           29)
;                                                                                          (UNSIGNED-BYTE
;                                                                                           29)
;                                                                                          &OPTIONAL).

;     (TRUNCATE LOCAL-TIME::OFFSET LOCAL-TIME:+SECONDS-PER-HOUR+)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -86400 86400), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES (INTEGER -24 24) (INTEGER -3599 3599) &OPTIONAL), not a (VALUES
;                                                                                        (UNSIGNED-BYTE
;                                                                                         29)
;                                                                                        (UNSIGNED-BYTE
;                                                                                         29)
;                                                                                        &OPTIONAL).

; wrote /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/share/common-lisp/source/cl-local-time/src/local-time-tmp5ZHGID8G.fasl
; compilation finished in 0:00:04.527
; compiling file "/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/build/source/cl-cookie/src/cl-cookie.lisp" (written 03 JUL 2024 09:07:04 AM):

; wrote /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/build/source/cl-cookie/src/cl-cookie-tmp9D2N5DM.fasl
; compilation finished in 0:00:29.790
Unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD tid=267 "main thread" RUNNING
                                  {113C62F1}>:
  The value
    1731369600
  is not of type
    FIXNUM
  from the function type declaration.

Backtrace for: #<SB-THREAD:THREAD tid=267 "main thread" RUNNING {113C62F1}>
0: (LOCAL-TIME::%SUBZONE-AS-OF #<LOCAL-TIME::TIMEZONE UTC> 0 9022 NIL)
1: (LOCAL-TIME::SEC-DAY-SUBTIMEZONE 0 9022 #<LOCAL-TIME::TIMEZONE UTC>)
2: (LOCAL-TIME::%ADJUST-TO-TIMEZONE @#<error printing a LOCAL-TIME:TIMESTAMP: #<TYPE-ERROR expected-type: FIXNUM datum: 1731369600>> #<LOCAL-TIME::TIMEZONE UTC> NIL)
3: (LOCAL-TIME:TIMESTAMP-YEAR @#<error printing a LOCAL-TIME:TIMESTAMP: #<TYPE-ERROR expected-type: FIXNUM datum: 1731369600>> :TIMEZONE #<LOCAL-TIME::TIMEZONE UTC>)
4: (TIMESTAMP-CENTURY @#<error printing a LOCAL-TIME:TIMESTAMP: #<TYPE-ERROR expected-type: FIXNUM datum: 1731369600>> :TIMEZONE NIL)
5: ("top level form") [toplevel]
6: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 265) file /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_c... {11B263B7}> {11B264F9}> :TABLE #(1098 #1="/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/build/source/cl-cookie/src/cl-cookie.lisp" 3928957624 #<PACKAGE "SB-INT"> SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFPACKAGE "CL-USER" *PACKAGE* "CL-COOKIE" #2="COOKIE" (#2#) ...) :STACK #(0 #<FUNCTION #3="top level form" {11B3289D}> #<SB-KERNEL:FDEFN TODAY> #<SB-KERNEL:FDEFN TIMESTAMP-CENTURY> #<SB-KERNEL:FDEFN SB-IMPL::%DEFPARAMETER> GET-TZ-OFFSET *CURRENT-CENTURY-OFFSET* #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING #1# :INDICES 917505) #<FUNCTION GET-TZ-OFFSET> #S(SB-C::COMPILED-DEBUG-INFO :NAME #3# :SOURCE #4=#S(SB-C::DEBUG-SOURCE :NAMESTRING #1# :CREATED 3928957624 :START-POSITIONS NIL :PLIST NIL) :PACKAGE #<PACKAGE "CL-COOKIE"> :FUN-MAP #(12 71 0 47 71 32 26 69 36 26 70 16 ...) :CONTEXTS #() :REST #3#) 0 NIL ...) :NAME-BUFFER #("SYSTEM-RELATIVE-PATHNAME" "*CURRENT-CENTURY-OFFSET*E->TIMEZONE-LIST*") :PRINT NIL :PARTIAL-SOURCE-INFO #4#))
7: ((LAMBDA NIL :IN SB-FASL::LOAD-AS-FASL))
8: (SB-IMPL::CALL-WITH-LOADER-PACKAGE-NAMES #<FUNCTION (LAMBDA NIL :IN SB-FASL::LOAD-AS-FASL) {11B2A205}>)
9: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 265) file /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_c... {11B263B7}> {11B264F9}> NIL NIL)
10: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 265) file /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_c... {11B263B7}> {11B264F9}> T)
11: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {1000D1D}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 265) file /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_c... {11B263B7}> {11B264F9}> T #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 265) file /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_c... {11B263B7}> {11B264F9}>)
12: (LOAD #P#<(SIMPLE-ARRAY CHARACTER (260)) /opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/.home/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-coo... {11D699BF}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
13: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {11B25745}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
14: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cookie" "src/cl-cookie">)
15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
16: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cookie" "src/cl-cookie">) [fast-method]
17: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-cookie" "src/cl-cookie">) [fast-method]
18: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1119A239}>) [fast-method]
19: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
20: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1119A239}>) [fast-method]
21: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/OPERATE:BUILD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cookie-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
22: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/OPERATE:BUILD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cookie-test">)
23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
24: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/OPERATE:BUILD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cookie-test">) [fast-method]
25: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/OPERATE:BUILD-OP COMMON-LISP-USER::CL-COOKIE-TEST)
26: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
27: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/OPERATE:BUILD-OP COMMON-LISP-USER::CL-COOKIE-TEST) [fast-method]
28: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1119A10D}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
29: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
30: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1119A08D}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
31: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/OPERATE:BUILD-OP COMMON-LISP-USER::CL-COOKIE-TEST) [fast-method]
32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:OPERATE (QUOTE ASDF/OPERATE:BUILD-OP) (QUOTE COMMON-LISP-USER::CL-COOKIE-TEST)) #<NULL-LEXENV>)
33: (EVAL (ASDF/OPERATE:OPERATE (QUOTE ASDF/OPERATE:BUILD-OP) (QUOTE COMMON-LISP-USER::CL-COOKIE-TEST)))
34: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require \"asdf\")") (:EVAL . #<(SIMPLE-ARRAY CHARACTER (242)) (setf asdf:*central-registry* (list* (quote *default-pathname-defaults*) #p"/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/build/system/" #p"/opt/local/share/comm... {117C281F}>) (:EVAL . "(asdf:operate (quote asdf:build-op) (quote cl-cookie-test))") (:QUIT)))
35: (SB-IMPL::TOPLEVEL-INIT)
36: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
37: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
38: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 7 STYLE-WARNING conditions
;   printed 945 notes
Command failed: /opt/local/bin/sbcl --no-sysinit --no-userinit --non-interactive --eval '(require "asdf")' --eval '(setf asdf:*central-registry* (list* (quote *default-pathname-defaults*) #p"/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_lisp_cl-cookie/cl-cookie/work/build/system/" #p"/opt/local/share/common-lisp/system/" asdf:*central-registry*))' --eval '(asdf:operate (quote asdf:build-op) (quote cl-cookie-test))' 2>&1
Exit code: 1
Error: Failed to build cl-cookie: asdf:build-op cannot be executed
fukamachi commented 5 days ago

Can you load local-time without errors?

barracuda156 commented 5 days ago

Looks like it loads:

36-63% sbcl
This is SBCL 2.4.10, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (require :asdf)
("ASDF" "asdf" "UIOP" "uiop")
* (require :local-time)
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for mgl-pax-bootstrap - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/mgl-pax-bootstrap.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/mgl-pax-bootstrap.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for mgl-pax-test - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/mgl-pax-test.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/mgl-pax-test.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for mgl-pax - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/mgl-pax.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/mgl-pax.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for mgl-pax.asdf - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/mgl-pax.asdf.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/mgl-pax.asdf.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for dref-test - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/dref/dref-test.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/dref/dref-test.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for dref - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/dref/dref.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/dref/dref.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for test-systems - picking #P"/opt/local/share/common-lisp/source/cl-mgl-pax-bootstrap/test/test-systems.asd" over #P"/opt/local/share/common-lisp/source/cl-mgl-pax/test/test-systems.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for cl-ppcre-unicode - picking #P"/opt/local/share/common-lisp/source/cl-ppcre-unicode/cl-ppcre-unicode.asd" over #P"/opt/local/share/common-lisp/source/cl-ppcre/cl-ppcre-unicode.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for cl-ppcre - picking #P"/opt/local/share/common-lisp/source/cl-ppcre-unicode/cl-ppcre.asd" over #P"/opt/local/share/common-lisp/source/cl-ppcre/cl-ppcre.asd"
WARNING:
   In source-registry entry /opt/local/share/common-lisp/source// found several entries for uffi - picking #P"/opt/local/share/common-lisp/source/cl-uffi/uffi.asd" over #P"/opt/local/share/common-lisp/source/cl-cffi/uffi-compat/uffi.asd"
; compiling file "/opt/local/share/common-lisp/source/cl-local-time/src/package.lisp" (written 17 AUG 2024 09:34:12 PM):

; wrote /Users/svacchanda/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/share/common-lisp/source/cl-local-time/src/package-tmp7LQ0A0VI.fasl
; compilation finished in 0:00:00.015
; compiling file "/opt/local/share/common-lisp/source/cl-local-time/src/local-time.lisp" (written 17 AUG 2024 09:34:12 PM):

; file: /opt/local/share/common-lisp/source/cl-local-time/src/local-time.lisp
; in: DEFUN %SPLIT-TIMESTRING
;     (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (+ (CAAR LOCAL-TIME::PARTS) 4)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: unable to
;   associate +/(+ -) of constants
; due to type uncertainty:
;   The first argument is a NUMBER, not a RATIONAL.

;     (*
;      (THE (INTEGER 0 999999999)
;           (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
;                          LOCAL-TIME::END))
;      (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
;            (- LOCAL-TIME::END LOCAL-TIME::START)))
; 
; note: forced to do GENERIC-* (cost 50)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 1000000000), not a FIXNUM.
;       The second argument is a (INTEGER 1 1000000000), not a FIXNUM.
;       The result is a (VALUES (MOD 999999999000000001) &OPTIONAL), not a (VALUES
;                                                                           FIXNUM
;                                                                           &OPTIONAL).
;       unable to do inline (unsigned-byte 32) arithmetic (cost 4) because:
;       The result is a (VALUES (MOD 999999999000000001) &OPTIONAL), not a (VALUES
;                                                                           (UNSIGNED-BYTE
;                                                                            32)
;                                                                           &OPTIONAL).
;       etc.

;     (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 4)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
;                                                                &OPTIONAL).
;       etc.

;     (+ (CAAR LOCAL-TIME::PARTS) 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (*
;      (THE (INTEGER 0 999999999)
;           (PARSE-INTEGER LOCAL-TIME::TIME-STRING :START LOCAL-TIME::START :END
;                          LOCAL-TIME::END))
;      (AREF #(1000000000 100000000 10000000 1000000 100000 10000 1000 100 10 1)
;            (- LOCAL-TIME::END LOCAL-TIME::START)))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the second argument of GENERIC-*

;     (ZEROP (- LOCAL-TIME::INDEX LOCAL-TIME::LAST-MATCH))
; 
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of IF-EQ

; in: DEFUN %CONSTRUCT-TIMESTRING
;     (MOD (1- LOCAL-TIME::HOUR) 12)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -1 22), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES BIT (INTEGER -1 11) &OPTIONAL), not a (VALUES
;                                                                      (UNSIGNED-BYTE
;                                                                       29)
;                                                                      (UNSIGNED-BYTE
;                                                                       29)
;                                                                      &OPTIONAL).

;     (MOD LOCAL-TIME::YEAR 100)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -1000000 1000000), not a (UNSIGNED-BYTE
;                                                                  29).
;       The result is a (VALUES (INTEGER -10000 10000) (INTEGER -99 99) &OPTIONAL), not a (VALUES
;                                                                                          (UNSIGNED-BYTE
;                                                                                           29)
;                                                                                          (UNSIGNED-BYTE
;                                                                                           29)
;                                                                                          &OPTIONAL).

;     (TRUNCATE LOCAL-TIME::OFFSET LOCAL-TIME:+SECONDS-PER-HOUR+)
; 
; note: forced to do fixnum truncate (cost 50)
;       unable to do unsigned fixnum truncate (cost 45) because:
;       The first argument is a (INTEGER -86400 86400), not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES (INTEGER -24 24) (INTEGER -3599 3599) &OPTIONAL), not a (VALUES
;                                                                                        (UNSIGNED-BYTE
;                                                                                         29)
;                                                                                        (UNSIGNED-BYTE
;                                                                                         29)
;                                                                                        &OPTIONAL).

; wrote /Users/svacchanda/.cache/common-lisp/sbcl-2.4.10-macosx-ppc32/opt/local/share/common-lisp/source/cl-local-time/src/local-time-tmp74KGUNRZ.fasl
; compilation finished in 0:00:08.188
; 
; compilation unit finished
;   printed 26 notes
NIL