Custom Query (1030 matches)

Filters
 
Or
 
  
 
Columns

Show under each result:

Results (829 - 831 of 1030)

← 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 →
Ticket Resolution Summary Owner Reporter
#957 wontfix Error while executing CCL::MATCHP2 on Pentium4 uchida
Description

I found a Pentium4 specific error while testing changeset 15259 on ccl-1.6. 

toor@toor-laptop:~/ccl/compiler/X86/X8632$ patch < changeset_r15259.diff 
(Stripping trailing CRs from patch.)
patching file x8632-vinsns.lisp
Hunk #1 succeeded at 3356 (offset -46 lines).
Hunk #2 succeeded at 3361 (offset -46 lines).
toor@toor-laptop:~/ccl/compiler/X86/X8632$ cd ..
toor@toor-laptop:~/ccl/compiler/X86$ cd ..
toor@toor-laptop:~/ccl/compiler$ cd ..
toor@toor-laptop:~/ccl$ ./lx86cl -n
Welcome to Clozure Common Lisp Version 1.6-r14468M  (LinuxX8632)!
? (rebuild-ccl)
;Compiling "/home/toor/ccl/lib/systems.lisp"...
;Loading #P"/home/toor/ccl/bin/systems.lx32fsl"...
;Compiling "/home/toor/ccl/lib/compile-ccl.lisp"...
;Loading #P"/home/toor/ccl/bin/compile-ccl.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/nxenv.lisp"...
;Loading #P"/home/toor/ccl/bin/nxenv.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/nx.lisp"...
; Including "/home/toor/ccl/compiler/nx-basic.lisp"...
; Including "/home/toor/ccl/compiler/lambda-list.lisp"...
; Including "/home/toor/ccl/compiler/nx0.lisp"...
; Including "/home/toor/ccl/compiler/nx1.lisp"...
;Loading #P"/home/toor/ccl/l1-fasls/nx.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/optimizers.lisp"...
;Loading #P"/home/toor/ccl/bin/optimizers.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/dll-node.lisp"...
;Loading #P"/home/toor/ccl/bin/dll-node.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/arch.lisp"...
;Loading #P"/home/toor/ccl/bin/arch.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/vreg.lisp"...
;Loading #P"/home/toor/ccl/bin/vreg.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/vinsn.lisp"...
;Loading #P"/home/toor/ccl/bin/vinsn.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/reg.lisp"...
;Loading #P"/home/toor/ccl/bin/reg.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/subprims.lisp"...
;Loading #P"/home/toor/ccl/bin/subprims.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/backend.lisp"...
;Loading #P"/home/toor/ccl/bin/backend.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/nx2.lisp"...
;Loading #P"/home/toor/ccl/bin/nx2.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/X8632/x8632-arch.lisp"...
;Loading #P"/home/toor/ccl/bin/x8632-arch.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/X8664/x8664-arch.lisp"...
;Loading #P"/home/toor/ccl/bin/x8664-arch.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x86-arch.lisp"...
;Loading #P"/home/toor/ccl/bin/x86-arch.lx32fsl"...
;Compiling "/home/toor/ccl/lib/x8632env.lisp"...
;Loading #P"/home/toor/ccl/bin/x8632env.lx32fsl"...
;Compiling "/home/toor/ccl/lib/x8664env.lisp"...
;Loading #P"/home/toor/ccl/bin/x8664env.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x86-asm.lisp"...
;Loading #P"/home/toor/ccl/bin/x86-asm.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x86-lap.lisp"...
;Loading #P"/home/toor/ccl/bin/x86-lap.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x86-backend.lisp"...
;Loading #P"/home/toor/ccl/bin/x86-backend.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/X8632/x8632-backend.lisp"...
;Loading #P"/home/toor/ccl/bin/x8632-backend.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/X8632/x8632-vinsns.lisp"...
;Loading #P"/home/toor/ccl/bin/x8632-vinsns.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x862.lisp"...
;Loading #P"/home/toor/ccl/bin/x862.lx32fsl"...
;Compiling "/home/toor/ccl/compiler/X86/x86-lapmacros.lisp"...
;Loading #P"/home/toor/ccl/bin/x86-lapmacros.lx32fsl"...
;Compiling "/home/toor/ccl/xdump/xx8632-fasload.lisp"...
;Loading #P"/home/toor/ccl/xdump/xx8632-fasload.lx32fsl"...
;Compiling "/home/toor/ccl/xdump/xfasload.lisp"...
;Loading #P"/home/toor/ccl/xdump/xfasload.lx32fsl"...
;Compiling "/home/toor/ccl/xdump/heap-image.lisp"...
;Loading #P"/home/toor/ccl/xdump/heap-image.lx32fsl"...
Can't find #P"ccl:bin;hash.lx32fsl.newest" so requiring "ccl:lib;hash.lisp" instead
Can't find #P"ccl:bin;backquote.lx32fsl.newest" so requiring "ccl:lib;backquote.lisp" instead
Can't find #P"ccl:library;lispequ.lx32fsl.newest" so requiring "ccl:library;lispequ.lisp" instead
Can't find #P"ccl:bin;level-2.lx32fsl.newest" so requiring "ccl:lib;level-2.lisp" instead
Can't find #P"ccl:bin;macr:lib;encapsulate.lisp" instead
;Compiling "/home/toor/ccl/lib/encapsulate.lisp"...
;Loading #P"/home/toor/ccl/bin/encapsulate.lx32fsl"...
Can't find #P"ccl:bin;read.lx32fsl.newest" so requiring "ccl:lib;read.lisp" instead
;Compiling "/home/toor/ccl/lib/read.lisp"...
;Loading #P"/home/toor/ccl/bin/read.lx32fsl"...
Can't find #P"ccl:bin;misc.lx32fsl.newest" so requir.lisp"...
;Compiling "/home/toor/ccl/level-0/l0-int.lisp"...
;Compiling "/home/ed.lx32fsl"...
;Loading #P"/home/toor/ccl/level-0/l0-symbol.lx32fsl"...
;Loading #P"/home/toor/ccl/level-0/l0-utils.lx32fsl"...
;Loading #P"/home/toor/ccl/level-0/nfasload.lx32fsl"...
;Wrote bootstrapping image: #P"/home/toor/ccl/x86-boot32"
;Wrote heap image: #P"/home/toor/ccl/lx86cl.image"
NIL
? (quit)
toor@toor-laptop:~/ccl$ ./lx86cl -n
Welcome to Clozure Common Lisp Version 1.6  (LinuxX8632)!
? (defun test-func ()
;;  (declare (optimize (speed 0) (safety 2)))           ;-> success
  (declare (optimize (speed 0) (safety 3)))             ;-> error
  (dotimes (i 10000)
    (remove-if-not #'(lambda (e)
    		          (eql i e))
			          '(a))))

(loop for i from 1 to 50000 do
     (format t "i=~A~%" i)
     (let ((t1 (ccl:process-run-function "t1" #'test-func))
        (t2 (ccl:process-run-function "t2" #'test-func)))
       (ccl:join-process t1)
       (ccl:join-process t2)))
TEST-FUNC
? i=1
i=2
i=3
i=4
...
i=13329
i=13330
i=13331
i=13332
i=13333
> Error: #<CATCH-FRAME #x182BC6D6> is not of type (OR SYMBOL FUNCTION), and can't be FUNCALLed or APPLYed
> While executing: CCL::MATCHP2, in process t2(26667).


;;;
;;; #<PROCESS t2(26667) [Active] #x182BB8FE> requires access to Shared Terminal Input
;;; Type (:y 26667) to yield control to this thread.
;;;

toor@toor-laptop:~$
#959 invalid FILE-LENGTH is not conforming. Pascal Bourguignon
Description

FILE-LENGTH should return the number of CHARACTER in a text file. It returns instead the number of bytes.

Either:

1- do the right thing, read the whole file when the encoding is not a 1-1 encoding, and count the characters, or

2- document that FILE-LENGTH on CHARACTER text files with non 1-1 encodings deviates from the standard.

#960 duplicate set-pprint-dispatch fails Francois-Rene Rideau
Description 
(progn (set-pprint-dispatch '(eql foo) #'(lambda (s o) o (format s "<Bar>"))) (write 'foo :pretty t) (terpri))"
Fails with a low-level error.

It works on all other implementations at my command-line: 

for l in sbcl cmucl clisp ecl abcl xcl gclcvs allegro lispworks scl ccl ; do echo $l ;  cl -l $l -i "(progn (set-pprint-dispatch '(eql foo) #'(lambda (s o) o (format s \"<Bar>\"))) (write 'foo :pretty t) (terpri))" ; done

Relevant excerpt from the CCL backtrace: 

> Error of type TYPE-ERROR: value NIL is not of the expected type STRUCTURE.
> While executing: CCL::SET-PPRINT-DISPATCH+, in process listener(1).
 (7FDFC28156E0) : 0 (PRINT-CALL-HISTORY :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :DETAILED-P T :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006A281D> :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL :FORMAT :TRADITIONAL) 861
  (&KEY :CONTEXT :PROCESS :ORIGIN :DETAILED-P :COUNT :START-FRAME-NUMBER :STREAM :PRINT-LEVEL :PRINT-LENGTH :SHOW-INTERNAL-FRAMES :FORMAT)
   CCL::CONTEXT: NIL
   PROCESS: NIL
   CCL::ORIGIN: NIL
   CCL::DETAILED-P: T
   COUNT: 1152921504606846975
   CCL::START-FRAME-NUMBER: 0
   STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006A281D>
   CCL::PRINT-LEVEL: 2
   CCL::PRINT-LENGTH: 5
   CCL::SHOW-INTERNAL-FRAMES: NIL
   FORMAT: :TRADITIONAL

  CCL::FRAME-NUMBER: 0
  *BACKTRACE-PRINT-LEVEL*: 2
  *BACKTRACE-PRINT-LENGTH*: 5
  *BACKTRACE-FORMAT*: :TRADITIONAL
  *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006A281D>
  *PRINT-CIRCLE*: NIL

 (7FDFC2815848) : 1 (ABNORMAL-APPLICATION-EXIT) 269
  NIL

  #:G137218: (ERROR)
  CCL::%HANDLERS%: ((ERROR) (PROCESS-RESET))

 (7FDFC2815878) : 2 (BREAK-LOOP-HANDLE-ERROR #<TYPE-ERROR #x30200074768D> 17574877211466) 1461
  (CONDITION *TOP-ERROR-FRAME*)
   CONDITION: #<TYPE-ERROR #x30200074768D>
   *TOP-ERROR-FRAME*: 17574877211466

  CCL::BOGUS-GLOBALS: NIL
  CCL::NEWVALS: NIL
  CCL::OLDVALS: NIL

 (7FDFC28158F0) : 3 (%ERROR #<TYPE-ERROR #x30200074768D> NIL 17574877211466) 357
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<TYPE-ERROR #x30200074768D>
   CCL::ARGS: NIL
   CCL::ERROR-POINTER: 17574877211466



 (7FDFC2815918) : 4 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4269
  NIL

  CCL::FRAME-PTR: 17574877211466
  CCL::FN: #<Compiled-function CCL::SET-PPRINT-DISPATCH+ #x300000B0C3EF>
  CCL::OP0: 205
  CCL::OP1: 220
  CCL::OP2: 54
  CCL::SKIP: -1
  CCL::TYPENAME: STRUCTURE
  CCL::XP: #<A Foreign Pointer #x7FDFC2A794D0>
  CCL::XCF: #<A Foreign Pointer #x7FDFC2815A50>

 (7FDFC2815970) : 5 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x7FDFC40A726F>) 181
  (CCL::THUNK)
   CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x7FDFC40A726F>

  COUNT: 0
  CCL::*ERROR-REENTRY-COUNT*: 0

 (7FDFC28159B0) : 6 (FUNCALL #'#<CCL::%XERR-DISP> 17574877524464) 549
  (#:G149901)
   #:G149901: 17574877524464

  #:G149910: #<A Foreign Pointer [stack-allocated] #x7FDFC2A78F80>
  CCL::XP: #<A Foreign Pointer #x7FDFC2A794D0>
  CCL::XCF: #<A Foreign Pointer #x7FDFC2815A50>
  #:G149911: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x7FDFC40A726F>

 (7FDFC28159E8) : 7 (%PASCAL-FUNCTIONS% 2 17574877524464) 397
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 2
   CCL::ARGS-PTR-FIXNUM: 17574877524464

  CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-Global)  #x3000005A1EDF>
  WITHOUT-INTERRUPTS: NIL
  CCL::*CALLBACK-TRACE-P*: NIL

*(7FDFC2815A50) : 8 (SET-PPRINT-DISPATCH+ (EQL FOO) #<Anonymous Function #x30200075630F> 0 NIL) 1273
  (CCL::TYPE-SPECIFIER FUNCTION CCL::PRIORITY CCL::TABLE)
   CCL::TYPE-SPECIFIER: (EQL FOO)
   FUNCTION: #<Anonymous Function #x30200075630F>
   CCL::PRIORITY: 0
   CCL::TABLE: NIL

  CCL::CATEGORY: CCL::OTHER
  CCL::PRED: #<Anonymous Function #x3020007477BF>
  CCL::ENTRY: #<CCL::ENTRY #x30200074776D>

 (7FDFC2815B00) : 9 (CALL-CHECK-REGS SET-PPRINT-DISPATCH (EQL FOO) #<Anonymous Function #x30200075630F>) 221
  (CCL::FN &REST CCL::ARGS)
   CCL::FN: SET-PPRINT-DISPATCH
   CCL::ARGS: ((EQL FOO) #<Anonymous Function #x30200075630F>)

  CCL::OLD-REGS: ((# #) (SET-PPRINT-DISPATCH # #) #<CCL::LEXICAL-ENVIRONMENT #x30200072143D> CCL::*LOADING-TOPLEVEL-LOCATION*)

 (7FDFC2815B38) : 10 (FUNCALL #'#<(:INTERNAL CCL::PROGN-IN-ENV CCL::CHEAP-EVAL-IN-ENVIRONMENT)> ((SET-PPRINT-DISPATCH # #) (WRITE # :PRETTY T) (TERPRI)) NIL NIL) 293
  (CCL::BODY&DECLS CCL::PARSE-ENV CCL::BASE-ENV)
   CCL::BODY&DECLS: ((SET-PPRINT-DISPATCH # #) (WRITE # :PRETTY T) (TERPRI))
   CCL::PARSE-ENV: NIL
   CCL::BASE-ENV: NIL

  CCL::BODY: (LAMBDA (CCL::X) (TYPEP CCL::X #))
  CCL::DECLS: NIL
  CCL::DEFAULT-LOCATION: NIL
  CCL::FORM: #<CCL::ENTRY #x30200074776D>
← 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 →
Batch Modify
Note: See TracBatchModify for help on using batch modify.
Note: See TracQuery for help on using queries.