October 2011 - armedbear-ticket - mailman3.common-lisp.net

[armedbear-ticket] [armedbear] #171: Support for circular forms breaks Ironclad compilation
by armedbear 17 Nov '11

17 Nov '11

#171: Support for circular forms breaks Ironclad compilation --------------------------------+------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 0.28 Component: compiler | Version: 0.27 Keywords: quicklisp ironclad | --------------------------------+------------------------------------------- The support for circularity in compiled forms committed in r13600 breaks the build of ironclad-0.28 as installed from Quicklisp: {{{ The assertion (OR (EQ SYSTEM:INDEX T) (FIXNUMP SYSTEM::OBJECT)) failed. [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE] Retry assertion. 1: [TRY-RECOMPILING] Try recompiling whirlpool 2: [RETRY] Retry compiling #<IRONCLAD-SYSTEM::IRONCLAD-SOURCE-FILE "ironclad" "src" "digests" "whirlpool">. 3: [ACCEPT] Continue, treating compiling #<IRONCLAD-SYSTEM::IRONCLAD- SOURCE-FILE "ironclad" "src" "digests" "whirlpool"> as having been successful. 4: [ABORT] Abort compilation. 5: [*ABORT] Return to SLIME's top level. --more-- Backtrace: 0: (#<FUNCTION {21037517}> #<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>) 1: (APPLY #<FUNCTION {21037517}> (#<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>) 3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {4AEE0373}>) 4: (ERROR #<SIMPLE-ERROR {4AEE0373}>) 5: (SYSTEM::ASSERT-ERROR (OR (EQ SYSTEM:INDEX T) (FIXNUMP SYSTEM::OBJECT)) NIL NIL) 6: (SYSTEM::DF-HANDLE-CIRCULARITY 2276983119 #<FILE-STREAM {69FC49EF}> NIL) 7: (SYSTEM::DUMP-OBJECT 2276983119 #<FILE-STREAM {69FC49EF}>) 8: (SYSTEM::DUMP-VECTOR #(0 0 404997864 2276983119 916902645 2037354834 ...) #<FILE-STREAM {69FC49EF}>) 9: (SYSTEM::DUMP-OBJECT #(0 0 404997864 2276983119 916902645 2037354834 ...) #<FILE-STREAM {69FC49EF}>) 10: (SYSTEM::DUMP-CONS (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}>) 11: (SYSTEM::DUMP-OBJECT (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}>) 12: (SYSTEM::DUMP-CONS (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>) 13: (SYSTEM::DUMP-OBJECT (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>) 14: (SYSTEM:DUMP-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>) 15: (SYSTEM::OUTPUT-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...)))) 16: (SYSTEM::PROCESS-TOPLEVEL-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}> .. 17: (SYSTEM::PROCESS-TOPLEVEL-FORM (IRONCLAD::DEFCONST IRONCLAD::+RC+ #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}> NIL) }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/171> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 1

[armedbear-ticket] [armedbear] #179: LIST-DIRECTORY ignores :RESOLVE-SYMLINKS flag?
by armedbear 28 Oct '11

28 Oct '11

#179: LIST-DIRECTORY ignores :RESOLVE-SYMLINKS flag? -----------------------------------------------------------+---------------- Reporter: mevenson | Owner: somebody Type: defect | Status: new Priority: minor | Milestone: unscheduled Component: other | Version: 1.0 Keywords: list-directory platform-dependence unanalyzed | -----------------------------------------------------------+---------------- I think there is a bug in the list-directory function. The resolve- symlinks flag seems to always resolve the directory symlinks even when the flag is set to nil. Let's have a directory as : total 4 drwxr-xr-x 2 bege users 4096 Oct 23 23:52 dir lrwxrwxrwx 1 bege users 3 Oct 23 23:53 dir-link -> dir -rw-r--r-- 1 bege users 0 Oct 23 23:53 file lrwxrwxrwx 1 bege users 4 Oct 23 23:53 file-link -> file Then Armed Bear Common Lisp 0.26.2 Java 1.6.0_26 Sun Microsystems Inc. Java HotSpot(TM) 64-Bit Server VM Low-level initialization completed in 1.436 seconds. Startup completed in 5.385 seconds. Type ":help" for a list of available commands. CL-USER(1): (directory "./*" :resolve-symlinks nil) (#P"/home/bege/TEST/./file" #P"/home/bege/TEST/dir/" #P"/home/bege/TEST /./file-link" #P"/home/bege/TEST/dir/") Sorry, if this has been already fixed... -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/179> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 4

[armedbear-ticket] [armedbear] #178: Replace source path with logical pathnames
by armedbear 24 Oct '11

24 Oct '11

#178: Replace source path with logical pathnames --------------------------------------------------------------+------------- Reporter: mevenson | Owner: somebody Type: enhancement | Status: new Priority: minor | Milestone: unscheduled Component: other | Version: 1.0 Keywords: fasl bite-sized logical-pathname source metadata | --------------------------------------------------------------+------------- It would reduce the fasl sizes somewhat to refer to the path as a logical pathname. This is a suitable "bite-sized" excercise to new contributors to ABCL. Simply figure out how to get the compiler to emit logical pathnames referring to [sys;src], and ensure the proper path is recorded in 'system.lisp' at build time. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/178> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 0