Custom Query (1030 matches)

Filters
 
Or
 
  
 
Columns

Show under each result:

Results (397 - 399 of 1030)

← 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 →
Ticket Resolution Summary Owner Reporter
#1286 invalid Cannot INLINE functions created by MACROLET - again? Mark David
Description

Intro: generating a declaim-inline declaration and a function definition via macrolet somehow gets in the way of inlining. Detailed minimal example below. This looks very similar to the following Clozure CL bug, whence the "again?" in the summary comes from.

http://trac.clozure.com/ccl/ticket/1280

Ticket #1280 (closed defect: fixed)

Opened 2 months ago

Last modified 2 months ago Cannot INLINE functions created by MACROLET

Example with 3 files, package.lisp, a.lisp, and b.lisp: 

package.lisp:

(in-package :cl-user)

(defpackage a
  (:use :cl)
  (:export #:***f*** #:///f///))        ; easy to see in disassembly

(defpackage b
  (:use :cl)
  (:export #:g #:g2))



a.lisp:

(in-package #:a)

(macrolet ((define-op (name op)
             `(progn
                (declaim (inline ,op))
                (defun ,name (x y)
                  (,op x y)))))
  (define-op ***f*** +))


(declaim (inline ///f///))
(defun ///f/// (x y)
  (+ x y))



b.lisp:

(in-package #:b)

(defun g (x y)
  (flet ((h ()
           (a:***f*** x y)))
    #'h))

(defun g2 (x y)
  (flet ((h ()
           (a:///f/// x y)))
    #'h))

Session with results: 

; SLIME 2015-06-01
CL-USER> (progn
           (load "package.lisp")
           (load (compile-file "a.lisp"))
           (load (compile-file "b.lisp")))
#P"b.lx64fsl"
CL-USER> (disassemble (b:g 1 2))
L0
    (leaq (@ (:^ L0) (% rip)) (% fn))       ;     [0]
    (cmpl ($ 16) (% nargs))                 ;     [7]
    (jne L81)                               ;    [10]
    (pushq (% rbp))                         ;    [12]
    (movq (% rsp) (% rbp))                  ;    [13]
    (pushq (% arg_y))                       ;    [16]
    (pushq (% arg_z))                       ;    [17]

;;; (a:***f*** x y)
    (leaq (@ (:^ L61) (% fn)) (% temp0))    ;    [18]
    (pushq (% temp0))                       ;    [25]
    (movq (% arg_z) (% arg_y))              ;    [26]
    (movq (@ -8 (% rbp)) (% arg_z))         ;    [29]
    (movl ($ 16) (% nargs))                 ;    [33]
    (movq (@ 'A:***F*** (% fn)) (% temp0))  ;    [38]
    (pushq (@ #x12FB8))                     ;    [45]
    (jmpq (@ 10 (% temp0)))                 ;    [52]
L61
    (leaq (@ (:^ L0) (% rip)) (% fn))       ;    [61]
    (jmpq (@ .SPNVALRET))                   ;    [68]

;;; #<no source text>
L81
    (uuo-error-wrong-number-of-args)        ;    [81]
NIL
CL-USER> (disassemble (b:g2 1 2))
L0
    (leaq (@ (:^ L0) (% rip)) (% fn))       ;     [0]
    (cmpl ($ 16) (% nargs))                 ;     [7]
    (jne L81)                               ;    [10]
    (pushq (% rbp))                         ;    [12]
    (movq (% rsp) (% rbp))                  ;    [13]
    (pushq (% arg_y))                       ;    [16]
    (pushq (% arg_z))                       ;    [17]

;;; (a:///f/// x y)
    (leaq (@ (:^ L61) (% fn)) (% temp0))    ;    [18]
    (pushq (% temp0))                       ;    [25]
    (movq (% arg_z) (% arg_y))              ;    [26]
    (movq (@ -8 (% rbp)) (% arg_z))         ;    [29]
    (movl ($ 16) (% nargs))                 ;    [33]
    (movq (@ '+ (% fn)) (% temp0))          ;    [38]
    (pushq (@ #x12FB8))                     ;    [45]
    (jmpq (@ 10 (% temp0)))                 ;    [52]
L61
    (leaq (@ (:^ L0) (% rip)) (% fn))       ;    [61]
    (jmpq (@ .SPNVALRET))                   ;    [68]

;;; #<no source text>
L81
    (uuo-error-wrong-number-of-args)        ;    [81]
NIL

Summary: 

  g's #'h does NOT get a:***f*** inlined
  g2's #'h DOES get a:///f/// inlined
#1311 worksforme error building ccl/linuxarm with latest trunk Mark David
Description

I did

svn co http://svn.clozure.com/publicsvn/openmcl/trunk/linuxarm/ccl

and then tried to do a full rebuild, but it got an error after a while. Here's a log: 

    mhd:/home/mhd/lisp/ccl$ ./armcl --no-init
    Welcome to Clozure Common Lisp Version 1.10-dev-r16089:16090M-trunk  (LinuxARM32)!
    ? (ccl:rebuild-ccl :full t)
    Rebuilding Clozure Common Lisp using Version 1.10-dev-r16089:16090M-trunk  (LinuxARM32)
    ;Compiling "/home/mhd/lisp/ccl/lib/systems.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/systems.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/compile-ccl.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/compile-ccl.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/nxenv.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/nxenv.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/nx.lisp"...
    ; Including "/home/mhd/lisp/ccl/compiler/nx-basic.lisp"...
    ; Including "/home/mhd/lisp/ccl/compiler/lambda-list.lisp"...
    ; Including "/home/mhd/lisp/ccl/compiler/nx0.lisp"...
    ; Including "/home/mhd/lisp/ccl/compiler/nx1.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/l1-fasls/nx.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/optimizers.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/optimizers.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/dll-node.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/dll-node.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/arch.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arch.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/vreg.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/vreg.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/vinsn.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/vinsn.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/reg.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/reg.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/subprims.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/subprims.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/backend.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/backend.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/nx2.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/nx2.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/acode-rewrite.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/acode-rewrite.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-arch.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-arch.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/armenv.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/armenv.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-asm.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-asm.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-lap.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-lap.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-backend.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-backend.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-vinsns.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-vinsns.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm2.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm2.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-lapmacros.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-lapmacros.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/xdump/xarmfasload.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/xdump/xarm-fasload.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/xdump/xfasload.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/xdump/xfasload.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/xdump/heap-image.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/xdump/heap-image.lafsl"...
    Can't find #P"ccl:library;lispequ.lafsl.newest" so requiring "ccl:library;lispequ.lisp" instead
    Can't find #P"ccl:bin;hash.lafsl.newest" so requiring "ccl:lib;hash.lisp" instead
    Can't find #P"ccl:bin;backquote.lafsl.newest" so requiring "ccl:lib;backquote.lisp" instead
    Can't find #P"ccl:bin;level-2.lafsl.newest" so requiring "ccl:lib;level-2.lisp" instead
    Can't find #P"ccl:bin;macros.lafsl.newest" so requiring "ccl:lib;macros.lisp" instead
    Can't find #P"ccl:bin;defstruct-macros.lafsl.newest" so requiring "ccl:lib;defstruct-macros.lisp" instead
    Can't find #P"ccl:bin;lists.lafsl.newest" so requiring "ccl:lib;lists.lisp" instead
    Can't find #P"ccl:bin;chars.lafsl.newest" so requiring "ccl:lib;chars.lisp" instead
    Can't find #P"ccl:bin;setf.lafsl.newest" so requiring "ccl:lib;setf.lisp" instead
    Can't find #P"ccl:bin;setf-runtime.lafsl.newest" so requiring "ccl:lib;setf-runtime.lisp" instead
    Can't find #P"ccl:bin;defstruct.lafsl.newest" so requiring "ccl:lib;defstruct.lisp" instead
    Can't find #P"ccl:bin;defstruct-lds.lafsl.newest" so requiring "ccl:lib;defstruct-lds.lisp" instead
    Can't find #P"ccl:bin;foreign-types.lafsl.newest" so requiring "ccl:lib;foreign-types.lisp" instead
    Can't find #P"ccl:bin;db-io.lafsl.newest" so requiring "ccl:lib;db-io.lisp" instead
    Can't find #P"ccl:bin;nfcomp.lafsl.newest" so requiring "ccl:lib;nfcomp.lisp" instead
    Can't find #P"ccl:bin;hashenv.lafsl.newest" so requiring "ccl:xdump;hashenv.lisp" instead
    Can't find #P"ccl:bin;ffi-linuxarm.lafsl.newest" so requiring "ccl:lib;ffi-linuxarm.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/library/lispequ.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/library/lispequ.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/hash.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/hash.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/backquote.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/backquote.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/level-2.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/level-2.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/macros.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/macros.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/defstruct-macros.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/defstruct-macros.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/lists.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/lists.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/chars.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/chars.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/setf.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/setf.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/setf-runtime.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/setf-runtime.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/defstruct.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/defstruct.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/defstruct-lds.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/defstruct-lds.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/foreign-types.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/foreign-types.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/db-io.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/db-io.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/nfcomp.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/nfcomp.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/xdump/hashenv.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/hashenv.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/ffi-linuxarm.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/ffi-linuxarm.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/level-1.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-cl-package.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-boot-1.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-boot-2.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-boot-3.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-utils.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-init.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-symhash.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-numbers.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-aprims.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-sort.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-dcode.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-clos-boot.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-clos.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-unicode.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-streams.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-files.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-io.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-format.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-readloop.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-reader.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-sysio.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-pathnames.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-events.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-boot-lds.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-readloop-lds.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-lisp-threads.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-application.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-processes.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-typesys.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/sysutils.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-error-system.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-error-signal.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/version.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-callbacks.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/l1-sockets.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/linux-files.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/arm-error-signal.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/arm-trap-support.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/arm-threads-utils.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/arm-callback-support.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/streams.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/streams.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/pathnames.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/pathnames.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/backtrace.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/backtrace.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/apropos.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/apropos.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/numbers.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/numbers.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/dumplisp.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/dumplisp.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/source-files.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/source-files.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/swink.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/swink.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/arm-backtrace.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-backtrace.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/compiler/ARM/arm-disassemble.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arm-disassemble.lafsl"...
    Can't find #P"ccl:bin;encapsulate.lafsl.newest" so requiring "ccl:lib;encapsulate.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/encapsulate.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/encapsulate.lafsl"...
    Can't find #P"ccl:bin;read.lafsl.newest" so requiring "ccl:lib;read.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/read.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/read.lafsl"...
    Can't find #P"ccl:bin;misc.lafsl.newest" so requiring "ccl:lib;misc.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/misc.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/misc.lafsl"...
    Can't find #P"ccl:bin;arrays-fry.lafsl.newest" so requiring "ccl:lib;arrays-fry.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/arrays-fry.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/arrays-fry.lafsl"...
    Can't find #P"ccl:bin;sequences.lafsl.newest" so requiring "ccl:lib;sequences.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/sequences.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/sequences.lafsl"...
    Can't find #P"ccl:bin;sort.lafsl.newest" so requiring "ccl:lib;sort.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/sort.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/sort.lafsl"...
    Can't find #P"ccl:bin;method-combination.lafsl.newest" so requiring "ccl:lib;method-combination.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/method-combination.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/method-combination.lafsl"...
    Can't find #P"ccl:bin;case-error.lafsl.newest" so requiring "ccl:lib;case-error.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/case-error.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/case-error.lafsl"...
    Can't find #P"ccl:bin;pprint.lafsl.newest" so requiring "ccl:lib;pprint.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/pprint.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/pprint.lafsl"...
    Can't find #P"ccl:bin;format.lafsl.newest" so requiring "ccl:lib;format.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/format.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/format.lafsl"...
    Can't find #P"ccl:bin;time.lafsl.newest" so requiring "ccl:lib;time.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/time.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/time.lafsl"...
    Can't find #P"ccl:bin;backtrace-lds.lafsl.newest" so requiring "ccl:lib;backtrace-lds.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/backtrace-lds.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/backtrace-lds.lafsl"...
    Can't find #P"ccl:bin;ccl-export-syms.lafsl.newest" so requiring "ccl:lib;ccl-export-syms.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/ccl-export-syms.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/ccl-export-syms.lafsl"...
    Can't find #P"ccl:bin;prepare-mcl-environment.lafsl.newest" so requiring "ccl:lib;prepare-mcl-environment.lisp" instead
    ;Compiling "/home/mhd/lisp/ccl/lib/prepare-mcl-environment.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/bin/prepare-mcl-environment.lafsl"...
    ;Compiling "/home/mhd/lisp/ccl/lib/number-macros.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/number-case-macro.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/loop.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-1/runtime.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/mcl-compat.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/arglist.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/edit-callers.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/lib/describe.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/cover.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/leaks.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/core-files.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/dominance.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/swank-loader.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/remote-lisp.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/tools/asdf.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/sockets.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/tools/defsystem.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/jp-encode.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/library/cn-encode.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-aprims.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-array.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-bignum32.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-bignum64.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-cfm-support.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-complex.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-def.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-error.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-float.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-hash.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-init.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-int.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-io.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-misc.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-numbers.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-pred.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-symbol.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/l0-utils.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/nfasload.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-array.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-bignum.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-clos.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-def.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-float.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-hash.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-io.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-misc.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-numbers.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-pred.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-symbol.lisp"...
    ;Compiling "/home/mhd/lisp/ccl/level-0/ARM/arm-utils.lisp"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-array.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-bignum.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-clos.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-def.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-float.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-hash.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-io.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-misc.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-numbers.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-pred.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-symbol.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/ARM/arm-utils.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-aprims.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-array.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-bignum32.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-bignum64.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-cfm-support.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-complex.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-def.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-error.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-float.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-hash.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-init.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-int.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-io.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-misc.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-numbers.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-pred.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-symbol.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/l0-utils.lafsl"...
    ;Loading #P"/home/mhd/lisp/ccl/level-0/nfasload.lafsl"...
    ;Wrote bootstrapping image: #P"/home/mhd/lisp/ccl/arm-boot"
    ;Building lisp-kernel ...
    #<error printing #<Recursive printing error  #x15A1F275> #x159FF336>
    > While executing: #<error printing #<Recursive printing error  #x14008FC6> #x14256D8E>, in process #<error printing #<Recursive printing error  #x15A1DB3D> #x1059B8B6>(1).
    > Type :POP to abort, :R for a list of available restarts.
    > Type :? for other options.
    1 > :b
     (B6C81400) : 0 (FUNCALL #'#<REBUILD-CCL> :UPDATE NIL :FULL T :CLEAN T :KERNEL T :FORCE NIL :RELOAD T :EXIT NIL :RELOAD-ARGUMENTS NIL :VERBOSE NIL :OPTIONAL-FEATURES NIL :SAVE-SOURCE-LOCATIONS :NO-TEXT :ALLOW-CONSTANT-REDEFINITION T) 1996
     (B6C81480) : 1 (CALL-CHECK-REGS REBUILD-CCL :FULL T) 112
     (B6C814C0) : 2 (TOPLEVEL-EVAL (REBUILD-CCL :FULL T) NIL) 600
     (B6C81538) : 3 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x142CD216> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x142CD19E> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x141788D6>) 1484
     (B6C81670) : 4 (RUN-READ-LOOP :BREAK-LEVEL 0) 76
     (B6C81698) : 5 (TOPLEVEL-LOOP) 68
     (B6C816D8) : 6 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 84
     (B6C816F8) : 7 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 472
     (B6C81748) : 8 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x142CC93E> (#<COMPILED-LEXICAL-CLOSURE # #x142CC73E>)) 412
     (B6C81860) : 9 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x142CC93E> (#<COMPILED-LEXICAL-CLOSURE # #x142CC73E>)) 372
     (B6C81B48) : 10 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 216
    1 >
#1010 duplicate (setf schar) with fixnum index fails Willem Broekema
Description 
Clozure CL "Version 1.8-r15286M  (LinuxX8632)"

(defun test ()
  (let ((bit-arr (make-array 1000 :element-type 'bit :initial-element 0)))
    ;; Set one bit in the array, for #\A
    (setf (aref bit-arr (char-code #\A)) 1)
    (let ((num-chars 1)
          (char-arr (make-string 1)))
      ;; loop over the bit array, finding the bit, and putting #\A in CHAR-ARR
      (loop for src-char-code fixnum from 0
            with ret-ix fixnum = 0
            when (= (sbit bit-arr src-char-code) 1)
            do (progn (setf (schar char-arr ret-ix) (code-char src-char-code))
                      (incf ret-ix)
                      (if (= ret-ix num-chars)
                          (return)
                        (warn "(ret-ix) ~A != ~A (num-chars)" ret-ix num-chars))))
      char-arr)))

Running gives: 

  Warning: (ret-ix) 1 != 1 (num-chars)
  ; While executing: COMMON-LISP-USER::TEST, in process listener(1).
  > Error: Array index 1000 out of bounds for #<SIMPLE-BIT-VECTOR 1000>

Removing the FIXNUM declaration for RET-IX inside the loop solves it: 

  ..
  with ret-ix = 0
  ..
← 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 →
Batch Modify
Note: See TracBatchModify for help on using batch modify.
Note: See TracQuery for help on using queries.