gmane.lisp.openmcl.devel

NSOpenPanel display bug

Raffael Cavallaro — 2008-12-02T02:18:44

If I execute this simple bit of code (or any other call to NSOpenPanel) I get multiple Date Modified columns. These then persist in new launches of the CCL IDE. At first there were just two, but now there are a total of 4. Restarting the IDE doesn't change this, nor does logging out, or restarting, or rebuilding ccl. Finally, these extra columns are also present in the IDE's open file dialog as well: (#/runModalForTypes: (#/openPanel (< at >class "NSOpenPanel")) nil) Any Idea what's going on here? regards, Ralph Raffael Cavallaro, Ph.D. raffaelcavallaro< at >mac.com _______________________________________________ Openmcl-devel mailing list Openmcl-devel< at >clozure.com http://clozure.com/mailman/listinfo/openmcl-devel

value * is not of the expected type LIST

Cyrus Harmon — 2008-12-01T22:59:17

and here's another CCL issue that happens on both x86 and x8664 on Darwin. The problem seems to have something to do with declarations of the form: (declare (type (simple-array ,element-type *) ,vals)) changing the * to (*) seems to fix the problem, but it would seem that * should work here as well, declaring that this is a simple-array, not that it is a simple array of one dimension of unknown size. thanks again, cyrus value * is not of the expected type LIST. [Condition of type TYPE-ERROR] Restarts: 0: [RETRY-COMPILE-FILE] Retry compiling #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/matrix.lisp" 1: [SKIP-COMPILE-FILE] Skip compiling #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/matrix.lisp" 2: [TRY-RECOMPILING] Try recompiling matrix 3: [RETRY] Retry performing # on #. 4: [ACCEPT] Continue, treating # on # as having been successful. 5: [RETRY] Retry SLIME REPL evaluation request. 6: [ABORT] Return to SLIME's top level. 7: [ABORT-BREAK] Reset this thread 8: [ABORT] Kill this thread Backtrace: 0: ((:INTERNAL CCL::%XERR-DISP)) 1: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #) 2: (CCL::%XERR-DISP 369755270) 3: (CCL::%PASCAL-FUNCTIONS% 2 369755270) 4: (CCL::X862-GENERAL-ASET2 # NIL NIL (27 (SIMPLE-ARRAY DOUBLE-FLOAT) (24614 #)) (27 (MOD 1152921504606846975) ..)) 5: (CCL::X862-FORM :DOUBLE-FLOAT-VECTOR NIL NIL (9315 (27 (SIMPLE- ARRAY DOUBLE-FLOAT) (24614 #)) (27 (MOD 1152921504606846975) (24614 #)) ..))) 6: (CCL::X862-LOCAL-TAGBODY # NIL NIL (#3=(#:G866 14 #1=#(1 0 80 #) . T) #2=(#:G867 15 #1#)) ((43 #2#) (30 . #3#) ..)))) 7: (CCL::X862-PROGN # NIL NIL ((#:|nil|))) 8: (CCL::X862-UNDO-BODY # NIL NIL (22529 ((8223 (# #) (# # # # # #)) (#:|nil|))) #(1 0 80 #)) 9: (CCL::X862-LET* # NIL NIL (# #) ((27 FIXNUM (24614 #)) (24617 0)) (22529 ..)))) 10: (CCL::X862-FORM # NIL NIL (29 (# #) ((27 FIXNUM (24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688)) 11: (CCL::X862-LOCAL-TAGBODY # NIL NIL (#3=(#:G863 12 #1=#(1 0 80 #) . T) #2=(#:G864 13 #1#)) ((43 #2#) (30 . #3#) ..))))) 12: (CCL::X862-PROGN # NIL NIL ((#:|nil|))) 13: (CCL::X862-UNDO-BODY # NIL NIL (22529 ((8223 (# #) (# # # # # #)) (#:|nil|))) #(1 0 80 #)) 14: (CCL::X862-LET* # NIL NIL (# #) ((27 FIXNUM (24614 #)) (24617 0)) (22529 ..)))) 15: (CCL::X862-FORM # NIL NIL (29 (# #) ((27 FIXNUM (24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688)) 16: (CCL::X862-UNDO-BODY # NIL NIL (29 (# #) ((27 FIXNUM (24614 #)) (24617 0)) (22529 ((8223 # #) (#:|nil|))) 2162688) #(1 ..)) 17: (CCL::X862-LET* # NIL NIL (#) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 (24616 CLEM::MATRIX-VALS) (NIL #) NIL))) (29 ..))) 18: (CCL::X862-FORM # NIL NIL (29 (#) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # # NIL))) ..)))) 19: (CCL::X862-UNDO-BODY # NIL NIL (29 (#) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # # NIL))) ..)))) 20: (CCL::X862-LET* # NIL NIL (#) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 (24616 CLEM::MATRIX-VALS) (NIL #) NIL))) (29 ..))))) 21: (CCL::X862-FORM # NIL NIL (29 (#) ((27 (SIMPLE-ARRAY DOUBLE-FLOAT) (42 # # NIL))) ..))))) 22: (CCL::X862-PROGN # # 262143 ((24614 #))) 23: (CCL::X862-UNDO-BODY # # 262143 (22529 ((29 (#) (#) (29 # # # 2162688) 2162688) (24614 #))) #(1 0 64 #)) 24: (CCL::X862-LET* # # 262143 (#) ((29 (#) ((24616 #)) (42 (25678 # #) (# #) NIL) 2162688)) (22529 ..)))) 25: (CCL::X862-FORM # # 262143 (29 (#1=#) ((29 (#) (#) (42 # # NIL) 2162688)) (22529 ((29 # # # 2162688) (24614 #1#))) 2162688)) 26: (CCL::X862-UNDO-BODY # # 262143 (29 (#1=#) ((29 (#) (#) (42 # # NIL) 2162688)) (22529 ((29 # # # 2162688) (24614 #1#))) ..)) 27: (CCL::X862-LET* # # 262143 (# # # #) ((42 (24616 CLEM:DIM) (NIL (#)) NIL) ..))))) 28: (CCL::X862-FORM # # 262143 (29 (# # # #) ..))))) 29: (CCL::X862-UNDO-BODY # # 262143 (29 (# # # #) ..))))) 30: (CCL::X862-SEQ-FBIND # # 262143 NIL NIL (29 (# # # #) ..)))) 31: (CCL::X862-LAMBDA # # 262143 (#) NIL NIL NIL (NIL NIL) (117 NIL NIL ..))))) 32: (CCL::X862-COMPILE # NIL T) 33: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA (CCL::&METHOD #:NEXT-METHOD- CONTEXT CLEM::M) ..) 34: (CCL::FCOMP-NAMED-FUNCTION (LAMBDA (CCL::&METHOD #:NEXT-METHOD- CONTEXT CLEM::M) ..) 35: (CCL::FCOMP-RANDOM-TOPLEVEL-FORM (CCL::ENSURE-METHOD ..)) 36: (CCL::FCOMP-FORM (CCL::ENSURE-METHOD ..) 37: (CCL::FCOMP-FORM-LIST ((CCL::ENSURE-METHOD ..)) 38: (CCL::FCOMP-COMPILER-LET (COMPILER-LET ((CCL::*NX-METHOD-WARNING- NAME* '(CLEM:TRANSPOSE #))) ..) 39: (CCL::FCOMP-FORM (COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(CLEM:TRANSPOSE #))) ..) 40: (CCL::FCOMP-FORM-LIST ((EVAL-WHEN (:COMPILE-TOPLEVEL) ..))) 41: (CCL::FCOMP-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) ..)) 42: (CCL::FCOMP-FORM (DEFMETHOD CLEM:TRANSPOSE ((CLEM::M CLEM:DOUBLE- FLOAT-MATRIX)) ..) 43: (CCL::FCOMP-READ-LOOP "/Users/sly/projects/git.cyrusharmon.org/ clem/src/matrix.lisp" #P"home:projects;git.cyrusharmon.org;clem;src;matrix.lisp.newest" 0 # :NOT.. 44: (CCL::FCOMP-FILE "/Users/sly/projects/git.cyrusharmon.org/clem/ src/matrix.lisp" #P"home:projects;git.cyrusharmon.org;clem;src;matrix.lisp.newest" 0 #) 45: (CCL::%COMPILE-FILE "/Users/sly/projects/git.cyrusharmon.org/ clem/src/matrix.lisp" "/Users/sly/projects/git.cyrusharmon.org/clem/ src/ccl-1.3-darwin-x86-64/matrix.dx64fsl" NIL NIL NIL NIL T T NIL :NO- T.. 46: (COMPILE-FILE #P"/Users/sly/projects/git.cyrusharmon.org/clem/ src/matrix.lisp" :OUTPUT-FILE #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86-64/ matrix.dx64fsl" :VERBOSE NIL :PRIN.. 47: (# # #) 48: (# # #) 49: (CCL::%CALL-NEXT-METHOD (NIL # # #)) 50: (# # #) 51: (CCL::%%CALL-METHOD* # (#) (# ..)) 52: (# # #) 53: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE)) 54: (CCL::CALL-WITH-COMPILATION-UNIT # :OVERRIDE NIL) 55: (ASDF:OPERATE ASDF:LOAD-OP #:CLEM) 56: (CCL::CALL-CHECK-REGS ASDF:OOS ASDF:LOAD-OP #:CLEM) 57: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op '#:clem)\n") 58: ((:INTERNAL SWANK::REPL-EVAL)) 59: (SWANK::TRACK-PACKAGE #) 60: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #) 61: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #) 62: (SWANK::REPL-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n") 63: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load- op '#:clem)\n") 64: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n") "COMMON-LISP-USER" 10) 65: (SWANK::PROCESS-REQUESTS NIL) 66: ((:INTERNAL SWANK::HANDLE-REQUESTS)) 67: (# # #) 68: (SWANK::CALL-WITH-REDIRECTED-IO # #) 69: (SWANK::CALL-WITH-CONNECTION # #) 70: (SWANK::HANDLE-REQUESTS # NIL) 71: (SWANK::CALL-WITH-BINDINGS NIL #) 72: (CCL::RUN-PROCESS-INITIAL-FORM # (#)) 73: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) # (#)) 74: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

yet another ccl/x86 issue

Cyrus Harmon — 2008-12-01T18:47:03

The combination of ccl and my code seems to be quite good at picking up subtle "issues" in both systems. Here's the latest: Bug (probably): can't determine class of # #x8F1F7B6> [Condition of type SIMPLE-ERROR] Restarts: 0: [LOAD-SOURCE] Load "home:projects;git.cyrusharmon.org;clem;src;subtr.lisp" instead of "/ Users/sly/projects/git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/ subtr.dx32fsl" 1: [RECOMPILE] Compile "home:projects;git.cyrusharmon.org;clem;src;subtr.lisp" into "/Users/ sly/projects/git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/ subtr.dx32fsl" then load "/Users/sly/projects/git.cyrusharmon.org/clem/ src/ccl-1.3-darwin-x86/subtr.dx32fsl" again 2: [RETRY-LOAD] Retry loading #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl" 3: [SKIP-LOAD] Skip loading #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl" 4: [LOAD-OTHER] Load other file instead of #P"/Users/sly/projects/ git.cyrusharmon.org/clem/src/ccl-1.3-darwin-x86/subtr.dx32fsl" 5: [TRY-RECOMPILING] Recompile subtr and try loading it again 6: [RETRY] Retry performing # on #. 7: [ACCEPT] Continue, treating # on # as having been successful. 8: [RETRY] Retry SLIME REPL evaluation request. 9: [ABORT] Return to SLIME's top level. 10: [ABORT-BREAK] Reset this thread 11: [ABORT] Kill this thread Backtrace: 0: [error printing frame] 1: [error printing frame] 2: [error printing frame] 3: (CCL::COMPUTE-NTH-ARG-COMBINED-METHOD # (# #((#) NIL NIL 2 ..)) 6: [error printing frame] 7: (# # T :DATUM # #x8F1F7B6> :EXPECTED-TYPE FUNCTION) 8: (# # :DATUM # #x8F1F7B6> :EXPECTED-TYPE FUNCTION) 9: (CCL::%MAKE-STD-INSTANCE # (:DATUM #) 10: (# # :DATUM # #x8F1F7B6> :EXPECTED-TYPE FUNCTION) 11: (# TYPE- ERROR :DATUM # #x8F1F7B6> :EXPECTED-TYPE FUNCTION) 12: (MAKE-CONDITION TYPE-ERROR :DATUM # #x8F1F7B6> :EXPECTED-TYPE FUNCTION) 13: [error printing frame] 14: [error printing frame] 15: [error printing frame] 16: [error printing frame] 17: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE (NIL # . 1564219)) 18: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (NIL (#) ..) 19: (# # (:NAME CLEM::MAT-SUBTR-RANGE3 :SPECIALIZERS ..))) 21: (# # :NAME CLEM::MAT-SUBTR- RANGE3 :SPECIALIZERS (# ..).. 22: (CCL::ENSURE-METHOD CLEM::MAT-SUBTR-RANGE3 (#1=# # #1# #2=# #2# #2# ..) 23: (CCL::$FASL-LFUNCALL #) 24: (CCL::%FASLOAD "/Users/sly/projects/git.cyrusharmon.org/clem/src/ ccl-1.3-darwin-x86/subtr.dx32fsl" #(# ..)) 25: (CCL::%LOAD #P"/Users/sly/projects/git.cyrusharmon.org/clem/src/ ccl-1.3-darwin-x86/subtr.dx32fsl" NIL NIL :ERROR :DEFAULT) 26: (LOAD #P"/Users/sly/projects/git.cyrusharmon.org/clem/src/ ccl-1.3-darwin-x86/subtr.dx32fsl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT- EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT) 27: (# # #) 28: (# # #) 29: (CCL::%CALL-NEXT-METHOD (NIL # # #)) 30: (# # #) 31: (CCL::%%CALL-METHOD* # (#) (# #)) 32: (# # #) 33: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY ASDF:OPERATE)) 34: (CCL::CALL-WITH-COMPILATION-UNIT # :OVERRIDE NIL) 35: (ASDF:OPERATE ASDF:LOAD-OP #:CLEM) 36: (CCL::CALL-CHECK-REGS ASDF:OOS ASDF:LOAD-OP #:CLEM) 37: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op '#:clem)\n") 38: ((:INTERNAL SWANK::REPL-EVAL)) 39: (SWANK::TRACK-PACKAGE #) 40: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #) 41: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #) 42: (SWANK::REPL-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n") 43: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load- op '#:clem)\n") 44: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(asdf:oos 'asdf:load-op '#:clem)\n") "COMMON-LISP-USER" 6) 45: (SWANK::PROCESS-REQUESTS NIL) 46: ((:INTERNAL SWANK::HANDLE-REQUESTS)) 47: (# # #) 48: (SWANK::CALL-WITH-REDIRECTED-IO # #) 49: (SWANK::CALL-WITH-CONNECTION # #) 50: (SWANK::HANDLE-REQUESTS # NIL) 51: (SWANK::CALL-WITH-BINDINGS NIL #) 52: (CCL::RUN-PROCESS-INITIAL-FORM # (#)) 53: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) # (#)) 54: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

Unprintable CCL::IMMEDIATE : #xEB

Cyrus Harmon — 2008-12-01T05:07:19

Ok, so my latest issue in trying to port my stuff to ccl is the error shown below. Not sure where to begin with this one. thanks, Cyrus value # is not of the expected type CCL::UVECTOR. [Condition of type TYPE-ERROR] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [ABORT] Return to SLIME's top level. 2: [ABORT-BREAK] Reset this thread 3: [ABORT] Kill this thread Backtrace: 0: ((:INTERNAL CCL::%XERR-DISP)) 1: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #) 2: (CCL::%XERR-DISP -334757490) 3: (CCL::%PASCAL-FUNCTIONS% 2 -334757490) 4: (CCL::%PR-INTEGER # 10 # T NIL) 5: (CCL::%RSC-STRING #) 6: (CCL::%ERR-DISP-INTERNAL # (# \M #(0 0)) 1564382) 7: (READ-SEQUENCE #(0 0) # :START 0 :END 2) 8: (READ-BYTES # 2) 9: (READ-INT-16 # :BYTE-ORDER NIL) 10: (READ-TIFF-STREAM #) 11: (READ-TIFF-FILE "images/snow.tiff") 12: (CCL::CALL-CHECK-REGS READ-TIFF-FILE "images/snow.tiff") 13: (CCL::CHEAP-EVAL-IN-ENVIRONMENT (CCL::%DEFPARAMETER '*SNOW- IMAGE* (READ-TIFF-FILE "images/snow.tiff") NIL) #) 14: (SWANK::EVAL-REGION "(defparameter *snow-image* (read-tiff-file \"images/snow.tiff\"))\n") 15: ((:INTERNAL SWANK::REPL-EVAL)) 16: (SWANK::TRACK-PACKAGE #) 17: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #) 18: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #) 19: (SWANK::REPL-EVAL "(defparameter *snow-image* (read-tiff-file \"images/snow.tiff\"))\n") 20: (CCL::CALL-CHECK-REGS SWANK:LISTENER-EVAL "(defparameter *snow- image* (read-tiff-file \"images/snow.tiff\"))\n") 21: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(defparameter *snow- image* (read-tiff-file \"images/snow.tiff\"))\n") "RETROSPECTIFF" 85) 22: (SWANK::PROCESS-REQUESTS NIL) 23: ((:INTERNAL SWANK::HANDLE-REQUESTS)) 24: (# # #) 25: (SWANK::CALL-WITH-REDIRECTED-IO # #) 26: (SWANK::CALL-WITH-CONNECTION # #) 27: (SWANK::HANDLE-REQUESTS # NIL) 28: (SWANK::CALL-WITH-BINDINGS NIL #) 29: (CCL::RUN-PROCESS-INITIAL-FORM # (#)) 30: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) # (#)) 31: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

(setf (find-class ...) ...) problem

Cyrus Harmon — 2008-11-30T21:40:14

I'm trying to use david lichteblau's cxml-stp with ccl and am getting errors about undefined types. It seems that ccl doesn't like the following: (setf (find-class 'document-type) (find-class 'cxml-stp:document-type)) a similar problem was discussed a while back where this problem arose with GSharp, but I'm not sure what the resolution was. Any suggestions? thanks, Cyrus

International Lisp Conference 2009

Andrew Shalit — 2008-11-26T21:13:18

The 2009 ILC will be held in Cambridge, Mass. Many Clozurites will be in attendance. If you have something you'd like to share, please consider submitting a paper. Regardless of that, we hope that you'll attend. ---- CALL FOR SUBMISSIONS INTERNATIONAL LISP CONFERENCE 2009 Lisp: The Next 50 Years http://www.international-lisp-conference.org Massachusetts Institute of Technology Cambridge, Massachusetts, USA March 22-25, 2009 Sponsored by the Association of Lisp Users General Information: The Association of Lisp Users is pleased to announce the 2009 International Lisp Conference will be held in Cambridge, Massachusetts, at the Massachusetts Institute of Technology, Sunday through Wednesday, March 22-25, 2009. The emphasis will be on present and future applications of technologies that have been or might soon be associated with the Lisp programming language and/or related languages and software. We encourage submissions in diverse areas, including but not limited to: language design and implementation, memory management, software engineering, mathematical and scientific computing, artificial intelligence, database processing and data mining, business intelligence, performance analysis, parallel processing, quantum computing, bioinformatics, telecommunications and networking, the semantic web, music, domain-specific languages, and entertainment technologies. ILC09 is not limited to topics discussed in previous symposia. Authors concerned about the appropriateness of a topic may communicate by electronic mail with the program chair prior to submission. Explaining a known idea in a new way may make as strong a contribution as inventing a new one. We encourage the submission of "pearls": elegant essays that illustrate an idea, for example by developing a short program. (A pearl should be concise, instructive, self-contained, and entertaining. Your pearl is likely to be rejected if your readers get bored, if the material gets too complicated, if too much specialized knowledge is needed, or if the writing is inelegant. The key to writing a good pearl is polishing.) There is no formal separation of categories and no need to explicitly label pearls as such: all papers, whether pearl or otherwise, will be judged on a combination of correctness, significance, novelty, clarity, and elegance. Each paper should explain its contributions in both general and technical terms, identifying what has been accomplished, explaining why it is significant, and comparing it with previous work. Authors should strive to make their papers understandable to a broad audience. Alongside our usual four-day program of tutorials, prominent invited speakers, and excellent technical sessions, this year we will also consider demonstration sessions. The official language of the conference is English. Further details are available at the conference web site: http://www.international-lisp-conference.org Technical Program: Original submissions in all areas related to the conference themes are invited for the following categories. Papers: Technical papers of up to 15 pages that describe original results ("research papers") or explain known ideas in new ways ("pearls"). Demonstrations: Abstracts of up to 4 pages for demonstrations of tools, libraries, and applications. Tutorials: Abstracts of up to 4 pages for in-depth presentations about topics of special interest for at least 90 minutes and up to 180 minutes. Panel discussions: Abstracts of up to 4 pages for discussions about current themes. Panel discussion proposals must mention panel members who are willing to partake in a discussion. Lightning talks: Abstracts of up to one page for talks to last for no more than 5 minutes. Important Dates: Please send contributions before the submission deadline to the program committee (ilc09-program-committee at alu.org). Deadline for submissions: December 9, 2009 Notification of acceptance or rejection: January 9, 2009 Deadline for final paper submissions: February 9, 2009 Organizing Committee: Conference Chair: Daniel Weinreb (ITA Software) General correspondence: ilc09-organizing-committee at alu.org Program Chair: Guy L. Steele Jr. (Sun Microsystems Laboratories) Contact: ilc09-program-committee at alu.org Local chair: Howard Shrobe (MIT) Technical Program Committee: to be announced soon

defclass initform issue

Zach Beane — 2008-11-26T12:51:22

I didn't expect the following result: ? (defclass foo () ((data :initform (make-array 1 :element-type '(signed-byte 16) :initial-element -1)))) # ? (make-instance 'foo) > Error: value -1 is not of the expected type (UNSIGNED-BYTE 16). Startup says: Welcome to Clozure Common Lisp Version 1.2-r10552 (LinuxX8664)! Is that a bug in CCL, or in my expectations? Zach

