Custom Query (1030 matches)

Using r10867, I get this while rebuilding CCL:

> Error: value 2147483647 is not of the expected type (SIGNED-BYTE 32).
> While executing: FUTEX-WAKE, in process listener(1).

1 > :b :show-frame-contents t
*(6F9E999C) : 0 (FUTEX-WAKE #<A Foreign Pointer [gcable] #x8080640> 2147483647) 159
  (P N)
   P: #<A Foreign Pointer [gcable] #x8080640>
   N: 2147483647



 (6F9E99CC) : 1 (%UNLOCK-RECURSIVE-LOCK-OBJECT #<RECURSIVE-LOCK [ptr @ #x8080640] #x148FBCF6>) 487
  (LOCK)
   LOCK: #<RECURSIVE-LOCK [ptr @ #x8080640] #x148FBCF6>

  PTR: #<A Foreign Pointer [gcable] #x8080640>
  *INTERRUPT-LEVEL*: -1

 (6F9E99E8) : 2 (FUNCALL #'#<#<STANDARD-KERNEL-METHOD STREAM-WRITE-STRING (BASIC-CHARACTER-OUTPUT-STREAM T)>> #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (TTY/1) #x148FBF6E> "~&;Loading ~S..." [...]) 303
  (STREAM STRING &OPTIONAL START START-P)
   STREAM: #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (TTY/1) #x148FBF6E>
   STRING: "~&;Loading ~S..."
   START: 13
   START-P: T

  END: 16
  IOBLOCK: #S(IOBLOCK :STREAM #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (TTY/1) #x148FBF6E> :UNTYI-CHAR NIL ...)
  #:G115891: #<RECURSIVE-LOCK [ptr @ #x8080640] #x148FBCF6>
  #:G115892: #<LOCK-ACQUISITION [status = T] #x6F8D7906>

 (6F9E9A24) : 3 (WRITE-SIMPLE-STRING "~&;Loading ~S..." #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE> 13 16) 1223
  (STRING OUTPUT-STREAM START END)
   STRING: "~&;Loading ~S..."
   OUTPUT-STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>
   START: 13
   END: 16

  STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>

 (6F9E9A40) : 4 (SUB-FORMAT #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE> 12 16) 2495
  (STREAM *FORMAT-INDEX* *FORMAT-LENGTH*)
   STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>
   *FORMAT-INDEX*: 12
   *FORMAT-LENGTH*: 16

  CHAR: #\.
  STRING: "~&;Loading ~S..."
  LENGTH: 16
  I: 16
  LASTPOS: 13
  START: 13
  END: 16

 (6F9E9A88) : 5 (DO-SUB-FORMAT #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>) 143
  (STREAM)
   STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>

  ERRORP: NIL

 (6F9E9A98) : 6 (FORMAT #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE> "~&;Loading ~S..." [...]) 1655
  (STREAM CONTROL-STRING &REST FORMAT-ARGUMENTS)
   STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x148FB7EE>
   CONTROL-STRING: "~&;Loading ~S..."
   FORMAT-ARGUMENTS: (#P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl")

  *FORMAT-TOP-LEVEL*: T
  *FORMAT-CONTROL-STRING*: "~&;Loading ~S..."
  *FORMAT-PPRINT*: NIL
  *FORMAT-JUSTIFICATION-SEMI*: NIL
  *FORMAT-ORIGINAL-ARGUMENTS*: (#P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl")
  *FORMAT-ARGUMENTS*: NIL
  *FORMAT-COLON-REST*: ERROR

 (6F9E9B18) : 7 (%LOAD #P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl" T NIL :ERROR :DEFAULT) 1031
  (FILE-NAME VERBOSE PRINT IF-DOES-NOT-EXIST EXTERNAL-FORMAT)
   FILE-NAME: #P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
   VERBOSE: T
   PRINT: NIL
   IF-DOES-NOT-EXIST: :ERROR
   EXTERNAL-FORMAT: :DEFAULT

  SOURCE-FILE: #P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
  *LOAD-PATHNAME*: #P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
  *LOAD-TRUENAME*: #P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
  *PACKAGE*: NIL
  *READTABLE*: #<READTABLE #x1432145E>
  *LOADING-FILES*: (#P"/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl")
  *LOADING-FILE-SOURCE-FILE*: "/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"

 (6F9E9B88) : 8 (LOAD "/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl" [...]) 927
  (FILE-NAME &KEY :VERBOSE :PRINT :IF-DOES-NOT-EXIST :EXTERNAL-FORMAT)
   FILE-NAME: "/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
   VERBOSE: T
   PRINT: NIL
   IF-DOES-NOT-EXIST: :ERROR
   EXTERNAL-FORMAT: :DEFAULT

  #:LOAD-OTHER: #<RESTART LOAD-OTHER #x6F8D7A3E>
  #:SKIP-LOAD: #<RESTART SKIP-LOAD #x6F8D7A16>
  #:RETRY-LOAD: #<RESTART RETRY-LOAD #x6F8D79EE>
  #:G117869: (#<RESTART RETRY-LOAD #x6F8D79EE> #<RESTART SKIP-LOAD #x6F8D7A16> #<RESTART LOAD-OTHER #x6F8D7A3E>)
  %RESTARTS%: ((#<# # #x6F8D79EE> #<# # #x6F8D7A16> #<# # #x6F8D7A3E>) (#<# # #x6F8D7ABE> #<# # #x6F8D7AE6>) (#<# # #x6F8D7CA6> #<# # #x6F8D7CCE>) (#<# # #x6F8D7DBE> #<# # #x6F8D7DE6>))

 (6F9E9BD4) : 9 (%COMPILE-FILE "/home/hechee/Software/opt/ccl/lib/nfcomp.lisp" "/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl" T NIL T NIL T T NIL :DEFER NIL #<BACKEND LINUXX8632 #x144F2FF6> :DEFAULT) 2671
  (SRC OUTPUT-FILE VERBOSE PRINT LOAD FEATURES SAVE-LOCAL-SYMBOLS SAVE-DOC-STRINGS SAVE-DEFINITIONS BREAK-ON-PROGRAM-ERRORS FORCE TARGET-BACKEND EXTERNAL-FORMAT)
   SRC: "/home/hechee/Software/opt/ccl/lib/nfcomp.lisp"
   OUTPUT-FILE: "/home/hechee/Software/opt/ccl/bin/nfcomp.lx32fsl"
   VERBOSE: T
   PRINT: NIL
   LOAD: T
   FEATURES: NIL
   SAVE-LOCAL-SYMBOLS: T
   SAVE-DOC-STRINGS: T
   SAVE-DEFINITIONS: NIL
   BREAK-ON-PROGRAM-ERRORS: :DEFER
   FORCE: NIL
   TARGET-BACKEND: #<BACKEND LINUXX8632 #x144F2FF6>
   EXTERNAL-FORMAT: :DEFAULT

  ORIG-SRC: #P"ccl:lib;nfcomp.lisp.newest"
  OUTPUT-DEFAULT-TYPE: #P".lx32fsl"
  *FASL-NON-STYLE-WARNINGS-SIGNALLED-P*: NIL
  *FASL-WARNINGS-SIGNALLED-P*: NIL

 (6F9E9C30) : 10 (COMPILE-FILE "ccl:lib;nfcomp.lisp" [...]) 1095
  (SRC &KEY :OUTPUT-FILE :VERBOSE :PRINT :LOAD :FEATURES :TARGET :SAVE-LOCAL-SYMBOLS :SAVE-DOC-STRINGS :SAVE-DEFINITIONS :BREAK-ON-PROGRAM-ERRORS :EXTERNAL-FORMAT :FORCE)
   SRC: "ccl:lib;nfcomp.lisp"
   OUTPUT-FILE: #P"ccl:bin;nfcomp.lx32fsl.newest"
   VERBOSE: T
   PRINT: NIL
   LOAD: T
   FEATURES: NIL
   TARGET: :LINUXX8632
   TARGET-P: NIL
   SAVE-LOCAL-SYMBOLS: T
   SAVE-DOC-STRINGS: T
   SAVE-DEFINITIONS: NIL
   BREAK-ON-PROGRAM-ERRORS: :DEFER
   EXTERNAL-FORMAT: :DEFAULT

  FORCE: NIL
  BACKEND: #<BACKEND LINUXX8632 #x144F2FF6>
  #:SKIP-COMPILE-FILE: #<RESTART SKIP-COMPILE-FILE #x6F8D7AE6>
  #:RETRY-COMPILE-FILE: #<RESTART RETRY-COMPILE-FILE #x6F8D7ABE>
  #:G91373: (#<RESTART RETRY-COMPILE-FILE #x6F8D7ABE> #<RESTART SKIP-COMPILE-FILE #x6F8D7AE6>)
  %RESTARTS%: ((#<# # #x6F8D7ABE> #<# # #x6F8D7AE6>) (#<# # #x6F8D7CA6> #<# # #x6F8D7CCE>) (#<# # #x6F8D7DBE> #<# # #x6F8D7DE6>))

 (6F9E9CBC) : 11 (UPDATE-MODULES '(HASH BACKQUOTE LISPEQU LEVEL-2 MACROS ...) [...]) 439
  (MODULES &OPTIONAL FORCE-COMPILE)
   MODULES: (HASH BACKQUOTE LISPEQU LEVEL-2 MACROS ...)
   FORCE-COMPILE: NIL

  *PACKAGE*: #<Package "CCL">
  *WARN-IF-REDEFINE-KERNEL*: NIL
  #:G147457: (FFI-LINUXX8632)
  MODULE: NFCOMP
  FASL: #P"ccl:bin;nfcomp.lx32fsl.newest"
  SOURCES: ("ccl:lib;nfcomp.lisp")
  *WARN-IF-REDEFINE*: NIL

 (6F9E9D00) : 12 (COMPILE-CCL [...]) 319
  (&OPTIONAL FORCE-COMPILE)
   FORCE-COMPILE: NIL

  ENV-MODULES: (HASH BACKQUOTE LISPEQU LEVEL-2 MACROS ...)
  OTHER-LIB: (STREAMS PATHNAMES BACKTRACE APROPOS NUMBERS ...)

 (6F9E9D14) : 13 (REBUILD-CCL [...]) 1799
  (&KEY :UPDATE :FULL :CLEAN :KERNEL :FORCE :RELOAD :EXIT :RELOAD-ARGUMENTS :VERBOSE :OPTIONAL-FEATURES)
   UPDATE: NIL
   FULL: T
   CLEAN: T
   KERNEL: T
   FORCE: NIL
   RELOAD: T
   EXIT: NIL
   RELOAD-ARGUMENTS: NIL
   VERBOSE: NIL
   OPTIONAL-FEATURES: NIL

  *BUILD-TIME-OPTIONAL-FEATURES*: NIL
  *FEATURES*: (:PRIMARY-CLASSES :COMMON-LISP :OPENMCL :CCL :CCL-1.2 ...)
  CD: #P"/home/hechee/Software/opt/ccl/"

 (6F9E9DA0) : 14 (CALL-CHECK-REGS 'REBUILD-CCL [...]) 247
  (FN &REST ARGS)
   FN: REBUILD-CCL
   ARGS: (:FULL T)

  OLD-REGS: NIL

 (6F9E9DBC) : 15 (TOPLEVEL-EVAL '(REBUILD-CCL :FULL T) [...]) 759
  (FORM &OPTIONAL ENV)
   FORM: (REBUILD-CCL :FULL T)
   ENV: NIL

  #:WHOLE123291: (NIL)
  #:ARGS123292: #<DESTRUCTURE-STATE #x6F8D7BCE>
  VARS: NIL
  #:REST123293: NIL
  PACKAGE: #<Package "COMMON-LISP-USER">

The attached patch makes CCL look for ~/.ccl-init.lisp before ~/ccl-init.lisp . This adheres to the Unix tradition of making .rc files hidden.

Running "Version 1.3-dev-r11488M-trunk (LinuxX8632)",

(coerce #(127 0 0 256) '(simple-array (unsigned-byte 8) (*)))

signals a SIMPLE-ERROR instead of a TYPE-ERROR.

Error:

256 doesn't match array element type of #(127 0 0 0).
   [Condition of type SIMPLE-ERROR]

Backtrace:
  0: (CCL::INIT-UVECTOR-CONTENTS #(127 0 0 0) 3 4 #(127 0 0 256))
      Locals:
        CCL::VECT = #(127 0 0 0)
        CCL::OFFSET = 3
        CCL::DIMS = 4
        CCL::CONTENTS = #(127 0 0 256)
        CCL::LEN = 4
        CCL::I = 3
  1: (CCL::MAKE-UARRAY-1 207 4 NIL NIL NIL NIL #(127 0 0 256) T NIL 4)
      Locals:
        CCL::SUBTYPE = 207
        CCL::DIMS = 4
        CCL::ADJUSTABLE = NIL
        FILL-POINTER = NIL
        CCL::INITIAL-ELEMENT = NIL
        CCL::INITIAL-ELEMENT-P = NIL
        CCL::INITIAL-CONTENTS = #(127 0 0 256)
        CCL::INITIAL-CONTENTS-P = T
        CCL::TEMPORARY = NIL
        CCL::SIZE = 4
        VECTOR = #(127 0 0 0)
  2: (CCL::CALL-CHECK-REGS COERCE #(127 0 0 256) (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)))
      Locals:
        CCL::FN = COERCE
        CCL::ARGS = (#(127 0 0 256) (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)))
        CCL::OLD-REGS = NIL