SBCL

kmrcl fails to build on SBCL 2.2.5

Bug #1977726 reported by Pierre Neidhardt
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Fix Released
Undecided
Unassigned

Bug Description

It builds fine on 2.2.4.

I'm trying to load kmrcl commit 4a27407aad9deb607ffb8847630cde3d041ea25a which seems to be the latest according to http://git.kpe.io/?p=kmrcl.git;a=log.

Looks like a problem with declaiming the type of fixnum / integer constants:

```
[...]

; compiling file "/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp" (written 01 JAN 1970 12:00:00 AM):

; file: /gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp
; in: DEFUN USB8-ARRAY-TO-STRING
; (- KMRCL::END KMRCL::START)
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a FLOAT.
;
; note: unable to
; open-code float conversion in mixed numeric operation
; due to type uncertainty:
; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT)
; (COMPLEX DOUBLE-FLOAT)).
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
; etc.

; in: DEF-PREFIXED-NUMBER-STRING PREFIXED-INTEGER-STRING
; (KMRCL::DEF-PREFIXED-NUMBER-STRING KMRCL:PREFIXED-INTEGER-STRING INTEGER
; "Outputs a string of LEN digit with an optional initial character PCHAR.
; Leading zeros are present. LEN must be an integer.")
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* MOD
; ==>
; 1
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* TAGBODY SETQ SETQ THE NTH-VALUE MULTIPLE-VALUE-BIND LET
; --> FLOOR
; ==>
; 1
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE
; 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 64).

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* TAGBODY SETQ SETQ THE MOD
; ==>
; 1
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* MINUSP
; ==>
; 1
;
; note: forced to do <-INTEGER-FIXNUM (cost 8)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* IF -
; ==>
; 1
;
; note: forced to do GENERIC-NEGATE (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 64) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 64) &REST
; T).
; etc.

; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> DO* BLOCK LET* TAGBODY SETQ SETQ THE NTH-VALUE MULTIPLE-VALUE-BIND LET
; --> FLOOR
; ==>
; 1
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.

; in: DEFUN INTEGER-STRING
; (MOD KMRCL::VAL 10)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

; (FLOOR KMRCL::VAL 10)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE
; 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE
; 64).

; (MOD KMRCL::VAL 10)
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;
; note: unable to
; convert integer division to multiplication
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

; (MINUSP KMRCL::NUM)
;
; note: forced to do <-INTEGER-FIXNUM (cost 8)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.

; (- 0 KMRCL::NUM)
;
; note: forced to do GENERIC-NEGATE (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 64) arithmetic (cost 2) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 64).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 64) &REST
; T).
; etc.

; (FLOOR KMRCL::VAL 10)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.

; in: DEFUN COUNT-STRING-CHAR-IF
; (FUNCALL KMRCL::PRED (SCHAR KMRCL::S KMRCL::I))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; PRED is not known to be a function
Unhandled SB-KERNEL:CASE-FAILURE in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                              {100B688073}>:
  #<SB-KERNEL:CONSTANT
    :VALUE 48 {1007B44AE3}> fell through ETYPECASE expression.
  Wanted one of (NULL SB-C::GLOBAL-VAR).

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {100B688073}>
0: (SB-C::PROCESS-TYPE-PROCLAMATION FIXNUM (+CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0))
1: (SB-C::%PROCLAIM (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0) #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp" :INDICES 1638401))
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION)) #<NULL-LEXENV>)
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) #<NULL-LEXENV>)
4: (SB-EXT:EVAL-TLF (PROGN (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) 49 #<NULL-LEXENV>)
5: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
6: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) (#1=(SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION)) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB-C::ORIGINAL-SOURCE-START 0 49))
7: (SB-C::PROCESS-TOPLEVEL-FORM (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION)) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) SB-C::ORIGINAL-SOURCE-START 0 49) (:COMPILE-TOPLEVEL))
8: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) SB-C::ORIGINAL-SOURCE-START 0 49) (:COMPILE-TOPLEVEL))
9: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-C::%PROCLAIM (QUOTE (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C:SOURCE-LOCATION))) (SB-C::ORIGINAL-SOURCE-START 0 49) NIL)
10: (SB-C::PROCESS-TOPLEVEL-FORM (DECLAIM (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) (SB-C::ORIGINAL-SOURCE-START 0 49) NIL)
11: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (DECLAIM (TYPE FIXNUM +CHAR-CODE-0+ +CHAR-CODE-UPPER-A+ +CHAR-CODE-0)) :CURRENT-INDEX 49)
12: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {52C2410B}> #<SB-C::SOURCE-INFO {1006DAD9E3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
13: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
14: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
15: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {1006DAD9E3}> NIL)
16: (COMPILE-FILE #P"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp" :OUTPUT-FILE #P"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/lib/common-lisp/sbcl/kmrcl/strings-tmpQ371UGST.fasl" :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL)
17: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1006DAC9DB}> NIL)
18: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1006DAC51B}>)
19: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/strings.lisp" :OUTPUT-FILE #P"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/lib/common-lisp/sbcl/kmrcl/strings.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
20: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "kmrcl" "strings">)
21: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "kmrcl" "strings">)
22: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
23: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "kmrcl" "strings">) [fast-method]
24: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058FB203}>) [fast-method]
25: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
26: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058FB203}>) [fast-method]
27: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/SYSTEM:SYSTEM "kmrcl"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
28: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/SYSTEM:SYSTEM "kmrcl">)
29: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
30: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/SYSTEM:SYSTEM "kmrcl">) [fast-method]
31: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:COMPILE-OP "kmrcl")
32: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
33: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:COMPILE-OP "kmrcl") [fast-method]
34: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058EBFDB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
35: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
36: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058CEE2B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
37: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:COMPILE-OP "kmrcl") [fast-method]
38: (ASDF/OPERATE:COMPILE-SYSTEM "kmrcl")
39: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:COMPILE-SYSTEM "kmrcl") #<NULL-LEXENV>)
40: (EVAL (ASDF/OPERATE:COMPILE-SYSTEM "kmrcl"))
41: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(asdf:load-asd (truename \"/gnu/store/w8ybfb9j1j424j64pj3lwx1q3q11yv5n-sbcl-kmrcl-1.111-1.4a27407/share/common-lisp/sbcl/kmrcl/kmrcl.asd\"))") (:EVAL . "(asdf:compile-system \"kmrcl\")") (:QUIT)))
42: (SB-IMPL::TOPLEVEL-INIT)
43: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
44: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
45: (SB-IMPL::%START-LISP)
```

Charles (karlosz)
Changed in sbcl:
status: New → Incomplete
status: Incomplete → Fix Committed
Revision history for this message
Pierre Neidhardt (ambrevar) wrote :

Out of curiosity, what was the culprit? Which commit fixes it?

Revision history for this message
Pierre Neidhardt (ambrevar) wrote :

Thank you for the prompt fix!

Revision history for this message
Stas Boukarev (stassats) wrote :

It was so prompt it was fixed before the ticket. Some commit between 2.2.5 and HEAD.

Christophe Rhodes (csr21-cantab)
Changed in sbcl:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  
Everyone can see this information.
Subscribing...

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.