Running out of file descriptors with run-program

Daniel Dickison — 2008-11-25T21:24:22

I have a program that uses run-program to call out to ImageMagick many times (on the order of hundreds of calls). Eventually, I run into a "Too many open files" error inside a call to (pipe) in run-program. I specify :wait t so it shouldn't leave FDs open after the call exits. I don't specify an :input; however, I do specify stream objects for :output and :error, and my hunch is that FDs are left open when these two streams are different. If I change *error-output* to :output below, then the error goes away: (multiple-value-bind (status-key exit-code) (ccl:external-process-status (ccl:run-program "convert" (list (path "svg") (path "gif")) :wait t :output *verbose-output* :error *error-output*)) (assert (not (eq status-key :running))) (unless (= exit-code 0) (error "ImageMagick returned non-zero on exit: ~D" exit- code)))) *verbose-output* is either bound to *standard-output* or a dead-end broadcast-stream (make-broadcast-stream), but the error happens in either case. I can also reproduce the error running via SLIME or straight from the command line. Looking at the code for run-program and get-descriptor-for, it looks like only one of the stdout and stderr pipes get monitored, so one of them might be left dangling. Does that sound like a plausible explanation? Any help would be appreciated, whether it's a fix, instructions on how to fix, or a quick workaround. Daniel CL-USER> (lisp-implementation-version) "Version 1.2-r10552 (DarwinPPC32)" CL-USER> (problem-generator:generate-problems) ;;...snip... > Error: Too many open files > While executing: CCL::PIPE, in process listener(1). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Skip evaluation of (problem-generator:generate- problems :n 30) > Type :? for other options. 1 > :b (F019AB90) : 1 (PIPE) 540 (F019ABB0) : 3 (GET-DESCRIPTOR-FOR # # '(254 4) '(253 4) [...]) 2136 (F019ABD0) : 5 (RUN-PROGRAM "convert" '("convert" "/Volumes/D1/SVN Tree/trunk/research/PSLC/trunk/Base-height recog YK 2009/src/ recognition/images/svg/yk-parallelogram-ir-b120h30t120o-90r0.svg" "/ Volumes/D1/SVN Tree/trunk/research/PSLC/trunk/Base-height recog YK 2009/src/recognition/images/gif/yk-parallelogram-ir- b120h30t120o-90r0.gif") [...]) 1176 (F019ABF0) : 6 (CONVERT-SVG-TO-GIF #S(FIGURE- SVG:FIGURE :SHAPE :PARALLELOGRAM :HIGHLIGHTS (:BASE- RIGHT :RIGHT) ...)) 220 (F019AC00) : 7 (SAVE-PROBLEM #S(PROBLEM-GENERATOR:PROBLEM :NUMBER 13 :SHAPE :PARALLELOGRAM ...) [...]) 200 (F019AC10) : 8 (GENERATE-PROBLEMS [...]) 668 (F019AC30) : 10 (CALL-CHECK-REGS 'PROBLEM-GENERATOR:GENERATE- PROBLEMS [...]) 72 (F019AC50) : 12 (FUNCALL #'#<(:INTERNAL CCL::EVAL-STRING CCL::STARTUP-CCL)> "(problem-generator:generate-problems :n 30)") 272 (F019AC70) : 13 (STARTUP-CCL [...]) 1024 (F019AC90) : 14 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 56 (F019ACB0) : 16 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER- PROCESS)>) 384 (F019ACE0) : 18 (RUN-PROCESS-INITIAL-FORM # '(#)) 404 (F019AD20) : 20 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET- INTERNAL)> # '(#)) 164 (F019AD40) : 21 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP- FUNCTION)>) 172 1 > *error-output* # 1 > problem-generator::*verbose-output* # 1 >

sharing in external-process streams

Osei Poku — 2008-11-20T15:00:48

Hi, The attached diff was my solution for allowing customization of the :sharing keyword when creating input and output streams for external processes. The problem I was trying to solve was not being able to read and/or write on the streams that are created for external-processes when using :stream for the :input and :output keyword arguments. In particular, any reading and writing from threads that did not create the external-process failed due the the streams defaulting as :private to the creating thread. Comments? Osei Index: level-1/linux-files.lisp =================================================================== --- level-1/linux-files.lisp (revision 10465) +++ level-1/linux-files.lisp (working copy) < at >< at > -766,6 +766,8 < at >< at > (format stream " : ~d" (external-process-%exit-code p))) (format stream ")")))) +(defvar *external-process-sharing* :private) + (defun get-descriptor-for (object proc close-in-parent close-on-error &rest keys &key direction (element- type 'character) &allow-other-keys) < at >< at > -789,6 +791,7 < at >< at > :direction :output :element-type element-type :interactive nil + :sharing *external-process-sharing* :basic t :auto-close t) (cons read-pipe close-in-parent) < at >< at > -798,6 +801,7 < at >< at > (make-fd-stream read-pipe :direction :input :element-type element-type + :sharing *external-process-sharing* :interactive nil :basic t :auto-close t)

Pledge Drive and University / Corporate Support

Andrew Shalit — 2008-11-19T03:09:02

We've heard from a bunch of people who would like to support CCL financially but can't get their purchasing departments to give money to a "pledge drive." I'm happy to say that we have a solution to that problem. We've recently begun selling supported copies of Clozure CL. Pricing is as follows: Clozure CL + 1 support incident = $250 Clozure CL + 2 support incidents = $500 Clozure CL + 5 support incidents = $1,000 etc. We're happy to generate an invoice or fill a purchase order for a supported copy of CCL for anyone who wants one. Just let us know the number of support incidents you want, or the amount you want to spend, and let us know the organization, department, etc that we should be invoicing. Once the purchase is complete, you can use the support incidents to get direct support for your work, or you can direct us to use them for improvements to the CCL IDE. Please contact me if you'd like to make such a purchase. Yours, Andrew Shalit Clozure Associates

"internal" functions and xref

Takehiko Abe — 2008-11-18T08:25:06

(while trying to fix slime's who-calls for ccl-1.3, I noticed) ccl::make-xref-entry returns bogus xrefs when it is given "internal" functions. Example: $ ccl -n Welcome to Clozure Common Lisp Version 1.3-dev-r (LinuxX8664)! ? (require 'xref) XREF ("XREF") ? (ccl::callers 'print-object) (# # CCL::WRITE-A-FROB # (:INTERNAL (PRINT-OBJECT (CLASS T))) (:INTERNAL (PRINT-OBJECT (STANDARD-OBJECT T))) (:INTERNAL CCL::WRITE-AN-ISTRUCT)) ? (car (last *)) (:INTERNAL CCL::WRITE-AN-ISTRUCT) ? (ccl::make-xref-entry * :direct-calls) # ? A simple fix I came up with was to add a new CASE clause for :internal: (defun make-xref-entry (input relation) (etypecase input (symbol ...) (method ...) (cons (case (car input) ((ppc-lap-macro compiler-macro-function) ...) + ((:internal) + (make-xref-entry (cadr input) relation)) (t ))))) But then I noticed that there are inputs for flet/labels local functions too. e.g. ? (ccl::callers 'ccl::%multiply-and-add-loop) ((:INTERNAL CCL::MULTIPLY-UNSIGNED-BIGNUMS CCL::MULTIPLY-BIGNUMS)) So make-xref-entry now becomes: (defun make-xref-entry (input relation) (etypecase input (symbol ...) (method ...) (cons (case (car input) ((ppc-lap-macro compiler-macro-function) ...) + ((:internal) + (if (= (length input) 3) + (make-xref-entry (nth 2 input) relation) + (make-xref-entry (cadr input) relation))) (t ))))) Bah. I feel like I should ask what these "internal" functions are. regards, T.

CCL IDE Pledge Drive Update

Andrew Shalit — 2008-11-14T20:10:20

Hello CCL Users -- The Clozure CL Development Environment Pledge Drive is going well! We have received pledges totaling $19,150. That brings us over 90% of the way to our goal of $20,000. [Imagine thermometer graphic here, with red bar reaching almost to the top.] Please help us reach our goal, so we can get down to work building the best Common Lisp IDE anywhere. When we announced the Pledge Drive, we requested pledges of $500 or more. At this time, we'd like to open it up to contributions of any amount. Every little bit will help us reach our goal of $20,000. You can contribute directly through PayPal: just direct your payment "payments< at >clozure.com ". To make a pledge or payment another way, please contact me at alms< at >clozure.com . Please make your pledge today. To recap: Our goal is to raise $20,000 to support two months of development on the CCL IDE, running on Mac OS X. This will allow us to greatly improve the quality and reliability of the CCL IDE. Specific work will include 1. Improving and stabilizing the editor. (Think Fred.) 2. Completing the other existing IDE tools (Processes, Apropos, Inspect, Search Files). 3. Adding additional features and tools to the editor and the IDE (e.g. multiple-font support, syntax coloring). 4. Simplifying the installation and build process to make CCL available to more users, including Lisp newbies. 5. Reorganizing the IDE source code to encourage future development by the CCL community. Thanks to all the people who have pledged so far. If you have not yet pledged, please consider making a contribution to support our work on this free, open source software. We need your support to make this happen. Yours, Andrew Shalit Clozure Associates

About lispbuilder on win32

sky sea — 2008-11-14T12:55:51

_______________________________________________ Openmcl-devel mailing list Openmcl-devel< at >clozure.com http://clozure.com/mailman/listinfo/openmcl-devel

logical pathnames not working with alias

Alexander Repenning — 2008-11-14T00:43:11

_______________________________________________ Openmcl-devel mailing list Openmcl-devel< at >clozure.com http://clozure.com/mailman/listinfo/openmcl-devel

NSNormalWindowLevel

Arthur W Cater — 2008-11-06T10:01:41

_______________________________________________ Openmcl-devel mailing list Openmcl-devel< at >clozure.com http://clozure.com/mailman/listinfo/openmcl-devel

Cockpit Error using SAVE-APPLICATION?

2008-11-05T19:44:19

Hi, I am creating an application via save-application. On start with the created image (at this point is w/o the kernel appended so is started with ccl -I ), I am blowing off with an error which makes me think I am doing something wrong, which is likely obvious to those who've done this with CCL before (I've done this all the time with ACL). Anyway, here is the very simple example: $ ccl Welcome to Clozure Common Lisp Version 1.2-r10552 (LinuxX8664)! ? (defun apri-toplevel () (format t "~%Persistence starts") (dotimes (i 10) (sleep 5) (format t "."))) APRI-TOPLEVEL ? (save-application "/var/aprigo/Persistence/persistence.lx64" :toplevel-function 'apri-toplevel) $ $ ccl -I /var/aprigo/Persistence/persistence.lx64 Error during early application initialization: Fault during write to memory address #x165CE9F8 ? for help [31383] OpenMCL kernel debugger: (K) [31383] OpenMCL kernel debugger: Killed $ If I change the toplevel to: (defun apri-toplevel () :apri-done) then it seems to work. By "seems to work" I mean that it starts and does not give the error. But I would have thought that since the toplevel just immediately returns, the image would exit. Apparently that is not the semantics of save-application/toplevel-function-behavior. So, questions are: 1. Is trying to write from the toplevel somehow bogus and that is causing the error? If not, anyone know what I am doing wrong with this? 2. If the toplevel isn't the thing which controls a "controlled" exit, what is a/the canonical way of exiting from such an image? Many thanks in advance for any info /Jon -------------------------------------------------------------------- mail2web.com Enhanced email for the mobile individual based on Microsoft® Exchange - http://link.mail2web.com/Personal/EnhancedEmail

NSFontAttributeName

Arthur W Cater — 2008-11-03T11:36:50

_______________________________________________ Openmcl-devel mailing list Openmcl-devel< at >clozure.com http://clozure.com/mailman/listinfo/openmcl-devel

Pledge Drive to Support the CCL DevelopmentEnvironment

Andrew Shalit — 2008-10-28T19:41:39

Hello CCL Users - I'm happy to officially announce our pledge drive to raise funds to improve the CCL IDE. Now is your chance to help us build a development environment that is worthy of the great CCL compiler and runtime that we already have. Our goal is to raise $20,000 in pledges. This will allow us to put substantial dedicated effort into the CCL IDE. We want to take it from its current wobbly alpha state and turn it into a solid stable development environment for Common Lisp. The priorities for our work will be set by the people who fund the project. So far these priorities include: 1. Improving and stabilizing the editor. (Think Fred.) 2. Completing the other existing IDE tools (Processes, Apropos, Inspect, Search Files). 3. Adding additional features and tools to the editor and the IDE (e.g. multiple-font support). 4. Simplifying the installation and build process to make CCL available to more users, including Lisp newbies. 5. Reorganizing the source code to encourage future development by the CCL community. We currently have $6,000 in pledges. Our goal is to reach $20,000 by November 15th. To keep this effort manageable, we are seeking pledges of $500 or more. Please consider making a pledge. If you're on this e-mail list, there's a good chance you use Clozure CL. As Free Open-Source Software, we don't make any money from sales of CCL or licensing fees for applications written in CCL. We're able to fund some development ourselves. But to get beyond that --- as we'd like to do with the IDE --- we need your help. If you'd like to make a pledge, please contact me (alms< at >clozure.com) and we can set up a time to talk about your priorities and the amount you'd like to pledge. We can also do that by e-mail, if you prefer. Thanks in advance for your consideration. I hope to hear from you soon. Yours, Andrew Shalit Clozure Associates

Using ccl as a #! scripting language

John McAleely — 2008-10-26T12:07:06

Hi, I've been learning lisp recently, and I've wanted to use it for 'casual' scripting in order to become more familiar with it. As such, I wanted to find a way to use it on my mac as a scripting language from the terminal in #! scripts. The script below is my attempt at making this practical, that I've used on 10.5 with a recent version (just before 1.2) of ccl Presented here in the hope others find it useful. John ---/usr/local/bin/ccl-script--- #!/bin/bash # ccl-script # # Placed in the public domain by the author John McAleely mcaleely.com > # # A front end for ccl to be used to create #! executable text scripts on # unix like operating systems. # Start your text script with: # #!/usr/bin/env /path/to/ccl-script *command-line* # # *command-line* is defined in the script as a list of the # command line arguments used to invoke the script # #! causes the remainder of the line to be ignored. # # eg # ##!/usr/bin/env /path/to/ccl-script *command-line* #(format t "Hello World called as: ~a" (pop *command-line*)) #(quit) # ##!/usr/bin/env /path/to/ccl-script *command-line* #(loop for line = (read-line *standard-input* nil nil) # while line do (format t "~a~%" line)) #(quit) # edit this to be your ccl start script of choice (ccl64, openmcl, etc...) CCL=ccl # stash away the name for the global variable that will hold the command line VAR=$1 # Store the name of the script we will load later SCRIPT=$2 # get rid of the script's paramaters shift 2 # now prepare the command line typed by the user as the # lisp global *command-line*. This will follow the unix convention # of starting with the calling script name. CMDLINE="(progn (defvar $VAR nil) (push \"$SCRIPT\" $VAR)" # loop over the remaining command line parameters, pushing # each onto *command-line*. Done this way to preserve spaces, # etc in names, and save lisp users the trouble of doing # parsing work the shell has already done. while (($#)); do CMDLINE="$CMDLINE (push \"$1\" $VAR)" shift done # finally order the list in the least surprising way CMDLINE="$CMDLINE (setf $VAR (reverse $VAR)))" # pass a little bit of read-macro magic in first, # so that the line #!/usr... in your script is ignored. # declares #! as a read macro that ignores the remainder of the line. $CCL \ -e "(set-dispatch-macro-character #\\# #\\! #'(lambda (s c1 c2) (declare (ignore c1 c2)) (read-line s t nil t)))" \ -e "$CMDLINE" \ -l "$SCRIPT" --eof--

Typing #

Stephen Parker — 2008-10-25T12:14:18

I'm sure this is very obvious, but I can't work out how to type a # symbol into Clozure using my UK macbook. Normally this would be Alt-3. Using "Special Characters ..." is getting tiresome. Advice welcome. Thanks, stephen

Slime problem on windows

Marko Kocić — 2008-10-22T08:28:03

First, great work on win32 port. I tried to use slime with it but got the following error when tried: (progn (load "c:/dev/cvstree/lisp/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "c:/DOCUME~1/markko/LOCALS~1/Temp/slime.932" :coding-system "iso-latin-1-unix")) ; loading system definition from c:/lisp/lib/asdf-binary-locations/asdf-binary-locations.asd into # ; registering # as ASDF-BINARY-LOCATIONS Welcome to Clozure Common Lisp Version 1.3-dev-r11178M-trunk (WindowsX8632)! ? ;Loading #P"c:/dev/cvstree/lisp/slime/swank-loader.lisp"... ;Loading #P"C:/Documents and Settings/markko/.slime/fasl/2008-10-21/openmcl-version_1.3-dev-r11178m-trunk__(windowsx8632)-windows-x86/swank-backend.wx32fsl"... ;Loading #P"C:/Documents and Settings/markko/.slime/fasl/2008-10-21/openmcl-version_1.3-dev-r11178m-trunk__(windowsx8632)-windows-x86/metering.wx32fsl"... ;Compiling "c:/dev/cvstree/lisp/slime/swank-openmcl.lisp"...;; ;; Error while loading: C:/Documents and Settings/markko/.slime/fasl/2008-10-21/openmcl-version_1.3-dev-r11178m-trunk__(windowsx8632)-windows-x86/swank-openmcl.wx32fsl ;; Condition: Module XREF was not provided by any function on *MODULE-PROVIDER-FUNCTIONS*. ;; Aborting. ;; ? I'm using exe and image downloaded form svn, recent emacs from CVS and latest slime from CVS. Am I missing something? Regards, Marko