- iterate-devel - mailman3.common-lisp.net

[iterate-devel] Warning with sbcl atomic-decf
by Philipp Marek 27 Apr '11

27 Apr '11

Using something like (for old-val = (atomic-decf ...)) in SBCL gives a warning that (sb-ext:truly-the ...) isn't known. So perhaps there should be a #+sbcl (sb-ext:truly-the . walk-cddr) just below the "the" handling case. I've reported that as https://bugs.launchpad.net/sbcl/+bug/771673, too. Regards, Phil -- Versioning your /etc, /home or even your whole installation? Try fsvs (fsvs.tigris.org)

1 0

[iterate-devel] date iterator extension to iterate
by Venkatesan S 26 Jan '11

26 Jan '11

Hi, Olof-joachim, iterate-devel: Thanks for the help. I have written a small driver for iterate which iterates over dates in a given range. The basic usage is: (iter (for (y m d) from-date '(2011 1 26) to '(2011 2 27) by 2 skipweekends nil) (format t "~a/~a/~a~%" d m y)) notes: 1) default value for "to" is today 2) default value for "by" is 1 3) skipweekends if true, skips over weekends I would like to include this in date-calc package, as I feel it logically belongs there. Please let me know how to go about this. I am just learning lisp, and all comments/flames are welcome. In the iterate driver, I would like to reuse the given variables (y m d) instead of gensym'ming , but I get a slew of errors, which I am unable to comprehend. Instead of: (defmacro-driver (FOR (y m d) FROM-DATE from-date-spec &optional TO to-date-spec BY (n 1) SKIP-WEEKENDS (skipval t)) "Driver for iterating over dates. All dates are in YMD format, ie (YYYY MM DD)" (let ((ty (gensym "TO-YEAR")) (tm (gensym "TO-MONTH")) (td (gensym "TO-DATE")) (fy (gensym "FROM-YEAR")) (fm (gensym "FROM-MONTH")) (fd (gensym "FROM-DATE")) ..... (,kwd ,y next (progn .... (list ,fy ,fm ,fd) .... I would like to use the input yy instead of gensym'ming to hold the current iteration value like: (defmacro-driver (FOR (y m d) FROM-DATE from-date-spec &optional TO to-date-spec BY (n 1) SKIP-WEEKENDS (skipval t)) "Driver for iterating over dates. All dates are in YMD format, ie (YYYY MM DD)" (let ((ty (gensym "TO-YEAR")) (tm (gensym "TO-MONTH")) (td (gensym "TO-DATE")) ..... (,kwd ,y next (progn .... (list ,y ,m ,d) Also, any pointers to improve the code are very much appreciated. Thanks, Venkatesan -- Audentis fortuna juvat -- Audentis fortuna juvat

2 2

[iterate-devel] defclause-driver with &sequence
by Venkatesan S 23 Jan '11

23 Jan '11

Hi, I was trying to roll an iterate driver for iterating over dates and I am stuck with a problem. When using defmacro-driver, I am unable to get the value passed in from to and other sequence classes. I tried with the example given in the manual (chapter "Rolling your own"), but hit the same problem. The manual says: "We can now refer to parameters from, to, by, etc. which contain either the values for the corresponding keyword, or nil if the keyword was not supplied. Implementing the right code for these keywords is cumbersome but not difficult; it is left as an exercise." But I guess I am one of the dumb few who failed the exercise :)) The following is my attempt with the example given in the manual: (defmacro-driver (FOR var IN-WHOLE-VECTOR v &sequence) "All the elements of a vector (disregards fill-pointer)" (let ((vect (gensym)) (end (gensym)) (index (gensym)) (myfrm (gensym "myfrm")) (kwd (if generate 'generate 'for))) `(progn (with ,vect = ,v) (with ,myfrm = ,from) (with ,end = (array-dimension ,vect 0)) (with ,index = -1) (,kwd ,var next (progn (incf ,index) (if (>= ,index ,end) (terminate)) (format t "myfrm: ~a~%" ,myfrm) (aref ,vect ,index)))))) I tried using the driver with: (a is an array of 10 elements) (iter (for v in-whole-vector a from 5 below 8) (print v)) I get the following error: The variable FROM is unbound. [Condition of type UNBOUND-VARIABLE] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [ABORT] Exit debugger, returning to top level. Backtrace: 0: ((DEFMACRO CLAUSE-FOR-IN-WHOLE-VECTOR-18) (CLAUSE-FOR-IN-WHOLE-VECTOR-18 :FOR V :IN-WHOLE-VECTOR A :FROM ...) #<unused argument>) 1: (MACROEXPAND-1 (CLAUSE-FOR-IN-WHOLE-VECTOR-18 :FOR V :IN-WHOLE-VECTOR A :FROM ...) #<NULL-LEXENV>) 2: (ITERATE::PROCESS-CLAUSE (FOR V IN-WHOLE-VECTOR A FROM 5 ...)) 3: (ITERATE::WALK (FOR V IN-WHOLE-VECTOR A FROM 5 ...)) 4: (ITERATE::WALK-LIST-NCONCING ((FOR V IN-WHOLE-VECTOR A FROM 5 ...) (PRINT V)) #<FUNCTION ITERATE::WALK> #<FUNCTION (LAMBDA #) {100407D489}>) 5: (ITERATE::WALK-LIST ((FOR V IN-WHOLE-VECTOR A FROM 5 ...) (PRINT V))) 6: ((DEFMACRO ITER) ..) I am using ubuntu maverick, 10.10, SBCL 1.0.45 64 bit. I tried the following: (with ,myfrm = from) I get an error: The variable FROM is unbound. [Condition of type UNBOUND-VARIABLE] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [ABORT] Exit debugger, returning to top level. Backtrace: 0: ((LAMBDA ())) 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV ..) 2: (SWANK::EVAL-REGION "(iter (for v in-whole-vector a from 5 below 8)\n (print v))\n") 3: ((LAMBDA ())) 2) (with ,myfrm = :from) This does not throw any error, but just prints myfrm: FROM instead of the value given I want to use defclause-driver with the sequence keywords, I could not figure out how to get the values passed in from, to and other such clauses. Can anyone please provide some pointers? -- Audentis fortuna juvat

2 3

[iterate-devel] Seconded: ITER package nickname all caps - breaks readtable-case invert
by Jonathan Johansen 28 Aug '10

28 Aug '10

I think fixing this would be awesome - I like the invert case readtable setting. On Mon, Aug 23, 2010 at 10:08 AM, Vladimir Sedach <vsedach(a)gmail.com> wrote: > Hi, > > Is there a reason why the package nickname ITER is written in all > capital letters in the package definition file? cl-closure-template > uses the ITER nickname but in lowercase, and this breaks when I have > my readtable-case set to invert. Is this a bug in iterate or > cl-closure-template? I've done a search of other packages in my > site-lisp (102 of them), and none of the other ones seem to use the > nickname ITER in upper case. > > Thanks, > Vladimir > > _______________________________________________ > iterate-devel site list > iterate-devel(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/iterate-devel >

1 0

[iterate-devel] ITER package nickname all caps - breaks readtable-case invert
by Vladimir Sedach 23 Aug '10

23 Aug '10

Hi, Is there a reason why the package nickname ITER is written in all capital letters in the package definition file? cl-closure-template uses the ITER nickname but in lowercase, and this breaks when I have my readtable-case set to invert. Is this a bug in iterate or cl-closure-template? I've done a search of other packages in my site-lisp (102 of them), and none of the other ones seem to use the nickname ITER in upper case. Thanks, Vladimir

1 0

[iterate-devel] [Bug] Hashtable traversal code always put at the beginning
by Andrea Taverna 16 Aug '10

16 Aug '10

SYSTEM DESCRIPTION > Iterate version: latest from darcs repository and 1.4.3 Lisp implementation: SBCL 1.0.33 BUG DESCRIPTION> when using FOR..IN-HASHTABLE the code generated for hash-table traversing is always put at the beginning of generate code, with the result that the hash-table to be traversed must be in scope since the beginning of the ITER form. EXAMPLE > (macroexpand-1 '(iter:iter (iter:with table = (make-hash-table)) (iter:for (k v) in-hashtable table) (format t "~A ~A ~%" k v))) ==> (WITH-HASH-TABLE-ITERATOR (#:HASH-TABLE-ITERATOR-810 TABLE) ; <-- 'TABLE used before being bound (LET* ((TABLE (MAKE-HASH-TABLE)) (#:G811 NIL) (K NIL) (V NIL)) (BLOCK NIL (TAGBODY (PROGN) LOOP-TOP-NIL (PROGN (MULTIPLE-VALUE-SETQ (#:G811 K V) (#:HASH-TABLE-ITERATOR-810)) (IF (NOT #:G811) (GO LOOP-END-NIL)) (FORMAT T "~A ~A ~%" K V)) (PROGN) (GO LOOP-TOP-NIL) LOOP-END-NIL (PROGN)) NIL))) thank you, Andrea

2 1

[iterate-devel] Fix for broken progn
by Olof-Joachim Frahm 03 Jun '10

03 Jun '10

Hi, the attached patch fixes a nasty bug in iterate: Without it, forms like (iterate (leave (if T (progn) 3))) evaluate to 3, because walk-progn simply strips empty progn forms. Regards, Olof -- The world is burning. Run.

2 2

[iterate-devel] Iteration on multiple lists sequentially
by William Halliburton 28 May '10

28 May '10

Hello all, Does anyone have a generator that allows for iteration on multiple lists sequentially without creating a single list. I'm doing this alot: (iter (for el in (append list1 list2 list3))) when the APPEND is really not necessary with a sufficiently smart generator like: (iter (for el in list then list2 then list3))) ? Thank you, Will

2 2

[iterate-devel] Bad superiority example
by Eivind Midtgård 11 Apr '10

11 Apr '10

The document at http://common-lisp.net/project/iterate/ uses this as an example of the superiority of iterate over loop: Finding the longest list in a list of lists: (iterate (for elt in list-of-lists) (finding elt maximizing (length elt))) whereas the example of how it can be done in loop is long and contorted. But loop can do (loop for elt in list-of-lists maximizing (length elt)) The example in 3.2 Named blocks may be better as a selling point: (iter outer (for i below (array-dimension ar 0)) (iter (for j below (array-dimension ar 1)) (in outer (collect (aref ar i j))))) showing that the outer loop can easily collect data produced in the inner loop. Eivind

2 1

[iterate-devel] compile failed on allegro 8.2
by Michael Pheasant 07 Apr '10

07 Apr '10

Hi trying to install iterate with (asdf-install:install :iterate) I get the following error: .... ;;; Compiling file /Users/m.pheasant/.asdf-install-dir/site/iterate-1.4.3/iterate.lisp Error: Unsyntactic ! syntax: "1" It refers to the first time the !1 is seen, in defun walk: (t ;; Lisp function call (return-code-modifying-body #'walk-arglist (cdr form) #L(list (cons (car form) !1)))))) any help appreciated. I was using sbcl and appreciated iterate over loop, and would like to use it from allegro. Cheers Mike -- Michael Pheasant Software Engineer Queensland Facility for Advanced Bioinformatics Level 6, QBP University of Queensland, QLD 4072 T: +61 (0)7 3346 2070 F: +61 (0)7 3346 2101 www.qfab.org

2 1