newlispfanclub.alh.net

Thanks Lutz and the community for all your contribution to newLISP! After trying the new version, I've found some bugs??: 1. `setf` redefines `nil` if the place argument is a non-existing `assoc`: (setf (assoc 'a '()) '(a 1)) nil # => (a 1) By the way, is it possible to implicitly add an assoc if it...

I like itistoday's `sym-context`. What if "warning" is used instead of "error" when name clashes (redefining protected names)? Old code can be run without changes, because it didn't mean to use the "new" definition of the names. By the way, I use a naming convention that starts "variables" with an u...

Or, like `lookup`, adding a parameter to `nth` for a "default value" to return in case an index is out of bounds: But Kazimir's suggestion is more general, in case we don't know a value that would never exist in the list.

Thanks Lutz for clarifications

As for new FOOP, is `self` a function or a list? And how can I use association list for fields? In old FOOP, I can do: (define (C:C x y) (list C (list 'x x) (list 'y y))) (define (C:p o) (println "x=" (lookup 'x o) "; y=" (lookup 'y o))) (:p (C 1 2)) # x=1; y=2 By the way, is it a good idea if newLI...

Thanks a lot, Lutz! Curious about which wishes will come true ;-) Kazimir, I like your floating-point operators (+., *., etc), first found it in your library, and hope they will be built-in too, so they will be standard names. Currently I do: (setq +. add -. sub *. mul /. div %. mod) As for, `modify...

Lutz, Yes `slice` works, but in this case it will unnecessary allocate memory, right? It's not good if (find p (i s)) is used in a loop, when s is very large. TedWalther, comment macro does not work. (define-macro (comment)) (list 1 (comment 2) 3) # => (1 nil 3), not (1 3) xytroxon, In my opinion, I...

Try this ... (local (h codelen code separator elider) # add `h` (head of current list) ... (when (= i 0) (setq h code # set `h` here res (append res "<@ " (string code) ">" ))) ... (setq elider (find (upper-case (string h)) '("OMT" "SAO" "OSA" "SAI" "OSI" "SAW" "OSW"))) # change `code` to `h` ... He...

Thank cormullion for your feedback. As for block comment, a string cannot be used as an alternative for a comment in all places. For example, to "comment-out" an item (2) in a list, compare: (list 1 "2" 3) # use string, not valid (list 1 # 2 # use single-line comment, ok but need to reformat code 3 ...

Hi! After learning newLISP for some times, here is my wish list ;-) 1. block/multi-line (nestable) comment; its syntax might be #{...}# 2. .0 is not removed when printing floats (e.g. 1.0 should be printed 1.0, not 1) 3. regex-option parameters should accept nil to mean not using regular expression ...

A "imperative" solution: (let (R '() L l E nil) (while L (setq E (pop L)) (when (or (find E R) (find E L)) (push E R -1) )) R ) or in one line ;-) (let (R '() L l E nil) (while L (setq E (pop L)) (when (or (find E R) (find E L)) (push E R -1))) R) But I love Kazimir's solution. Thanks. Happy New Yea...

By the way, in the following code: (setq x ((fn () '(a b c)))) # => (a b c) does it perform ONE (either when returning or binding) or TWO (both) copy operations? Is it possible to make all sequences return "by reference"? I think this still conforms to ORO (One Reference Only) memory management, as ...

Hi, How to "return by reference" from a user-defined function/macro? (let (l '(a b c)) (pop l) l) # => (b c) (let (l '(a b c)) (pop (or l)) l) # => (b c) (let (l '(a b c)) (pop (println l)) l) # => (a b c); is this a bug? (let (l '(a b c)) (pop (begin (println l) l)) l) # => (b c) (let (l '(a b c)) ...